我明白你想要的效果：垂直的X轴标签贴在条形顶部，同时每个标签的底部严格对齐X轴的对应刻度线——之前调整axis.text.x的hjust/vjust时，要么对齐了底部但位置不在条形上方，要么位置对了但标签没法统一对齐X轴，确实挺头疼的。下面给你两个可行的解决方案：

方案一：用geom_text完全自定义标签位置（最稳定） #

原生的轴文本位置是绑定在X轴刻度的“容器”里的，很难突破这个限制实现精准对齐。我们可以直接用geom_text生成标签，完全控制它的位置：

1. 先预处理数据，把分组映射到X轴的数值位置（离散型X轴本质是用1、2、3...来定位的）
2. 在geom_text里把标签的Y轴位置设为0（也就是X轴的位置），设置hjust=0让文本从底部开始向上竖排，这样每个标签的底部就刚好对齐X轴的对应刻度点，同时位于条形顶部。

library(ggplot2)
data(mpg)

# 预处理：给每个分组分配X轴数值位置
mpg$group <- interaction(mpg$manufacturer, mpg$year)
mpg$x_pos <- match(mpg$group, unique(mpg$group))

ggplot(mpg, aes(x = x_pos, y = hwy, fill = manufacturer)) +
  geom_bar(stat = "identity", width = 1, color = "black") +
  # 添加自定义垂直标签，y=0对应X轴位置，hjust=0确保从底部向上排
  geom_text(
    aes(x = x_pos, y = 0, label = group),
    angle = 90, size = 5, hjust = 0, vjust = 0,
    inherit.aes = FALSE  # 避免继承fill等美学映射
  ) +
  # 隐藏原生的X轴文本和刻度（避免重复）
  theme(
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank(),
    axis.title.x = element_blank()
  )

这个方案的优势是位置绝对精准，不受图表尺寸、主题设置的影响，适合需要严格对齐的场景。

方案二：调整轴文本的margin和对齐参数（更简洁） #

如果不想额外处理数据，也可以通过调整旋转后文本的margin来实现——注意：当文本旋转90度后，margin的方向也会跟着旋转：原来的right边距会变成文本的“底部”方向，我们可以通过负数边距把文本向下拉，直到底部对齐X轴。

library(ggplot2)
data(mpg)

ggplot(mpg, aes(x=interaction(manufacturer, year), y=hwy, fill=manufacturer)) + 
  geom_bar(stat="identity", width = 1, color="black") + 
  theme(
    axis.text.x = element_text(
      angle = 90, size = 5,
      hjust = 0,  # 旋转后，hjust=0表示文本顶部对齐条形
      vjust = 1,  # 让文本的底部对齐刻度的垂直中心
      margin = margin(r = -22)  # 负数right边距把文本向下拉，需根据图尺寸微调数值
    )
  )

这个方案代码更简洁，但需要根据图表的实际尺寸微调margin(r = ...)的数值，不同的画布大小可能需要调整。

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