R 管道 (%>%) 功能 - 存储和部分使用？

Question

我喜欢管道提高可读性的想法，但我一直难以使用它，因为它给人的感觉是多么不灵活。到目前为止，我只在我的目标是通过一组函数 h(g(f(x,foo),bar),stuff)

直接通过管道传递 X 时才成功

x %>%
f(foo) %>%
g(bar) %>%
h(stuff)

如果我想存储一个中间输出以便我可以拥有 h(x,stuff,f(x,foo))，这可能吗？我试过了

x %>% 
intermediate = f(foo) %>% 
g(bar)

但是失败了。 Assign 不起作用，因为第一个参数是名称而不是值；有相反的等价物吗？

我知道你可以用“.”多次引用 x 或它的一部分，但有没有办法一开始只使用它的一部分？我想对不同的列执行不同的功能，比如

data.frame(x[,1],apply(.[,2:3],2,fun1),apply(.[,4],2,fun2))

但我不知道如何将第一个参数限制为仅 x[,1] 而不是全部 x。我不能使用 %>% select(1) %>% 因为那样它将永远丢弃其余部分。有没有办法做到这一点，或者我应该结束管道，执行这些功能，然后启动另一个管道？最简单的解决方案是将所有 x 放入数据框中然后 %>% select(1,5:9) %>% 吗？

Answer 1

您可以编写一个函数来完成您可以包含在链中的分配。像

save_to <- function(x, v) {
    var <- substitute(v)
    eval(bquote(.(var) <- .(x)), envir=globalenv())
    x
}


library(magrittr)
x<-1:10
f<-function(x) x+1
g<-function(x) x*2
h<-function(x) paste(x, collapse=", ")    

x %>% f %>% g %>% save_to(z) %>% h
# [1] "4, 6, 8, 10, 12, 14, 16, 18, 20, 22"
z
#  [1]  4  6  8 10 12 14 16 18 20 22

请注意，这会将值保存到全局环境中。出于这个原因，这可能不是一个好主意（具有副作用的函数在函数式语言中通常是一种糟糕的设计实践）。最好把它分成不同的链。

z <- x %>% f %>% g
z %>% h

R 管道 (%>%) 功能 - 存储和部分使用？

R pipe (%>%) capabilities - storage and partial use?

r

dplyr

magrittr