如何在R的ggplot2绘图中为文本框标签与对应数据点添加连接线？

以下两种方法均可直接在R代码流程内生成带连接线的图表，无需导出后用第三方软件编辑。

方法1：手动绘制固定连接线（适配当前单标签场景） #

直接在现有代码中新增geom_segment()图层，手动指定连接线的起止坐标即可，不需要额外依赖其他包。
你当前的"Journal H"标签位置为x=2017, y=14，对应关联的数据点为2017年的Journal H（坐标x=2017, y=15.54），只需要添加如下代码：

# 连接线图层：可根据实际显示效果微调x/y的起止数值，避免线遮挡点或标签
geom_segment(
  x = 2017, y = 14.2,   # 起点：靠近标签顶部的位置
  xend = 2017, yend = 15.3, # 终点：靠近数据点底部的位置
  color = "black", linewidth = 0.5
)

如果需要斜线连接（比如标签放在数据点的左下方），只需要修改x、xend的数值即可，例如标签放在x=2016, y=13，可设置：

geom_segment(
  x = 2016.2, y = 13.2,
  xend = 2016.9, yend = 15.2,
  color = "black", linewidth = 0.5
)

方法2：自动适配标签与连接线（推荐，适合多标签场景） #

如果后续需要给多个期刊添加标注，或不想手动调整标签、连接线的位置，可以使用ggrepel包的geom_label_repel()，该函数会自动调整标签位置避免重叠，同时自动生成标签到对应数据点的连接线。

先安装依赖包 #

install.packages("ggrepel")

完整可运行修改代码 #

library(ggplot2)
library(ggthemes)
library(RColorBrewer)
library(ggrepel)

nb.cols <- 16
mycolors <- colorRampPalette(brewer.pal(8, "Set2"))(nb.cols)
df <- read.csv("Test_publications_list.csv", header=TRUE)

# 新建标注数据集：仅保留需要打标签的Journal H的2017年数据点
label_df <- data.frame(
  Journal = "Journal H",
  Year = 2017,
  Impact_Factor = 15.54
)

ggplot(df, aes(x=Year, y=Impact_Factor)) + 
  geom_point(color= "black", shape= 21, size= 5, stroke= 1, aes(fill = Journal)) + 
  scale_fill_manual(values = mycolors) + 
  theme_gdocs() + 
  # 替换原有geom_label，自动生成连接线
  geom_label_repel(
    data = label_df,
    aes(x = Year, y = Impact_Factor, label = Journal),
    fontface = 2, color = "black", fill = NA,
    segment.color = "black", # 连接线颜色
    segment.linewidth = 0.5, # 连接线粗细
    nudge_x = -0.3, nudge_y = -2, # 手动微调标签的偏移方向
    min.segment.length = 0 # 强制显示连接线，即使标签离点很近
  ) +
  theme(plot.margin = unit(c(1,1,1,1), "cm")) + 
  ggtitle("Summary plot showing my publications\n in academic journals") + 
  theme(plot.title = element_text(color= "black", size = 10, face = "bold"))

可调参数说明 #

• 若需要调整连接线样式，可新增segment.linetype = "dashed"改为虚线
• 若需要弯曲连接线，可设置segment.curvature = 0.2
• 后续添加更多标签时，只需要在label_df中新增对应期刊的行即可，函数会自动避免标签重叠

内容的提问来源于stack exchange，提问作者Rodriguez J Mathew