如何自动用ggplot2及ggthemes所有主题绘图并批量生成主题列表？

嘿，这个需求我太懂了！手动一个个列主题实在太麻烦，咱们可以用R的反射机制自动抓取所有符合条件的主题函数，轻松实现批量绘图，完全不用手动维护主题列表。下面是具体步骤：

1. 加载必要的包 #

首先确保你安装了所需的包，然后加载它们：

# 如果没安装先装包
install.packages(c("ggplot2", "ggthemes", "purrr", "patchwork"))

library(ggplot2)
library(ggthemes)
library(purrr)  # 用来高效遍历列表
library(patchwork)  # 用来拼接所有图

2. 自动生成主题函数列表 #

我们可以通过筛选包中以theme_开头的函数，来自动获取所有主题：

抓取ggplot2自带的主题 #

# 获取ggplot2包中所有以theme_开头的函数名
ggplot2_theme_names <- ls("package:ggplot2", pattern = "^theme_")
# 将字符名转换为可调用的函数对象
ggplot2_themes <- lapply(ggplot2_theme_names, get)
# 给列表命名，方便后续识别主题
names(ggplot2_themes) <- ggplot2_theme_names

抓取ggthemes中的主题 #

用同样的方法处理ggthemes：

ggthemes_theme_names <- ls("package:ggthemes", pattern = "^theme_")
ggthemes_themes <- lapply(ggthemes_theme_names, get)
names(ggthemes_themes) <- ggthemes_theme_names

合并两个主题列表 #

把ggplot2和ggthemes的主题合并成一个完整列表：

all_themes <- c(ggplot2_themes, ggthemes_themes)

3. 批量生成带主题的图形 #

先创建你的基础图形（这里用mtcars数据集的散点图做示例）：

base_plot <- ggplot(mtcars, aes(x = mpg, y = hp)) +
  geom_point(color = "#2c3e50", size = 2)

然后遍历主题列表，给基础图应用每个主题：

# 生成所有带主题的图，每个元素是一个ggplot对象
theme_plots <- map(all_themes, ~ base_plot + .x)

4. （可选）把所有图拼接成一张大图 #

如果想一次性查看所有主题效果，用patchwork把它们拼起来：

# 按4列排列所有图，自动调整行数
wrap_plots(theme_plots, ncol = 4) +
  plot_annotation(title = "所有ggplot2和ggthemes主题效果展示",
                  subtitle = "基于mtcars数据集的mpg vs hp散点图")

小提示 #

• 这种方法会自动包含包中所有新增的主题，以后更新ggplot2或ggthemes时，不用手动修改代码就能获取新主题
• 少数theme_开头的函数可能不是主题（比如theme_set），但用^theme_的正则筛选已经能过滤掉大部分非主题函数，如果你发现有异常，可以手动从列表中移除
• 如果想单独保存每个主题的图，可以在遍历的时候加上ggsave，比如：

  iwalk(theme_plots, ~ ggsave(filename = paste0("plot_", .y, ".png"), plot = .x, width = 6, height = 4))
  

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