如何在ggplot中灵活右对齐geom_text注释并优化多行标注？

直接给出满足需求的R函数，核心用grid包工具实现不受字符串长度影响的右对齐文本框注释：

library(lattice)
library(grid)

norm_dotplot <- function(n = 100, mean_val = 0, sd_val = 1) {
  # 生成指定参数的正态分布数据
  data <- rnorm(n, mean = mean_val, sd = sd_val)
  
  # 绘制基础dotplot
  p <- dotplot(data, main = "正态分布随机数据点图")
  
  # 合并参数说明为多行文本
  note_text <- paste0(
    "数据生成参数:\n",
    "样本量: ", n, "\n",
    "均值: ", mean_val, "\n",
    "标准差: ", sd_val
  )
  
  # 创建右对齐的文本元素
  text_grob <- textGrob(
    label = note_text,
    hjust = 1,  # 文本自身右对齐
    vjust = 1,  # 文本顶部对齐
    gp = gpar(fontsize = 10)
  )
  
  # 将注释固定到绘图区域右上角
  print(p + annotation_custom(
    grob = text_grob,
    xmin = unit(0.98, "npc"), xmax = unit(0.98, "npc"),
    ymin = unit(0.98, "npc"), ymax = unit(0.98, "npc")
  ))
}

# 测试函数示例
norm_dotplot(n = 150, mean_val = 5, sd_val = 2)

关键细节说明 #

• 固定右对齐逻辑：通过annotation_custom将文本元素定位到绘图区域右上角（unit(0.98, "npc")表示距离右侧、顶部各2%的位置），配合textGrob的hjust=1，让文本内容始终相对于定位点右对齐，完全不受字符串长度影响。
• 单行文本框实现：用paste0把所有参数说明合并成带换行符\n的单个字符串，一次性生成多行注释，无需拆分多个标注。
• 依赖说明：需要加载lattice（绘制dotplot）和grid（创建、添加自定义绘图元素）两个包。

内容的提问来源于stack exchange，提问作者hanna-without-h