如何在ggplot中为通用美学统一修改图例标题避免重复？

当然有更简洁的方法，不用重复设置每个美学属性的标题，以下是两种实用方案：

方案1：合并图例并统一设置标题 #

当多个美学属性（如color/shape/linetype/fill）映射到同一变量时，ggplot默认会尝试合并这些图例。你只需为其中一个属性设置标题，将其他属性的标题设为NULL即可：

ggplot(data = mtcars, aes(x = mpg, y = wt, 
                          color = factor(am), shape= factor(am), linetype=factor(am), fill=factor(am))) + 
  geom_point() + geom_smooth() +
  guides(
    color = guide_legend(title = "long legend title"),
    shape = guide_legend(title = NULL),
    linetype = guide_legend(title = NULL),
    fill = guide_legend(title = NULL)
  )

这样所有美学属性的图例会合并成一个，只显示一次你设置的标题。

方案2：用变量存储标题减少重复书写 #

如果你不想合并图例（此类场景较少见），可以先将标题内容存储为变量，再在labs()中引用，避免重复输入长字符串：

legend_title <- "long legend title"
ggplot(data = mtcars, aes(x = mpg, y = wt, 
                          color = factor(am), shape= factor(am), linetype=factor(am), fill=factor(am))) + 
  geom_point() + geom_smooth() +
  labs(color = legend_title, shape = legend_title, linetype = legend_title, fill = legend_title)

补充说明 #

如果合并图例后标题显示异常，可以检查theme()中的legend.title设置，确保没有使用element_blank()这类隐藏标题的样式。

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