R语言ggplot2翻转堆叠条形图展示异常问题求助

问题 #

我们有如下R数据框：

t = c(0, 1, 2, 3, 4, 5, 6)
x = c("b", "b", "w", "w", "b", "b", "b")
y = c("b", "b", "b", "b", "w", "w", "w")
df = data.frame(t, x, y)

希望使用ggplot2绘制翻转堆叠条形图，预期x对应的堆叠条形为黑-白-黑，y对应的为黑-白，但实际生成的图形中两者均为白-黑。

已编写的数据处理代码：

colors <- c("b" = "black", "w" = "white")
df_long <- pivot_longer(df, cols = c("x", "y"), names_to = "variable", values_to = "value")
df_long$value <- factor(df_long$value, levels = c("b", "w"))

绘图代码：

ggplot(df_long, aes(x = variable, fill = value)) +
  geom_bar(position = position_stack(reverse = FALSE)) +
  scale_fill_manual(values = colors) +
  coord_flip()

已检查df和df_long的数据结构无异常，需明确问题原因及解决方法。

原因分析 #

1. 统计逻辑偏差：原代码中geom_bar()默认对每个variable下的value进行计数统计，会把所有相同颜色的条目合并堆叠，自然只会得到两组色块，无法体现t维度的顺序变化。
2. 堆叠顺序受翻转影响：即便设置了position_stack(reverse = FALSE)，coord_flip()会进一步反转堆叠的上下顺序，导致颜色显示和预期相反。

解决方法 #

要实现按t顺序的分段堆叠效果，需保留时间维度的顺序信息，让每个时间点的色块作为独立单元参与堆叠：

方法1：基于时间顺序的堆叠条形图 #

通过group映射t的顺序，确保堆叠时按时间排列，再调整反转参数匹配预期：

library(ggplot2)
library(tidyr)

# 原数据
t = c(0, 1, 2, 3, 4, 5, 6)
x = c("b", "b", "w", "w", "b", "b", "b")
y = c("b", "b", "b", "b", "w", "w", "w")
df = data.frame(t, x, y)

colors <- c("b" = "black", "w" = "white")

# 转换长格式并保留t的顺序因子
df_long <- pivot_longer(df, cols = c("x", "y"), names_to = "variable", values_to = "value")
df_long$t_order <- factor(df_long$t, levels = t) # 固定时间顺序

ggplot(df_long, aes(x = variable, fill = value, group = t_order)) +
  geom_bar(position = position_stack(reverse = TRUE), width = 1) + # reverse=TRUE抵消coord_flip的反转
  scale_fill_manual(values = colors) +
  coord_flip()

方法2：使用瓦片图更直观展示时间序列色块 #

如果核心需求是展示每个时间点的颜色变化，geom_tile()比堆叠条形更清晰，能直接对应t的顺序：

ggplot(df_long, aes(x = variable, y = t, fill = value)) +
  geom_tile(color = "gray50") + # 添加边框区分每个时间单元
  scale_fill_manual(values = colors) +
  coord_flip() +
  scale_y_reverse() # 让t=0显示在顶部，符合常规阅读顺序

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