ggplot中柱状图与x轴pre/post标签对齐问题求助

你的代码存在几个关键问题导致对齐错位，直接修正方案如下：

核心问题拆解 #

1. x轴变量类型不匹配：treatment是数值型（0、1），但你用scale_x_discrete强行替换成离散标签"pre""post"，ggplot会默认将数值0、1映射到离散轴的默认位置，和手动设置的标签无法精准对应。
2. 多余的position_dodge()：你每组只有一个柱子，这个参数会强制柱子偏离中心位置，完全没必要。
3. y轴变量名错误：代码里写的y = share，但你的数据中对应的列是collective_share，这会导致绘图逻辑混乱（虽然你说运行无报错，大概率是环境里有其他同名变量，但必须修正）。

修正后的完整代码 #

# 先把treatment转换成带对应标签的因子
df$treatment <- factor(df$treatment, levels = c(0, 1), labels = c("pre", "post"))

ggplot(data = df, aes(x = treatment, fill = treatment, y = collective_share)) +
  geom_bar(stat = "identity") +  # 移除多余的position_dodge()
  ylab("% Share of mentions") + 
  theme(text = element_text(size = 10)) +
  labs(fill = 'implementation') + 
  xlab("Period") +
  theme(plot.title = element_text(size = 10, face = "bold"))

修正逻辑说明 #

• 将treatment转成因子并直接指定标签，让x轴的每个类别（pre/post）和对应的柱子天然精准对齐，无需额外用scale_x_discrete调整。
• 去掉position_dodge()，单组柱子默认会居中对齐x轴标签。
• 修正y轴变量名，确保调用的是数据中正确的collective_share列。

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