如何创建支持未知数量变量的R语言函数？

你可以利用R的...（点参数）来实现接收任意数量变量的需求，修改后的函数如下：

join_graph = function(..., left_title, bottom_title){
  gridExtra::grid.arrange(..., nrow = 2,
                          left = grid::textGrob(left_title, rot = 90, gp = grid::gpar(fontfamily = "Times", fontsize = 12)),
                          bottom = grid::textGrob(bottom_title, gp = grid::gpar(fontfamily = "Times", fontsize = 12)))
}

关键说明： #

• ... 是R的特殊参数，能捕获任意数量的位置参数（这里就是你要拼接的图形对象），直接传递给grid.arrange处理
• left_title和bottom_title放在参数列表末尾，调用时必须指定参数名，避免和图形参数混淆
• 显式调用grid::textGrob和grid::gpar，避免因未加载grid包导致的报错

使用示例： #

假设你有多个ggplot图形，调用方式如下：

library(ggplot2)
# 创建示例图形
p1 <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p2 <- ggplot(mtcars, aes(mpg, hp)) + geom_point()
p3 <- ggplot(mtcars, aes(cyl, wt)) + geom_boxplot()

# 传入3个图形，指定标题
join_graph(p1, p2, p3, left_title = "Y轴标题", bottom_title = "X轴标题")

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