如何在多图例柱状图中编辑ggpatterns图例

核心需求实现代码 #

假设你的原始代码框架如下，以下是整合所有需求的优化版本：

# 加载依赖包
library(ggplot2)
library(ggpatterns)
library(dplyr)

# 确保Type因子顺序为Pelagic、Benthic、Other（已按你的要求预处理）
df <- df %>%
  mutate(Type = factor(Type, levels = c("Pelagic", "Benthic", "Other")))

# 绘图主代码
ggplot(df, aes(x = Prey_Name, y = Value, fill = Prey_Name, pattern = Type)) +
  geom_col_pattern(
    pattern_fill = "black",
    pattern_color = "black",
    # 提升图案清晰度：Pelagic增加线条密度，Benthic增加圆圈密度
    pattern_density = case_when(
      Type == "Pelagic" ~ 0.3,
      Type == "Benthic" ~ 0.4,
      TRUE ~ 0.2
    ),
    pattern_spacing = case_when(
      Type == "Pelagic" ~ 0.02,
      Type == "Benthic" ~ 0.03,
      TRUE ~ 0.05
    ),
    # 为图案图例项添加外框
    key_glyph = draw_key_polygon,
    color = "black"
  ) +
  # 图例精细化设置
  guides(
    pattern = guide_legend(
      title = NULL,  # 移除Type图例标题
      override.aes = list(color = "black"),  # 强制图例项显示外框
      position = "top",
      order = 1  # 让图案图例排在前面
    ),
    fill = guide_legend(
      title = "Prey Name",  # 保留Prey Name图例标题
      order = 2
    )
  ) +
  # 美学优化
  theme_minimal() +
  theme(
    # 让图案图例居中于Prey Name图例上方
    legend.box = "vertical",
    legend.box.just = "center",
    legend.position = "top",
    # 优化坐标轴文本可读性
    axis.text.x = element_text(angle = 45, hjust = 1),
    # 移除多余网格线
    panel.grid.major.x = element_blank()
  )

关键需求拆解说明 #

• 提升图案清晰度：通过pattern_density（图案密度）和pattern_spacing（元素间距）参数，分别给Pelagic（线条类）增大密度、缩小间距，给Benthic（圆圈类）增大密度，让图案更清晰易辨。
• 图案图例外框：设置key_glyph = draw_key_polygon并指定color = "black"，让图例项显示黑色外框；再通过guides(pattern)里的override.aes确保图例的外框样式生效。
• 图例标题控制：在guide_legend中给pattern设置title = NULL移除Type标题，fill保留title = "Prey Name"。
• 图例位置调整：用legend.position = "top"将整体图例移至顶部，legend.box = "vertical"让两个图例垂直排列，legend.box.just = "center"实现图案图例居中于Prey Name图例上方；order参数控制图案图例优先显示。

额外美学优化建议 #

• 统一配色：替换默认填充色为专业配色，比如scale_fill_viridis_d(option = "D")或scale_fill_brewer(palette = "Set2")，提升色彩和谐度。
• 调整柱子宽度：在geom_col_pattern中添加width = 0.7，让柱子更舒展，避免拥挤。
• 添加数据标签：用geom_text(aes(label = Value), vjust = -0.5, size = 3.5)在柱子顶部添加数值标签，直观展示数据。
• 补充图表主题：添加labs(title = "猎物组成按类型分布", subtitle = "图案区分远洋/底栖/其他类群")，明确图表核心信息。

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