如何用R的ggplot2复刻Python堆叠条形图并修正边框匹配问题

核心问题根源 #

第二次geom_col()调用时，ggplot会自动根据数据重新排序堆叠组，导致Project与Type的对应关系错位。解决的关键是固定堆叠顺序，避免自动重排，同时尽量用单次图层调用实现样式需求，减少冲突。

可行解决方案 #

1. 提前用有序因子固定项目顺序

先将Project列转换为有序因子，指定与matplotlib图表一致的项目顺序，确保所有图层都遵循同一顺序：

# 按原始图表的项目顺序定义levels
project_order <- c("Project1", "Project2", ..., "Project24")
df$Project <- factor(df$Project, levels = project_order, ordered = TRUE)

之后所有图层的堆叠顺序都会严格遵循这个因子顺序，不会因多次geom_col()调用打乱。

2. 用单图层实现NME边框样式，避免重复geom_col

不需要单独调用第二个geom_col()，直接在主geom_col()里通过color映射实现NME类型的黑色边框，其他项目隐藏边框：

ggplot(df, aes(x = Phase, y = Value, fill = TA, group = Project)) +
  # 仅给NME类型添加黑色边框，其他项目边框设为NA（或与填充色一致）
  geom_col(aes(color = ifelse(Type == "NME", "black", NA)), 
           position = "stack", size = 1) +
  # 识别自定义color映射
  scale_color_identity() +
  # 添加External项目的红色菱形标记
  geom_point(data = subset(df, Type == "External"), 
             aes(x = Phase, y = Value),
             shape = 2, color = "red", size = 3,
             position = position_stack(vjust = 0.5)) +
  # 添加Project名称标注（需计算堆叠位置）
  geom_text(aes(label = Project, y = cumulative_value),
            position = position_stack(vjust = 0.5), size = 3) +
  # 其他样式调整（图例、主题等）
  labs(x = "Phase", y = "Value", fill = "TA") +
  theme_minimal()

注：cumulative_value需要提前计算，即每个堆叠条的累计y轴位置，用于将文本放在条的中间。

3. 若必须用双geom_col，强制保持顺序一致

如果坚持用第二个geom_col()实现边框，需确保两次调用的group和order参数完全匹配，并且基于有序因子：

ggplot(df, aes(x = Phase, y = Value, fill = TA, group = Project, order = Project)) +
  geom_col(position = "stack") +
  # 仅绘制NME项目的边框层，设置fill为透明
  geom_col(data = subset(df, Type == "NME"), 
           aes(x = Phase, y = Value),
           fill = "transparent", color = "black", size = 1,
           position = "stack") +
  # 后续标记、标注代码同上

关键注意事项 #

• 所有涉及堆叠的图层必须指定group = Project，确保按项目分组堆叠
• 优先使用有序因子控制顺序，这是ggplot2中稳定控制元素顺序的标准方法
• 尽量用单图层实现多样式需求，减少图层间的顺序冲突

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