r - 使用 ggplot2 通过函数传递绘图标签

Question

我有一个渲染绘图的函数 - 我如何通过一个函数传递绘图标签信息(例如，绘图标题、轴标题等)，就像我在下面尝试做的那样？

library(dplyr)
library(ggplot2)

plot_func <- function(sample_size, lab_list) {
  mtcars %>% 
    sample_n(sample_size) %>% 
    ggplot(aes(x = mpg, y = hp)) +
    geom_point() +
    labs(lab_list)
}

plot_func(sample_size = 5, lab_list = list(title = "Plot Title", x = "MPG", y = "HP"))

Answer 1

我们可以使用 purrr::invoke或 do.call

library(dplyr)
library(ggplot2)
plot_func <- function(sample_size, lab_list) {
 mtcars %>% 
   sample_n(sample_size) %>% 
   ggplot(aes(x = mpg, y = hp)) +
   geom_point() +
   do.call(labs, lab_list)
 }

-测试

plot_func(sample_size = 5, lab_list = list(title = "Plot Title",
      x = "MPG", y = "HP"))