ggplot2多图绘制添加通用图例报错但生成图形的问题咨询

报错原因分析 #

你遇到的这个错误，核心问题是传给ggarrange的输入里，并非所有对象都是ggplot图形对象。比如eight_uniform、ten_uniform这些变量中，可能有某个被误设成了数据框、单个数值/字符串这类原子向量，导致ggarrange在处理图形尺度（plot$scales）时无法识别，抛出报错。虽然后续用annotate_figure能勉强生成图形，但底层的对象结构有问题，很可能会带来图例显示异常、布局错位这类隐藏问题。

分步解决方案 #

1. 先验证所有输入对象的类型

先确认每个要组合的变量都是ggplot对象，运行这段代码检查：

# 把所有要组合的图放进列表，逐个检查类型
plot_check <- list(eight_uniform, ten_uniform, twelve_uniform, fourteen_uniform, sixteen_uniform)
lapply(plot_check, class)

输出结果里，每个元素都应该包含"ggplot"。如果有某个结果没有，就去重新生成对应的图形，确保你没有把原始数据或者其他非ggplot对象传进去。

2. 改用plotlist参数传递图形列表

确认所有对象都是ggplot后，建议用plotlist参数来传递图形列表，这种方式比逐个输入参数更稳妥，不容易出错：

plot_list <- list(eight_uniform, ten_uniform, twelve_uniform, fourteen_uniform, sixteen_uniform)
nucmer_s1 <- ggarrange(plotlist = plot_list, ncol=3, nrow=2, common.legend = TRUE, legend="bottom")

这样重新运行ggarrange，应该就不会再出现那个报错了。

3. 优化annotate_figure的图形效果

如果生成的图形存在标题不居中、图例位置奇怪或者空白区域过多的问题，可以调整text_grob的参数，比如让标题居中对齐：

annotate_figure(nucmer_s1, 
                top = text_grob("Genomas validados con distribución de datos equilibrada", 
                                color = "black", face = "bold", size = 12, hjust = 0.5))

另外，因为5个图形排3列2行，会多出一个空白子图位置，这是正常的。如果觉得这个空位影响美观，可以调整布局为ncol=2, nrow=3，让空位落在最后一行，视觉上更协调。

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