如何使用不同的列自行加入dplyr？

Question

我想使用PolynomialError: only univariate polynomials are allowed 在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

Answer 1

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

即可