ggplot重叠条形图Horizon分组配色与图例不一致问题排查

问题原因 #

• Horizon变量未设置固定因子水平，ggplot默认按数据中水平的出现顺序分配配色，不同分组的水平数量、顺序不一致会导致配色与图例不匹配
• position = "identity"搭配alpha=0.3的半透明设置，会让重叠的条形颜色混合，产生预设色板之外的混合色

修复代码 #

# 1. 固定Horizon因子水平，括号内替换为你实际的Horizon取值，顺序按需求自定义
RdataHor$Horizon <- factor(RdataHor$Horizon, levels = c("A", "B", "C", "O"))
RdataHor$Site <- as.character(RdataHor$Site)
RdataHor$Site <- factor(RdataHor$Site, levels=unique(RdataHor$Site))
Horizondata <- RdataHor
# 2. 自定义固定配色，键名必须和Horizon的因子水平完全一致，色值可按需修改
custom_colors <- c(
  "A" = "#8B4513",
  "B" = "#D2B48C",
  "C" = "#F5DEB3",
  "O" = "#228B22"
)
# 3. 绘图代码调整
ggplot(data = Horizondata, aes(x = Site, y = Depth, fill = Horizon)) +
  # 无需重叠展示可把position改为"stack"，alpha设为1避免混色
  geom_col(position = "identity", alpha = 0.3) + 
  scale_y_reverse() +
  # 绑定固定配色，drop=FALSE保证缺失水平也不会打乱配色规则
  scale_fill_manual(values = custom_colors, drop = FALSE)

调整说明 #

• 手动指定的配色向量使用命名格式，每个Horizon取值和颜色一一对应，不受数据中水平出现顺序的影响
• drop = FALSE参数保证即使某个Site下没有对应Horizon水平，整体配色规则也保持一致，不会出现配色偏移
• 如果不需要展示重叠效果，将position = "identity"改为position = "stack"，同时把alpha调整为1，即可彻底避免颜色叠加产生的异常视觉效果

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