如何调整堆叠条形图中同Outcome不同Method组的条形间距？

没问题！我来帮你调整这个条形图的布局，让相同Outcome下不同Method的堆叠条形紧密并列，同时不同Outcome组之间保持清晰的间隔。

问题分析 #

你当前的代码把Outcome和Method合并成了一个单一的x轴因子（factor(st2$Outcome:st2$Method)），这导致每个Outcome+Method的组合都被当作独立的x类别，所有条形之间的间距都是一样的。我们需要重新组织x轴和分组逻辑，实现“同Outcome内Method并列、不同Outcome间保持间距”的效果。

修改后的完整代码 #

# 重新构建绘图逻辑
p7 <- ggplot(st2, aes(x = Outcome, y = Percentage, fill = Event, 
                      group = interaction(Method, Event), alpha = Method)) +
  # 用position_dodge实现同Outcome下Method的并列，width控制并列间距
  geom_bar(position = position_dodge(width = 0.8), stat = "identity", 
           width = 0.7, colour = "black") +
  # 让文字跟随条形并列，保持和geom_bar一致的dodge宽度
  geom_text(aes(label = label), 
            position = position_dodge(width = 0.8),
            size = 4, vjust = 0.5) +
  coord_flip()

# 保留你的样式设置，可选添加Method的图例标题
p8 <- p7 + labs(x = "Outcome", y = "Percentage Values", fill = "Legend") +
  scale_fill_grey(start = 1, end = 0.8) +
  scale_alpha_discrete(name = "Method") + # 给透明度图例添加标题，可按需删除
  theme(axis.text = element_text(size = 15),
        axis.title = element_text(size = 17, face = "bold"),
        legend.title = element_text(size = 13),
        legend.text = element_text(size = 12))

# 应用主题设置
p8 + theme_bw() +
  theme(panel.border = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.line = element_line(colour = "black"))

关键修改点说明 #

• x轴调整：把x轴从合并因子改为Outcome，让x轴的类别回归4个Outcome值，为分组并列提供基础
• 分组逻辑：用interaction(Method, Event)作为group参数，告诉ggplot要同时按Method和Event分组，实现“先堆叠Event，再按Method并列”的效果
• 并列间距控制：position_dodge(width = 0.8)控制相同Outcome下两个Method条形的间距，你可以根据需求调整数值（比如0.7会让间距更小，0.9则更大）
• 文字对齐：geom_text中的position_dodge宽度要和geom_bar保持一致，确保文字准确对应到各自的堆叠条形上

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