如何用R原生管道|>将数据传递给plot和points函数绘图

我想用R的原生管道运算符|>把数据传给plot绘图，接着再传给points添加数据点。单独用管道调用plot是可行的，但加points时，因为plot没有返回值，管道没法继续传数据。我已经用匿名函数包裹绘图逻辑实现了功能，但觉得这种方式偏离了管道的设计初衷，想问有没有更贴合管道特性的实现方式？

测试代码：

dtf = data.frame(pop1 = 1:10, pop2 = 2:11, gen = 1:10)
dtf |>
  (\(dt) plot(x = dt["gen"], y = dt["pop1"]))() |>
  (\(dt) points(x = dt["gen"], y = dt["pop2"]))() 

单独调用plot的可行代码：

dtf |>
      (\(dt) plot(x = dt["gen"], y = dt["pop1"]))()

我找到的替代实现：

dtf |>
  (function(dt) {
    plot(x = dt["gen"], 
         y = dt["pop1"], pch = 19, col = "red")
    points(x = dt["gen"], 
           y = dt["pop2"], pch = 19, col = "black") 
    }
   )()

贴合原生管道特性的实现方式 #

因为plot和points都是副作用函数（只产生绘图效果，不返回输入数据），要让管道能继续传递，核心是让每个步骤执行完绘图操作后，返回原始数据。

方法1：用大括号{}包裹操作并返回数据 #

原生管道支持用{}块，在块里执行绘图逻辑，最后显式返回输入数据，就能继续传给下一个管道步骤：

dtf = data.frame(pop1 = 1:10, pop2 = 2:11, gen = 1:10)

dtf |>
  { \(dt) {
      plot(x = dt$gen, y = dt$pop1, pch = 19, col = "red")
      dt  # 返回原始数据，供下一个管道步骤使用
    }
  }() |>
  { \(dt) {
      points(x = dt$gen, y = dt$pop2, pch = 19, col = "black")
      dt  # 最后一步可省略返回
    }
  }()

方法2：自定义辅助函数（更简洁） #

如果经常需要这类操作，可以写一个通用辅助函数，执行绘图副作用后返回输入：

# 辅助函数：执行传入的绘图逻辑，返回原始数据
with_plot = function(data, plot_fun) {
  plot_fun(data)
  data
}

dtf = data.frame(pop1 = 1:10, pop2 = 2:11, gen = 1:10)

dtf |>
  with_plot(\(dt) plot(x = dt$gen, y = dt$pop1, pch = 19, col = "red")) |>
  with_plot(\(dt) points(x = dt$gen, y = dt$pop2, pch = 19, col = "black"))

方法3：简化的匿名函数写法（R 4.1+支持） #

利用R 4.1+的匿名函数简写，大括号块可以更紧凑：

dtf |>
  (\(dt) { plot(dt$gen, dt$pop1, pch=19, col="red"); dt })() |>
  (\(dt) { points(dt$gen, dt$pop2, pch=19, col="black"); dt })()

为什么之前的写法有问题？ #

你之前的匿名函数只执行了plot或points，没有返回数据，管道到这一步就中断了。管道的核心是传递前一步的输出作为后一步的输入，只要让每个绘图步骤返回原始数据，就能让管道持续串联下去。

内容的提问来源于stack exchange，提问作者M. Beausoleil