R语言：使用geom_bar绘制重叠数值列柱状图的显示问题求助

问题原因 #

你当前用两个独立的geom_bar图层，后绘制的红色b列会覆盖先绘制的蓝色a列，且position="stack"在多图层场景下无法实现预期的堆叠效果——它仅针对同一图层内的分组生效。

推荐解决方案：转换为长格式数据绘图 #

ggplot2更适配长格式数据，只需一次geom_bar即可实现堆叠，避免图层覆盖：

1. 加载tidyr包转换数据格式：

library(tidyr)
# 将宽格式转为长格式
dt_long <- pivot_longer(dt, cols = c(a, b), names_to = "variable", values_to = "value")

2. 用单图层绘图：

library(ggplot2)
graph <- ggplot(dt_long, aes(x = Time, y = value, fill = variable)) +
  geom_bar(stat = "identity", position = "stack") +
  # 自定义颜色匹配需求
  scale_fill_manual(values = c("a" = "blue", "b" = "red"))
print(graph)

这种方式会自动将同一Time下的a、b值堆叠，正数向上、负数向下，不会出现覆盖问题，同时更易扩展（后续增加列只需调整转换参数）。

临时解决方案：调整图层顺序 #

如果不想转换数据，可将b的图层放在前面，a的图层放在后面，让a的正数条显示在上方：

graph <- ggplot(data = dt) +
  geom_bar(aes(x = Time, y = b), group = 1, stat = "identity", fill = "red", position = "stack") +
  geom_bar(aes(x = Time, y = a), group = 1, stat = "identity", fill = "blue", position = "stack")

但这种方法仅适用于两列场景，扩展性差，不推荐长期使用。

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