根据匹配的两列将行放入列表项

时间:2019-04-23 11:25:25

标签: r pattern-matching grouping igraph

我需要将数据框放入列表的项中,以便每个潜在人员都位于“存储桶”中,基于2列 ID ID2_value 。然后,我将手动执行用户验证以确认是否为同一人。

多个具有相同 ID2_value 的行可能是同一个人-需要将它们放在一起。 具有相同 ID 的多行绝对是同一个人。

fname_c1   ID         ID2    ID2_value   by    bm    bd   
  <fct>   <fct>      <fct>    <fct>     <int> <int> <int> 
1 STEFAN   100       MEDICAL#1  60        1957     9     2    
2 HANS     205       MEDICAL#1  60        1957     6     7    
3 PODRICK  104       MEDICAL#2  5003      1933     6     7   
4 BOB      600       MEDICAL#2  2005      1960     9     2    
5 PODRICK  104       MEDICAL#1  89        1933     9     2   
6 STEFAN   100       MEDICAL#2  1001      1957     6     1  
7 GARY     104       MEDICAL#4  AAB       1933     6     1    
8 GARY     110       MEDICAL#4  AAB       1933     6     1  

根据上述数据,应该放在一起的行是

fname_c1   ID         ID2    ID2_value   by    bm    bd 
  <fct>   <fct>      <fct>    <fct>     <int> <int> <int>  
1 STEFAN   100       MEDICAL#1  60        1957     9     2   
2 HANS     205       MEDICAL#1  60        1957     6     7   
3 STEFAN   100       MEDICAL#2  1001      1957     6     1   

fname_c1   ID         ID2    ID2_value   by    bm    bd   
4 BOB      600       MEDICAL#2  2005      1960     9     2   

fname_c1   ID         ID2    ID2_value   by    bm    bd   
5 PODRICK  104       MEDICAL#1  89        1933     9     2  
6 PODRICK  104       MEDICAL#2  5003      1933     6     7  
7 GARY     104       MEDICAL#4  AAB       1933     6     1  
8 GARY     110       MEDICAL#4  AAB       1933     6     1   

我在考虑如何进行这种双重匹配时遇到了麻烦。

可复制的代码

dat <- structure(list(fname_c1 = structure(c(5L, 3L, 4L, 1L, 4L, 5L, 2L, 2L), 
                                           .Label = c("BOB", "GARY", "HANS", "PODRICK", "STEFAN"), 
                                           class = "factor"), 
                      ID = structure(c(1L, 4L, 2L, 5L, 2L, 1L, 2L, 3L), 
                                     .Label = c("100", "104", "110", "205", "600"), 
                                     class = "factor"), 
                      ID2 = structure(c(1L, 1L, 2L, 2L, 1L, 2L, 3L, 3L), 
                                      .Label = c("MEDICAL#1", "MEDICAL#2", "MEDICAL#4"), 
                                      class = "factor"), 
                      ID2_value = structure(c(4L, 4L, 3L, 2L, 5L, 1L, 6L, 6L), 
                                            .Label = c("1001", "2005", "5003", "60", "89", "AAB"), 
                                            class = "factor"), 
                      by = c(1957L, 1957L, 1933L, 1960L, 1933L, 1957L, 1933L, 1933L), 
                      bm = c(9L, 6L, 6L, 9L, 9L, 6L, 6L, 6L), 
                      bd = c(2L, 7L, 7L, 2L, 2L, 1L, 1L, 
                             "data.frame")
                      )
                 )

dat <- data.frame(dat)
library(tidyverse)

以下内容将两者匹配,并且仅保留“交集”

batches_all <- dat %>% 
  group_split(fname_c1, ID2_value)

我正在寻找两个比赛的联合。

0 个答案:

没有答案