Seurat绘图功能增强：为多图组合添加全局标题

概述

在单细胞RNA测序数据分析中，Seurat是一个广泛使用的R语言工具包。它提供了丰富的可视化功能，其中FeaturePlot函数常用于展示基因表达模式。然而，当需要将多个基因表达图组合展示时，用户经常需要为整个组合图添加一个全局标题，这在Seurat的默认功能中并不直接支持。

问题背景

在分析单细胞数据时，研究人员通常会同时观察多个标记基因的表达情况。例如，在研究Sertoli细胞时，可能需要同时查看SOX9、WT1、AMH和CITED1等标记基因的表达模式。使用Seurat的FeaturePlot函数可以轻松生成这些基因的单独表达图，但将这些图组合起来并添加一个说明性的全局标题却需要额外的处理。

解决方案

原始解决方案

最初提出的解决方案是创建一个自定义函数AddTitle，该函数利用wrap_plots和grid::textGrob来在组合图上方添加标题：

AddTitle <- function(seurat_plot, title, ratio=14) {
    seurat_plot %>% {
        wrap_plots(
            grid::textGrob(title, gp=gpar(cex=3)),
            .,
            heights=c(1,ratio),
            widths=c(ceiling(sqrt(length(seurat_plot))),1),
            ncol=1
        )
    }
}

使用示例：

FeaturePlot(scdata, c('SOX9','WT1','AMH','CITED1')) %>% 
    AddTitle('Sertoli cells markers')

更简洁的解决方案

实际上，Seurat的绘图系统基于ggplot2和patchwork包，可以直接使用patchwork提供的plot_annotation功能来添加全局标题，这种方法更加简洁：

FeaturePlot(scdata, c('SOX9','WT1','AMH','CITED1')) + 
    patchwork::plot_annotation('Sertoli cells markers')

技术细节

1. patchwork包：这是一个专门用于组合和排列ggplot2图形的R包，提供了强大的图形布局和注释功能。

2. plot_annotation函数：可以添加全局标题、子标题和标签等注释元素，支持通过title参数指定主标题。

3. 样式定制：可以通过theme参数进一步定制标题的样式，如字体大小、颜色和对齐方式等。

最佳实践建议

1. 对于简单的标题添加需求，优先使用patchwork的plot_annotation方法，代码更简洁且易于维护。

2. 当需要更复杂的布局或特殊样式时，可以考虑自定义函数，但要注意保持代码的可读性。

3. 在发表级别的图形中，建议统一标题样式与正文中的图形风格保持一致。

总结

Seurat与patchwork包的结合为单细胞数据的可视化提供了强大的工具链。通过plot_annotation添加全局标题的方法不仅代码简洁，而且保持了ggplot2图形系统的灵活性。这一技巧可以广泛应用于各种需要组合多个单细胞基因表达图的场景，帮助研究人员更清晰地展示他们的发现。