英文:
Extract mismatch by groups
问题
我有一个如下的数据框：
| ID | col1| col2 |
|:---- |:------:| -----:|
| AB |1 | 3 |
| AB |1 | 3 |
| CD |2 | 4 |
| CD |2 | 3 |
我想比较每个ID内的行。
对于每个有差异的列，将不匹配的内容添加到相应的列中。
输出：
| ID | col1| col2 | 不匹配提取_col1| 不匹配提取_col2|
|:---- |:------:| :-----:| :-----:|-----:|
| AB |1 | 3 |Na |Na|
| AB |1 | 3 |Na| Na|
| CD |2 | 4 |Na| 4:3|
| CD |2 | 3 |Na| 4:3|
英文:
I have a data frame like this:
| ID | col1 | col2 |
|---|---|---|
| AB | 1 | 3 |
| AB | 1 | 3 |
| CD | 2 | 4 |
| CD | 2 | 3 |
I would like to compare row within each ID.
For each column with difference add in the mismatch referred to the column.
Output:
| ID | col1 | col2 | mismatch_extract_col1 | mismatch_extract_col2 |
|---|---|---|---|---|
| AB | 1 | 3 | Na | Na |
| AB | 1 | 3 | Na | Na |
| CD | 2 | 4 | Na | 4:3 |
| CD | 2 | 3 | Na | 4:3 |
答案1
得分: 2
您可以使用n_distinct() == 1来确定是否在每个ID组的每一列中存在不匹配。
library(dplyr)
df %>%
mutate(across(col1:col2, ~ if_else(n_distinct(.x) == 1, NA, toString(.x)),
.names = "mismatch_extract_{.col}"),
.by = ID)
# # A tibble: 4 × 5
# ID col1 col2 mismatch_extract_col1 mismatch_extract_col2
# <chr> <int> <int> <lgl> <chr>
# 1 AB 1 3 NA NA
# 2 AB 1 3 NA NA
# 3 CD 2 4 NA 4, 3
# 4 CD 2 3 NA 4, 3
注意：代码部分已排除在翻译之外，只提供翻译的文本。
英文:
You can use n_distinct() == 1 to know if there is a mismatch in each column by ID groups.
library(dplyr)
df %>%
mutate(across(col1:col2, ~ if_else(n_distinct(.x) == 1, NA, toString(.x)),
.names = "mismatch_extract_{.col}"),
.by = ID)
# # A tibble: 4 × 5
# ID col1 col2 mismatch_extract_col1 mismatch_extract_col2
# <chr> <int> <int> <lgl> <chr>
# 1 AB 1 3 NA NA
# 2 AB 1 3 NA NA
# 3 CD 2 4 NA 4, 3
# 4 CD 2 3 NA 4, 3
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论