R ggplot2技术问询：如何在X轴区域内添加90度对齐的2018文本

我明白你不想改动原有轴创建逻辑的需求，这里有几个简单的方法可以把"2018"文本和其他X轴年份对齐，保持90度旋转：

方法1：用annotate()替代geom_text()，精准定位到轴标签区域 #

geom_text()是基于数据坐标系的，而annotate()可以更灵活地控制位置，结合ggplot的单位系统来对齐到轴标签的高度，完全不影响原有轴的逻辑：

# 保留你已有的竖线
MyPlot <- MyPlot + geom_vline(xintercept = YearForPlot, color = "black", linetype = "dotted")

# 用annotate添加文本，定位到X轴标签的统一高度
MyPlot <- MyPlot + annotate(
  "text",
  x = YearForPlot,
  y = unit(-0.1, "npc"),  # npc是归一化坐标，-0.1表示在绘图区域下方10%的位置，和现有轴标签同高度
  label = YearForPlot,
  angle = 90,
  color = "black",
  hjust = 1  # 90度旋转后，hjust=1能让文本和竖线对齐，和其他轴标签的排版一致
)

# 最后调整X轴下方边距，避免文本被截断
MyPlot <- MyPlot + theme(plot.margin = margin(b = 15, unit = "pt"))

方法2：微调geom_text()的位置参数（如果坚持用geom_text） #

如果你不想换用annotate，可以调整geom_text()的位置参数，同时避免继承原图层的映射关系：

MyPlot <- MyPlot + geom_vline(xintercept = YearForPlot, color = "black", linetype = "dotted")

# 调整y到轴标签区域，用数据范围计算偏移量，同时关闭继承映射
MyPlot <- MyPlot + geom_text(
  x = YearForPlot,
  y = min(MyData$y) - 0.05*(max(MyData$y)-min(MyData$y)),  # 基于数据范围向下偏移到轴标签区
  angle = 90,
  label = YearForPlot,
  color = "black",
  hjust = 1,
  inherit.aes = FALSE  # 避免继承原图层的y映射，防止出现异常
)

# 可选：如果原有X轴未包含2018，扩展X轴范围确保显示完整
MyPlot <- MyPlot + xlim(c(min(MyData$Year), max(MyData$Year, YearForPlot)))

关键提示 #

• 两种方法都不需要修改原有X轴的scale_x_continuous()或scale_x_discrete()逻辑，完全符合你的需求。
• 如果文本被截断，记得用theme(plot.margin)调整下方边距，给文本留出足够显示空间。

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