如何在Seurat中为VlnPlot生成的多幅小提琴图统一应用主题？

问题原因 #

当你用VlnPlot或DotPlot传入多个基因（features参数为向量）时，Seurat返回的是ggplot对象的列表，而非单个ggplot图。直接在末尾用+添加主题，只会对列表的最后一个图生效，而非所有子图。

解决方案 #

有两种常用方法可以为所有子图统一应用主题：

方法1：遍历图列表批量添加主题

先生成所有子图的列表，再用lapply遍历每个图，为其添加指定主题，最后用CombinePlots拼接展示。

针对小提琴图的示例代码：

# 生成多基因小提琴图列表
vln_plots <- VlnPlot(EMFAF, features=c("FAT1","GAPDH", "NPHP1", "BBS1"), group.by="Library", pt.size=0)
# 为每个图添加theme_minimal主题
vln_plots <- lapply(vln_plots, function(plot) plot + theme_minimal())
# 拼接并展示所有图
CombinePlots(vln_plots)

针对DotPlot自定义主题的示例代码：

# 生成多基因DotPlot列表
dot_plots <- DotPlot(EMFAF, features=integrin_genes, group.by = "Library")
# 为每个图添加自定义主题
dot_plots <- lapply(dot_plots, function(plot) {
  plot + theme(axis.text=element_text(size=8), 
               axis.title=element_text(size=10, face="bold"))
})
# 拼接展示所有图
CombinePlots(dot_plots)

方法2：设置全局ggplot主题

通过theme_set()设置全局默认主题，这样后续所有Seurat绘图函数生成的ggplot图都会自动继承该主题，无需逐个添加。

示例代码：

library(ggplot2)
# 设置全局主题为theme_minimal
theme_set(theme_minimal())
# 直接绘图，所有子图都会自动应用主题
VlnPlot(EMFAF, features=c("FAT1","GAPDH", "NPHP1", "BBS1"), group.by="Library", pt.size=0) %>% CombinePlots()

# 如果需要自定义全局主题
theme_set(theme(axis.text=element_text(size=8), 
                axis.title=element_text(size=10, face="bold")))
DotPlot(EMFAF, features=integrin_genes, group.by = "Library") %>% CombinePlots()

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