ggplot绘制分组叠加直方图出现颜色异常及无图例问题

问题描述 #

使用以下代码生成叠加分组直方图时，出现三个异常：

1. 直方图仅显示灰度，未应用指定的#00AFBB和#E7B800颜色
2. alpha=0.4的透明效果未生效
3. 完全看不到图例

用户原代码：

rap.df<-data.frame(RAPdata)
lastHCT<-RAPdata$HCT_last
rap<-RAPdata$RAP

theme_set(
  theme_classic() + 
    theme(legend.position = "top")
)

ggplot(rap.df, aes(x = lastHCT)) +
  geom_histogram(aes(group = rap), 
                 position = "identity", bins = 20, alpha = 0.4) +
  scale_color_manual(values = c("#00AFBB", "#E7B800")) +
  scale_fill_manual(values = c("#00AFBB", "#E7B800"))

问题原因 #

• group=rap仅告诉ggplot按rap分组计算直方图，但没有将rap映射到颜色/填充美学，导致scale_color_manual和scale_fill_manual的颜色设置无法生效，也不会生成图例。
• 无颜色映射时，ggplot默认用灰度区分分组，且alpha的透明叠加效果因灰度差异不明显而无法体现。

修复代码及说明 #

修复后的完整代码：

rap.df <- data.frame(RAPdata)

theme_set(
  theme_classic() + 
    theme(legend.position = "top")
)

# 关键：将rap映射到color和fill美学，自动处理分组并生成图例
ggplot(rap.df, aes(x = lastHCT)) +
  geom_histogram(aes(color = rap, fill = rap), 
                 position = "identity", bins = 20, alpha = 0.4) +
  scale_color_manual(values = c("#00AFBB", "#E7B800")) +
  scale_fill_manual(values = c("#00AFBB", "#E7B800"))

核心修改点 #

1. 美学映射修正：把aes(group = rap)改为aes(color = rap, fill = rap)，让ggplot根据rap的取值分配轮廓色和填充色，同时自动生成对应图例。
2. 简化代码：删除单独提取lastHCT和rap列的冗余操作，直接使用rap.df中的列即可。
3. 可选优化：如果rap是数值型变量，建议先转为因子类型，确保图例标签清晰：

rap.df$rap <- factor(rap.df$rap)

修改后，指定颜色会正常应用，alpha=0.4的透明叠加效果会显现，顶部的图例也会正确显示。

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