如何在ggplot2中添加原始数据经数学变换后的额外数值标签？

要给散点添加包含原始数据以及经数学变换后数值的标签，直接用geom_text()或geom_label()就能实现，核心是构造包含所需内容的文本标签并调整位置。以下是具体实现方式：

示例代码（以计算cty和hwy的平均值为例） #

library(ggplot2)

ggplot(mpg, aes(cty, hwy)) +
  geom_point() +
  geom_text(
    # 拼接原始值和变换后数值为多行标签
    aes(label = paste0("cty: ", cty, "\nhwy: ", hwy, "\n均值: ", round((cty + hwy)/2, 1))),
    hjust = 0, vjust = 0, # 标签放在点的右上方，可按需调整
    size = 3,
    color = "#c41e3a"
  )

核心要点 #

• 自定义标签内容：用paste0()把原始字段（cty、hwy）和你的变换计算式（比如示例里的均值）拼接成文本，\n用来换行分隔不同内容。如果需要其他变换（比如差值、比值），直接替换对应的计算逻辑即可。
• 调整标签位置：hjust（水平对齐）和vjust（垂直对齐）参数控制标签相对于散点的位置：
  • hjust=0：标签在点右侧；hjust=1：标签在点左侧
  • vjust=0：标签在点上方；vjust=1：标签在点下方
• 样式优化：如果想要带背景框的标签，把geom_text()换成geom_label()；还可以通过fontface（字体样式）、lineheight（行高）等参数进一步调整标签样式。

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