R 保存GggPlot对象以在不同数据集上使用

发布于12月19日

我们都知道我们能做到

p <- ggplot(data)
p + aes(x = funny_hat) + geom_histogram()

但我从未见过相反的 case .假设我想存储一堆ggplot对象，例如:

geom_boxplot() + stat_compare_means(method = "anova", size = 14, vjust = 1) +
scale_y_continuous(breaks = seq(-2,2.5, 0.5)) + theme(text = element_text(size = 48))

...这样我就可以为不同的数据集插入所有这些内容，例如

ggplot(data1) + [all my arguments]
ggplot(data2) + [all my arguments]

如果我try 使用与第一个示例中相同的方法，这将不起作用，但是有什么方法可以做到这一点吗？我厌倦了复制粘贴...

推荐答案

诀窍是使用list个元素来制作模板，然后将模板应用于不同的数据框:

library(ggplot2)
library(ggpubr) 

plot_template <- list(
  geom_boxplot(),
  stat_compare_means(method = "anova", size = 14, vjust = 1),
  scale_y_continuous(breaks = seq(-2, 2.5, 0.5)),
  theme(text = element_text(size = 48))
)

# test
ggplot(mtcars, aes(x = factor(gear), y = mpg)) + plot_template

ggplot(iris, aes(x = Species, y = Petal.Length)) + plot_template