如何修改R中ggpattern绘图的图例标题？

核心问题分析 #

你遇到的生成新图例的问题，主要有两个原因：

• 函数拼写错误：你写的guides_legend是错误写法，正确函数为guide_legend（少一个s）。
• 图例对应美学不匹配：原始的"Center"图例可能绑定的是fill/color这类基础ggplot美学，而非pattern，修改pattern的图例时，原美学的图例仍保留，看起来像生成了新图例。

具体解决方案 #

情况1：图例直接绑定pattern美学 #

如果图表是将Center映射到pattern美学，修正函数名即可：

library(ggplot2)
library(ggpattern)

# 示例数据集
df <- data.frame(
  Center = c("Group1", "Group2", "Group3"),
  Value = c(25, 30, 20)
)

ggplot(df, aes(x = Center, y = Value, pattern = Center)) +
  geom_col_pattern(pattern_fill = "black", pattern_angle = 45) +
  # 修正函数名，直接修改pattern图例标题
  guides(pattern = guide_legend(title = "Legenda"))

情况2：图例绑定fill/color+pattern组合美学 #

如果同时将Center映射到填充色和图案，可统一修改标题或合并图例：

# 方法1：用labs统一修改所有关联美学的标题
ggplot(df, aes(x = Center, y = Value, fill = Center, pattern = Center)) +
  geom_col_pattern() +
  labs(fill = "Legenda", pattern = "Legenda")

# 方法2：合并图例，只保留一个（隐藏pattern单独图例）
ggplot(df, aes(x = Center, y = Value, fill = Center, pattern = Center)) +
  geom_col_pattern() +
  guides(fill = guide_legend(title = "Legenda"), pattern = FALSE)

情况3：直接通过scale函数修改标题 #

也可以在对应的scale配置里直接指定标题：

ggplot(df, aes(x = Center, y = Value, pattern = Center)) +
  geom_col_pattern() +
  scale_pattern_discrete(title = "Legenda")

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