Verwenden des Punktoperators in dplyr :: bind_cols

Question

Ich sehe etwas unerwartetes Verhalten mit dplyr. Ich habe einen speziellen Anwendungsfall, aber ich werde ein Dummy-Problem aufstellen, um meinen Standpunkt zu verdeutlichen. Warum funktioniert das,

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 

Aber nicht dies,

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

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

Danke für die Hilfe.

Answer 1

Sie benötigen eine Funktion mit {} zu Rohr mtcars in eine Funktion innerhalb einer anderen Funktion wickeln wie folgt aus:

library(dplyr) 

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

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

Answer 2

Eine andere Lösung:

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