如何在ggplot2柱状图中将X轴移至Y轴0值处（无需geom_hline）

要实现将X轴（轴线）移到Y=0位置，同时保留底部的type标签，无需额外绘制水平线，直接通过调整ggplot2的主题设置即可完成，代码如下：

library(ggplot2)
set.seed(42)

data <- data.frame(type = sample(LETTERS[1:2], replace = TRUE, 20), values = runif(20)*c(-1, 1))

ggplot(data, aes(x = type, y = values)) +
  geom_point(size = 5)+
  stat_summary(fun=mean, geom='bar', color = "black", alpha = 0.5) +
  stat_summary(fun.data=mean_se, geom='errorbar', width=0.4, size = 1)+
  theme_classic() +
  # 将X轴线定位到Y=0处
  theme(
    axis.line.x = element_line(yintercept = 0),
    # 保持X轴标签在图表底部
    axis.text.x = element_text(vjust = 1)
  ) +
  # 扩展Y轴范围，确保X轴线完整显示
  scale_y_continuous(expand = expansion(add = 0.1))

关键设置说明 #

• axis.line.x = element_line(yintercept = 0)：直接修改X轴线的垂直位置，让它与Y轴0值相交，这会替换原有的底部轴线，不会产生双轴问题。
• axis.text.x = element_text(vjust = 1)：调整标签的垂直偏移量，确保标签仍留在图表底部，不随轴线移动。
• scale_y_continuous(expand = ...)：扩展Y轴的显示范围，避免X轴线因数据边界被截断，保证轴线完整显示。

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