在 dplyr do 函数中尝试 inner_join

Question

我正在使用dplyr::do 来计算一些值，但我想将一些数据加入其中。

df2 <- data.frame(cat=c('a','a','b'),
                  cl=1,
                  id=c('A','B','C'))
df1 <- data.frame(cat=c('a','b'),
                 cl=1)
df1 %>%
  group_by(cat, cl) %>%
  do(ids=paste(. %>%
                 inner_join(df2) %>%
                 dplyr::select(id) %>%
                 unlist(), collapse=';'))

我收到一个错误

as.vector(x, "character") 中的错误： 无法将类型“闭包”强制转换为“字符”类型的向量

有谁知道如何解决这个问题或问题到底出在哪里？

Answer 1

问题是使用点作为管道运算符的左侧，%>% 的文档指出：

使用点占位符作为 lhs 当点用作 lhs 时，结果将是一个函数序列，即一个将整个右侧链依次应用于其输入的函数。请参阅示例。

他们甚至提供了一个例子：

# Building unary functions with %>%
trig_fest <- . %>% tan %>% cos %>% sin

所以基本上你提供了一个函数作为paste的输入

Answer 2

试试这个：

df1 %>%
  group_by(cat, cl) %>%
  do(ids=paste(  inner_join(.,df2) %>%
                 dplyr::pull(id), collapse=';'))

不知道为什么它会起作用，但确实如此。