ggplot2多图例水平排列及图案图例显示异常问题

问题分析 #

你遇到的两个核心问题：

• 填充色（temp）与图案（water）图例绑定在一起，无法单独调整位置
• 图案图例中的条纹等样式未正常显示

这是因为ggplot2原生不支持图案填充（需依赖ggpattern包），且默认会将映射到同一几何对象的美学属性图例合并，需手动分离控制。

修正后可复现代码 #

library(ggplot2)
library(ggpattern) # 必须加载此包实现图案填充

# 构造示例数据（匹配你的因子水平数量）
set.seed(123)
df <- expand.grid(
  DES = paste0("DES_", 1:5),
  temp = c("Low", "High"),
  water = c("Dry", "Moist", "Wet")
)
df$value <- rnorm(nrow(df))

# 绘图代码
ggplot(df, aes(x = DES, y = value)) +
  # 使用geom_col_pattern替代geom_col，支持图案填充
  geom_col_pattern(
    aes(fill = temp, pattern = water),
    position = position_dodge(width = 0.8),
    pattern_fill = "black",  # 图案线条颜色
    pattern_size = 0.5,      # 图案线条粗细
    fill = "white"           # 基础填充色，让图案更清晰
  ) +
  # 自定义填充色
  scale_fill_manual(values = c(Low = "#619CFF", High = "#F8766D")) +
  # 自定义图案类型
  scale_pattern_manual(values = c(Dry = "stripe", Moist = "cross", Wet = "dot")) +
  # 独立控制两个图例的位置与样式
  guides(
    fill = guide_legend(
      title = "Temperature",
      position = "top",  # 填充色图例放置顶部
      override.aes = list(pattern = "none")  # 填充色图例移除图案，避免干扰
    ),
    pattern = guide_legend(
      title = "Water Level",
      position = "right",  # 图案图例放置右侧
      override.aes = list(fill = "white")  # 用白色填充背景，确保图案显示
    )
  ) +
  theme_minimal() +
  theme(
    legend.box = "vertical",
    legend.spacing.y = unit(1, "lines")  # 调整图例间距
  )

关键修复说明 #

1. 图案显示修复：

   • 必须加载ggpattern包，使用geom_col_pattern替代原生geom_col，这是实现图案填充的基础
   • 通过pattern_fill和pattern_size调整图案的颜色和粗细，fill = "white"避免填充色覆盖图案

2. 图例独立定位修复：

   • 使用guides()分别对fill和pattern图例进行配置
   • 通过override.aes分离两个图例的样式：填充色图例去掉图案，图案图例用白色填充背景
   • 利用position参数分别指定两个图例的位置（如顶部、右侧），实现独立定位

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