ggplot2分面图图例优化：移除柱状图例项中的叠加散点

核心问题是ggplot默认会把所有几何对象的美学元素合并到图例里，柱状图的图例条目会带上散点的形状标记，直接用scale_shape_manual只能设置散点本身的形状，没法控制柱状图图例里的多余元素，给你两种靠谱的解决办法：

方法一：用guides()覆盖柱状图图例的形状属性 #

这是最直接的方案，针对柱状图的填充图例，手动把形状设为NA，就能移除叠加的散点：

library(ggplot2)
library(tidyr)

# 模拟你的数据集（如果你的数据是宽格式，先转成长格式）
df <- data.frame(
  Group = rep(c("Control", "Treatment1", "Treatment2"), each=3),
  Shoot_1_height = rnorm(9, 15, 3),
  Shoot_2_height = rnorm(9, 17, 3),
  Shoot_3_height = rnorm(9, 16, 3),
  Canopy_height = rowMeans(.[,2:4]) + rnorm(9, 0, 0.8)
)
df_long <- pivot_longer(df, cols = starts_with("Shoot"), names_to = "Shoot", values_to = "Height")

# 修改后的绘图代码
ggplot(df_long, aes(x = Group, y = Height)) +
  geom_col(aes(fill = Shoot), position = position_dodge(width = 0.8), alpha = 0.7) +
  # 绘制冠层高度均值的散点，单独映射shape
  geom_point(aes(y = Canopy_height, shape = "冠层均值"), color = "darkred", size = 3) +
  scale_shape_manual(values = 16) +
  # 关键：让填充图例（柱状图）的形状为空，移除散点
  guides(fill = guide_legend(override.aes = list(shape = NA))) +
  facet_wrap(~Group) +
  labs(fill = "枝条高度", shape = "")

方法二：分离几何对象的美学映射 #

如果你的散点数据是单独的（比如每个分组只有一个冠层均值），可以让散点不继承柱状图的美学映射，避免图例元素混淆：

# 先提取冠层均值的单独数据集（每个分组一行）
canopy_df <- aggregate(Canopy_height ~ Group, data = df, mean)

ggplot(df_long, aes(x = Group, y = Height)) +
  geom_col(aes(fill = Shoot), position = position_dodge(width = 0.8), alpha = 0.7) +
  # 用单独的数据集，且不继承柱状图的aes，避免fill映射影响图例
  geom_point(data = canopy_df, aes(x = Group, y = Canopy_height, shape = "冠层均值"), 
             color = "darkred", size = 3, inherit.aes = FALSE) +
  scale_shape_manual(values = 16) +
  facet_wrap(~Group) +
  labs(fill = "枝条高度", shape = "")

为什么你的scale_shape_manual没生效？ #

scale_shape_manual只是设置散点本身的形状，而柱状图的图例默认会包含所有图层的美学属性（包括shape），所以即使你设置了散点的形状，柱状图的图例条目还是会带上这个形状标记，必须用override.aes手动清除，或者分离美学映射来避免。

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