如何向gggrid的grid_panel中自定义函数传递额外参数？

问题根源 #

你直接写lab1(label = "BCD")时，会立刻执行这个函数，但此时data和coords这两个由ggplot渲染时自动传入的参数还没到位，自然就触发了参数缺失的错误。grid_panel需要的是函数本身，而不是函数运行后的结果。

可行解决方案 #

方法1：用匿名函数包装 #

把带自定义参数的函数调用放在匿名函数里，让匿名函数接收data和coords并传递给原函数：

ggplot(mtcars, aes(x=disp, y=mpg)) +
  geom_point() +
  grid_panel(function(data, coords) lab1(data, coords, label = "BCD"))

方法2：用purrr::partial生成部分应用函数 #

借助purrr包的partial函数预先绑定好自定义参数，生成一个只等着接收data和coords的新函数：

library(purrr)

ggplot(mtcars, aes(x=disp, y=mpg)) +
  geom_point() +
  grid_panel(partial(lab1, label = "BCD"))

方法3：把原函数改成闭包形式 #

让lab1先接收自定义参数，再返回一个能接收data和coords的函数：

lab1 <- function(label = "ABC") {
  function(data, coords) {
    textGrob(label)
  }
}

# 调用时直接传参数，返回的就是grid_panel需要的函数
ggplot(mtcars, aes(x=disp, y=mpg)) +
  geom_point() +
  grid_panel(lab1(label = "BCD"))

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