ggplot2：为散点图添加文本框标签的正确方法

当geom_label的美学映射（如color）与主绘图图层共享时，会被自动纳入图例。只需在geom_label中添加show.legend = FALSE参数即可移除图例中的标签条目。

示例代码（基于iris数据集）：

library(ggplot2)

# 基础散点图
ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
  geom_point() +
  # 添加标签并隐藏图例
  geom_label(
    data = iris[iris$Species == "setosa", ][1, ],
    aes(label = "Setosa"),
    show.legend = FALSE  # 关键参数：隐藏图例中的标签
  )

基础区别 #

• geom_text：仅绘制纯文本，无背景框，适合不需要突出文本的场景
• geom_label：绘制带背景框的文本，文本可读性更强，适合重点标注场景

基础示例 #

geom_text用法 #

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point() +
  geom_text(aes(label = Species), size = 3, color = "gray50")

geom_label用法 #

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point() +
  geom_label(aes(label = Species), fill = "white", size = 3)

• 颜色：使用color参数，可设置固定值（如color = "red"）或映射到数据变量（需放在aes()内）；若不想让文本颜色影响图例，直接在geom_text/geom_label层外设置（不放入aes()）
• 大小：使用size参数，数值越大字号越大（ggplot2中单位为毫米）
• 对齐：
  • hjust：水平对齐，取值0（左对齐）、0.5（居中）、1（右对齐）
  • vjust：垂直对齐，取值0（底部对齐）、0.5（居中）、1（顶部对齐）
  • lineheight：调整多行文本的行高（如lineheight = 1.2）

• 背景色：使用fill参数设置文本框背景色（如fill = "#f0f8ff"）
• 边框线宽：使用label.size参数设置边框粗细（注意：size参数控制文本大小，而非边框）
• 边框颜色：使用label.colour参数单独设置边框颜色（如label.colour = "blue"）
• 圆角半径：使用label.r参数调整边框圆角（需配合unit()指定单位，如label.r = unit(0.2, "lines")）

• 锚点控制：通过hjust和vjust定义文本相对于锚点的位置，例如想让文本在数据点的右上方，设置hjust = 0, vjust = 1
• 位置偏移：
  • 单方向微调：使用nudge_x/nudge_y参数（如nudge_x = 0.1让文本向右偏移0.1单位）
  • 批量统一调整：使用position = position_nudge(x = 0.1, y = 0.1)，效果与nudge参数一致，适合需要统一偏移的场景
• 避免文本重叠：可使用ggrepel包的geom_text_repel/geom_label_repel函数，自动调整文本位置避免重叠（直接替换对应geom层即可）

library(ggplot2)

# 准备各物种的均值数据作为标注内容
iris_summary <- aggregate(
  cbind(Sepal.Length, Sepal.Width) ~ Species,
  data = iris,
  FUN = function(x) round(mean(x), 1)
)

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
  geom_point(alpha = 0.7) +
  # 自定义样式的geom_label
  geom_label(
    data = iris_summary,
    aes(label = paste0("Mean:\n", Sepal.Length, "/", Sepal.Width)),
    show.legend = FALSE,  # 隐藏图例中的标签
    # 文本样式
    color = "white", size = 4, hjust = 0.5, vjust = 0.5,
    # 文本框样式
    fill = "#2c3e50", label.size = 1, label.colour = "#3498db", label.r = unit(0.2, "lines"),
    # 位置偏移
    nudge_y = 0.2
  ) +
  labs(x = "Sepal Length", y = "Sepal Width", title = "Iris Sepal Dimensions with Mean Labels") +
  theme_minimal()

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