R语言ggplot2如何在绘图框内直接标注回归线（无需图例）

本问题是此前相关问题的延伸，使用相同数据集，仅对需求做小幅调整。

和此前需求一致，下图为我想要实现的效果，本次需要实现的部分已用绿色高亮标注：

本次需求不再是对特定回归线进行着色，而是希望如上图所示，直接在绘图窗口内为回归线添加直接标签。我了解到通过数据分面，配合图例、线条着色等方式可以实现标注效果，也可以通过annotate或geom_text指定x、y坐标手动添加标注，但我希望找到无需使用图例、也无需手动计算几何元素精确坐标的实现方式：是否存在类似其他aes映射函数的简便方法，可直接在绘图区域内为回归线添加对应标签？
以下是我当前使用的基础绘图代码，目前已移除原有标签并完成回归线着色：

ggplot(slack.work,
       aes(x=Coffee_Cups,
           y=Mins_Work,
           color=Month_Name))+
  geom_point(alpha = .4)+
  geom_smooth(method = "lm",
              se = F)+
  scale_colour_viridis_d()+
  theme_bw()+
  labs(title = "Coffee Cups x Minutes of Productivity",
       subtitle = "Pearson r = .30, p < .001",
       x="Cups of Coffee",
       y="Minutes of Work",
       color="Month")+
  theme(plot.title = element_text(face = "bold",
                                  size = 15,
                                  family = "mono"),
        plot.subtitle = element_text(face = "italic"),
        legend.position = "none")

当前代码生成的图形效果如下：

我期望实现的最终效果大致如下：

不需要手动计算坐标，也不用保留图例，用成熟的ggplot2扩展包就能实现符合aes映射逻辑的自动标注，两种常用方案如下：

方案一：directlabels包（自动在线条末端标注，匹配预期效果） #

这个包的设计目的就是替代默认图例，直接在几何元素旁生成对应标签，会自动计算线条位置、自动避让重叠标签，全程不需要硬编码坐标值。

• 先安装包：

install.packages("directlabels")

• 在原有代码中新增一个geom_dl()图层即可，完整可运行代码：

library(ggplot2)
library(directlabels)

ggplot(slack.work,
       aes(x=Coffee_Cups,
           y=Mins_Work,
           color=Month_Name))+
  geom_point(alpha = .4)+
  geom_smooth(method = "lm",
              se = F)+
  # 新增自动标注图层
  geom_dl(aes(label = Month_Name),
          method = list("last.bumpup", # 标签放在线条最右端，自动上下避让重叠
                        cex = 0.8, # 控制标签字号
                        fontface = "bold"))+
  scale_colour_viridis_d()+
  theme_bw()+
  labs(title = "Coffee Cups x Minutes of Productivity",
       subtitle = "Pearson r = .30, p < .001",
       x="Cups of Coffee",
       y="Minutes of Work",
       color="Month")+
  theme(plot.title = element_text(face = "bold",
                                  size = 15,
                                  family = "mono"),
        plot.subtitle = element_text(face = "italic"),
        legend.position = "none")

• 如果想要标签沿着回归线倾斜、放在线条中段，只需要把method参数里的"last.bumpup"换成"angled.boxes"即可，和参考效果完全一致。

方案二：geomtextpath包（标签直接嵌入线条路径） #

如果想要标签直接印在回归线中间，和线条融为一体，可以用这个包提供的geom_textsmooth()直接替换原有的geom_smooth()，标签会和线条路径完全绑定，调整画布尺寸时会自动适配位置不会错位。

• 安装包：

install.packages("geomtextpath")

• 核心修改：把原代码里的geom_smooth()替换成如下图层即可

geom_textsmooth(method = "lm",
                se = F,
                aes(label = Month_Name),
                text_smoothing = 0.3, # 调整标签在线条上的位置偏移
                size = 3)

两种方案都遵循ggplot的aes映射逻辑，不需要提前做数据处理或者手动计算坐标，比手动加annotate的维护成本低很多。

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