如何使用directlabels为ggplot2中的折线添加名称标签

你的代码里存在两个核心问题导致directlabels无法正确识别折线对应的Name标签：

1. geom_line的颜色是直接赋值color = mydat$color_line，而非通过aes映射，directlabels无法关联折线与Name；
2. 全局aes里的color绑定的是Class，但折线实际分组是Name，两者不匹配，导致标注逻辑混乱。

需要让directlabels明确识别到折线的分组是Name，可以通过两种方式实现：

方式1：统一映射折线颜色到Name（推荐） #

将折线的颜色通过aes绑定到Name，同时保留点的Class颜色映射，让directlabels直接抓取Name作为标注内容：

library(ggplot2)
library(directlabels)

# 提取Name对应的颜色映射关系
name_color_map <- unique(mydat[, .(Name, color_line)])
name_color_map <- setNames(name_color_map$color_line, name_color_map$Name)

# 重构ggplot对象
g <- ggplot(mydat, aes(x = x, y = y)) + 
  theme_classic() + 
  # 折线按Name分组，颜色映射到Name
  geom_line(aes(group = Name, color = Name)) + 
  # 点的颜色映射到Class
  geom_point(aes(color = Class)) + 
  # 分别设置Name和Class对应的颜色值
  scale_color_manual(values = c(
    name_color_map,
    "A" = "springgreen4", 
    "B" = "royalblue3"
  ))

# 添加angled.boxes样式的Name标签，可微调标签位置
direct.label(g, list("angled.boxes", dl.trans(x = x + 0.02)))

方式2：保留原颜色赋值，显式传递Name标签 #

如果不想改变颜色的赋值方式，可将Name放入全局aes的label参数中，让directlabels明确标注对象：

library(ggplot2)
library(directlabels)

# 重构ggplot，将Name作为label放入全局aes
g <- ggplot(mydat, aes(x = x, y = y, group = Name, label = Name)) + 
  theme_classic() + 
  geom_line(color = mydat$color_line) + 
  geom_point(aes(color = Class)) + 
  scale_color_manual(values=c("springgreen4", "royalblue3"))

# 直接应用angled.boxes标注
direct.label(g, "angled.boxes")

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