ggplot2堆叠条形图颜色不重复问题及可视化优化求助

问题原因分析 #

你遇到的问题核心在于ggplot默认会将同一Chromosome和Atr分组的End_position数值求和合并，导致相同Atr的所有行被整合成一个大色块，而非每个行对应独立的小色块。要解决这个问题，关键是给每一行数据设置唯一的分组标识，让ggplot把每个观测都当作单独的堆叠段处理。

修正后的代码 #

先把你的数据整理成清晰的可复现格式：

以下是修正后的绘图代码，核心是在aes中添加唯一分组标识，同时做了基础优化：

library(ggplot2)
library(scales) # 用于格式化大数值坐标轴

ggplot(df2, aes(x = Chromosome, y = End_position, 
                fill = Atr, label = End_position,
                group = seq_along(End_position))) +
  geom_col() + # 等价于geom_bar(stat="identity")，代码更直观
  geom_text(size = 3, position = position_stack(vjust = 0.5), 
            check_overlap = TRUE) + # 自动移除重叠文本，避免拥挤
  ggtitle('Stacked Chromosome Segments') +
  labs(x = "Chromosome", y = "End Position", fill = "Atr Type") + # 完善标签说明
  scale_y_continuous(labels = comma) + # 格式化y轴大数值，提升可读性
  scale_fill_brewer(palette = "Set2") + # 替换专业配色板
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5), # 标题居中
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) # x轴文本倾斜防重叠

关键代码解释 #

• group = seq_along(End_position)：给每一行数据分配唯一分组ID，强制ggplot将每个观测作为独立堆叠段，不再合并相同fill的组。
• check_overlap = TRUE：自动过滤重叠的文本标签，解决小数值段的文本拥挤问题。
• scale_y_continuous(labels = comma)：把超大数值的y轴标签格式化为带逗号的形式（如35383099变为35,383,099），大幅提升可读性。

可视化进阶优化建议 #

1. 数据排序：对每个染色体下的行按End_position排序，让堆叠色块按大小排列，逻辑更清晰：

   library(dplyr)
   df2_sorted <- df2 %>% 
     group_by(Chromosome) %>% 
     arrange(End_position) %>% 
     ungroup()
   

2. 色盲友好配色：使用scale_fill_viridis_d()替代默认配色，兼顾美观和色盲人群的可读性。
3. 文本精细化控制：如果仍有文本重叠，可通过size缩小字号，或用ifelse只显示大于阈值的标签：

   geom_text(aes(label = ifelse(End_position > 1000000, End_position, "")), 
             size = 3, position = position_stack(vjust = 0.5))
   

4. 主题定制：通过theme()调整元素样式，比如隐藏网格线、修改图例位置，进一步简化视觉干扰。

当前问题图表参考 #

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