magrittr 管道内的子集化而不影响整个对象

Question

目前 magrittr 管道的工作方式无法混合矢量级和表级操作。例如str_sub() 只接受一个向量，而mutate() 只接受一个表格。

如果您想在同一个管道中同时使用两者，唯一的选择是拆分管道或嵌套，这两种方法都会破坏管道：

##Multiple short operations and assignments:

iris$Species %<>% str_sub(.,1,-3) 
iris %<>% mutate(., compliments=str_c("pretty"," ",Species))


##Multiple layers of nested functions

iris%>%mutate(., 
  compliments=str_c(
    "pretty",
    " ",
    str_sub(Species,1,-3)
  )
)

我想要做的事情类似于下面的（非工作）示例。我发现的最接近的近似值是对mutate 的大量多余调用：

iris %>% 
str_sub(.$Species,1,-3) %>%   
mutate(., compliments=str_c("pretty"," ",Species))

Answer 1

您需要记住您错过了管道中函数的第一个参数，因此您的第一个示例应如下所示：

library(magrittr)
library(dplyr)

iris %<>% mutate(Species = str_sub(Species, 1, -3), 
                 compliments = str_c("pretty", " ", Species))

head(iris)
#>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species compliments
#> 1          5.1         3.5          1.4         0.2    seto pretty seto
#> 2          4.9         3.0          1.4         0.2    seto pretty seto
#> 3          4.7         3.2          1.3         0.2    seto pretty seto
#> 4          4.6         3.1          1.5         0.2    seto pretty seto
#> 5          5.0         3.6          1.4         0.2    seto pretty seto
#> 6          5.4         3.9          1.7         0.4    seto pretty seto

（另外，你忘了大写Species！）