如何优雅地多次调用箱线图(boxplot)？用变量r精简代码

嘿，这个问题太常见了——重复写一堆相同的绘图参数真的很烦人！其实在R里，不管你用的是ggplot2还是基础绘图系统，都能通过把「基础绘图模板」或者「参数集合」存到变量里，轻松实现复用。

情况1：用ggplot2绘图（最常用场景） #

假设你原本的冗余代码是这样的：

# 第一次画箱线图
ggplot(mtcars, aes(x = factor(cyl), y = mpg)) +
  geom_boxplot(fill = "lightblue", color = "darkblue", outlier.color = "red", width = 0.7) +
  labs(title = "车型油耗与气缸数关系（第一次）", x = "气缸数", y = "每加仑英里数")

# 第二次画，参数几乎一样，只改标题
ggplot(mtcars, aes(x = factor(cyl), y = mpg)) +
  geom_boxplot(fill = "lightblue", color = "darkblue", outlier.color = "red", width = 0.7) +
  labs(title = "车型油耗与气缸数关系（第二次）", x = "气缸数", y = "每加仑英里数")

你可以把基础的箱线图对象存到一个变量里，之后直接复用这个变量，只修改需要变动的部分：

# 第一步：把重复的基础绘图逻辑存到变量
base_boxplot <- ggplot(mtcars, aes(x = factor(cyl), y = mpg)) +
  geom_boxplot(fill = "lightblue", color = "darkblue", outlier.color = "red", width = 0.7)

# 第二步：第一次调用，添加专属标注
base_boxplot + 
  labs(title = "车型油耗与气缸数关系（第一次）", x = "气缸数", y = "每加仑英里数")

# 第三步：第二次调用，直接复用base_boxplot，只改标题就行
base_boxplot + 
  labs(title = "车型油耗与气缸数关系（第二次）", x = "气缸数", y = "每加仑英里数")

要是你需要换数据集或者调整某个参数，只需要修改base_boxplot里的内容，所有调用都会同步更新，再也不用改好几处了！

情况2：用基础R的boxplot函数 #

如果是用基础R的原生boxplot()，可以把参数打包成一个列表，然后用do.call()来调用：

# 第一步：把所有重复的参数存到列表里
boxplot_args <- list(
  formula = mpg ~ factor(cyl),
  data = mtcars,
  col = "lightblue",
  border = "darkblue",
  outcol = "red",
  width = 0.7,
  xlab = "气缸数",
  ylab = "每加仑英里数"
)

# 第一次调用，临时添加标题参数
do.call(boxplot, c(boxplot_args, main = "第一次箱线图"))

# 第二次调用，修改标题后再调用
boxplot_args$main <- "第二次箱线图"
do.call(boxplot, boxplot_args)

这种方式同样能帮你把重复的参数集中管理，大幅减少冗余代码。

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