如何使用不同的列与dplyr进行自我联接？

ar7 发表于 Dev

ar7

我想使用R实现一个经典的自联接问题，dplyr但无法实现。

输入：数据框中用empid，empname和managerid

输出：managername每个数据框empid

library(dplyr)


empid = c(1, 2, 3, 13, 11, 9, 8, 7, 3)
empname = paste0("emp", empid) 
managerid = c(0, 0, 1, 2, 2, 1, 3, 2, 1)
df = data.frame(empid, empname, managerid)
df
# empid empname managerid
#      1    emp1         0
#      2    emp2         0
#      3    emp3         1
#     13   emp13         2
#     11   emp11         2
#      9    emp9         1
#      8    emp8         3
#      7    emp7         2
#      3    emp3         1


df %>% 
  unique() %>% 
  left_join(., ., by = ("managerid" = "empid"))

# empid empname.x managerid.x empname.y managerid.y
#      1      emp1           0      emp1           0
#      2      emp2           0      emp2           0
#      3      emp3           1      emp3           1
#     13     emp13           2     emp13           2
#     11     emp11           2     emp11           2
#      9      emp9           1      emp9           1
#      8      emp8           3      emp8           3
#      7      emp7           2      emp7           2

代码显然没有给出预期的结果。应该是这样的：

# empid empname.x managerid.x empname.y 
#      1      emp1           0      NA           
#      2      emp2           0      NA           
#      3      emp3           1    emp1           
#     13     emp13           2    emp2           
#     11     emp11           2    emp2           
#      9      emp9           1    emp1           
#      8      emp8           3    emp3          
#      7      emp7           2    emp2

普杜布斯

您只需要将by条件设为向量：left_join(., ., by = c("managerid" = "empid"))

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。