如何用R基础管道将列唯一值传入ggplot的labs设置标题？

问题场景 #

对数据框筛选后，想通过管道传入ggplot生成图表，并用结果数据框中某列的唯一值作为图表标题。用magrittr的%>%可以通过大括号块实现，但直接照搬写法用R基础管道|>会报错：

starwars |> 
  filter(hair_color == "blond") |> 
  {
    ggplot(data = _, aes(x = height, y = mass, col = birth_year)) +
      geom_point() +
      labs(title = unique(.$species))
  }

报错信息：

Error in { : 
  function '{' not supported in RHS call of a pipe (<input>:3:7)

这是因为R基础管道要求右侧必须是函数调用，而{}是语法块，不被识别为函数。除了提前将筛选后的数据框赋值给变量，还有以下几种实现方案：

方案1：用匿名函数包裹代码块 #

通过\(x)定义匿名函数接收管道传来的数据，在函数内部完成ggplot的构建，这种方式最接近magrittr大括号的写法：

starwars |> 
  filter(hair_color == "blond") |> 
  \(filtered_df) {
    ggplot(data = filtered_df, aes(x = height, y = mass, col = birth_year)) +
      geom_point() +
      labs(title = unique(filtered_df$species))
  }

匿名函数的参数filtered_df会自动接收管道前一步的结果，相比magrittr的.，用明确的参数名可读性更强。

方案2：结合with()函数 #

利用with()将数据框的列名暴露到当前环境，同时在with()内部构建ggplot，无需重复引用数据框名：

starwars |> 
  filter(hair_color == "blond") |> 
  with({
    ggplot(data = ., aes(x = height, y = mass, col = birth_year)) +
      geom_point() +
      labs(title = unique(species))
  })

with()内部可以直接用列名（比如species），ggplot的data参数用.指代传入的数据框。

方案3：块内临时赋值 #

在{}块内部先将管道结果赋值给变量，再构建ggplot，最后通过()执行这个块（适配基础管道的函数调用要求）：

starwars |> 
  filter(hair_color == "blond") |> 
  {
    df <- .
    ggplot(df, aes(x = height, y = mass, col = birth_year)) +
      geom_point() +
      labs(title = unique(df$species))
  }()

内容的提问来源于stack exchange，提问作者biomiha