在 dplyr::bind_cols 中使用点运算符

Question

我发现 dplyr 有一些意外行为。我有一个特定的用例，但我会设置一个虚拟问题来说明我的观点。为什么这样做，

library(dplyr)
temp <- bind_cols(mtcars %>% select(-mpg), mtcars %>% select(mpg))
head(temp)

cyl  disp  hp drat    wt  qsec vs am gear carb  mpg
6 160.0 110 3.90 2.620 16.46  0  1    4    4 21.0
6 160.0 110 3.90 2.875 17.02  0  1    4    4 21.0

但不是这个，

library(dplyr)
temp <- mtcars %>% bind_cols(. %>% select(-mpg), . %>% select(mpg))

Error in cbind_all(x) : Argument 2 must be length 1, not 32

感谢您的帮助。

Answer 1

另一个解决方案：

myfun <- function(x) {
  bind_cols(x %>% select(-mpg), x %>% select(mpg))
}
temp <- mtcars %>% myfun

Answer 2

您需要使用 {} 包装您的函数，以便通过管道将 mtcars 传递到另一个函数中的函数，如下所示：

library(dplyr)

temp1 = mtcars %>% {bind_cols(select(., -mpg), select(., mpg))}
temp2 = bind_cols(mtcars %>% select(-mpg), mtcars %>% select(mpg))

# > identical(temp1, temp2)
# [1] TRUE

在 dplyr::bind_cols 中使用点运算符

Using the dot operator in dplyr::bind_cols

r

dplyr

nse