ggplot中使用Inf定位geom_text时如何实现左对齐？

要让右上角的多行标签实现左对齐（每行起始x坐标一致），可以通过以下两种方式修改代码：

方法1：调整位置与对齐参数 #

基于原数据的极值设置标签位置，配合hjust=0实现左对齐，同时保证标签在绘图区域内可见：

library(ggplot2)

# 定义数据方便后续调整
x_data <- c(5, 2)
y_data <- c(3, 4)

ggplot() +
  geom_point(aes(x = x_data, y = y_data)) +
  geom_text(
    aes(x = max(x_data) + 0.3, y = max(y_data) + 0.3, 
        label = "Label \nexample \n1"),
    hjust = 0, vjust = 1,  # hjust=0为左对齐，vjust=1为顶部对齐
    lineheight = 1.2  # 可选：调整行间距优化显示
  )

方法2：用annotation_custom精确定位 #

如果希望标签严格贴在右上角边界且左对齐，可结合annotation_custom和textGrob实现，同时调整绘图边距避免标签被裁剪：

library(ggplot2)
library(grid)

ggplot() +
  geom_point(aes(x = c(5,2), y = c(3,4))) +
  annotation_custom(
    grob = textGrob(
      label = "Label \nexample \n1",
      hjust = 0, vjust = 1,
      gp = gpar(lineheight = 1.2)
    ),
    xmin = Inf, xmax = Inf,
    ymin = Inf, ymax = Inf
  ) +
  theme(plot.margin = margin(10, 50, 10, 10))  # 右侧留足空间显示标签

关键说明 #

原代码中hjust=1是右对齐，导致每行文本的右端对齐到x=Inf位置，因此看起来每行起始x坐标不一致；将hjust改为0即可实现左对齐，让所有行的起始x坐标统一。

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