如何在R中无需重复长管道、不存中间对象生成指定列表？

为什么%T>%不生效 #

%T>%是magrittr的"tee"管道，它的作用是把左侧结果传给右侧函数执行，但最终返回的还是左侧的原始结果，而不是右侧函数的输出。所以你之前的代码只会返回经过两次mutate后的单个数据集，没法生成包含两个不同结果的列表。

可行的实现方式 #

方式1：用大括号+占位符直接构造列表

这是最直接的方式，用大括号{}包裹列表构造逻辑，里面的.会指代管道传过来的初始数据（或冗长管道的结果），分别对其做不同的mutate操作：

mtcars %>%
  {
    list(
      mutate(., wt = wt + 1),
      mutate(., wt = wt - 1)
    )
  }

把mtcars换成你的冗长管道即可，整个初始逻辑只写一次，内部通过.重复引用。

方式2：用purrr批量处理操作

如果后续要加更多类似的mutate逻辑，用purrr的map函数会更灵活：

library(purrr)

# 先定义所有要执行的操作
operations <- list(
  ~mutate(., wt = wt + 1),
  ~mutate(., wt = wt - 1)
)

# 结合管道批量生成结果列表
mtcars %>%
  { map(operations, ~.x(.)) }

这种方式可以轻松扩展操作数量，不用重复写列表结构。

方式3：基础R实现版

如果不想加载额外包，也可以用基础R的lapply实现类似效果：

mtcars %>%
  {
    lapply(
      list(function(x) mutate(x, wt = wt +1),
           function(x) mutate(x, wt = wt -1)),
      function(f) f(.)
    )
  }

内容的提问来源于stack exchange，提问作者J. Doe