如何在ggplot2中无需硬编码箭头，从左到右连接散点？

不用硬编码的核心思路是自动提取前后散点的坐标生成箭头数据框，以下是两种实用方法：

方法1：基础R实现 #

利用数据框行索引，直接取前n-1个点作为起点，后n-1个点（偏移后）作为终点：

library(ggplot2)

# 示例数据（可扩展任意数量的点）
points = data.frame(x = c(0, 25, 50, 75, 100),
                    y = 50)

# 自动生成箭头数据
arrows <- data.frame(
  x = points$x[-nrow(points)],       # 起点x：去掉最后一个点的x值
  xend = points$x[-1] - 0.5,         # 终点x：去掉第一个点的x值，减偏移量避免和点重叠
  y = points$y[-nrow(points)],       # 起点y：去掉最后一个点的y值
  yend = points$y[-1]                # 终点y：去掉第一个点的y值
)

# 绘图
ggplot(points, aes(x, y)) +
  geom_point(size = 4) +
  geom_segment(data = arrows, aes(x = x, y = y, xend = xend, yend = yend),
               arrow = arrow(length = unit(0.3, "cm")))

方法2：tidyverse风格实现 #

用dplyr的lead()函数获取下一个点的坐标，逻辑更直观：

library(ggplot2)
library(dplyr)

points = data.frame(x = c(0, 25, 50, 75, 100),
                    y = 50)

# 自动生成箭头数据
arrows <- points %>%
  mutate(
    xend = lead(x) - 0.5,  # 获取下一个点的x值，减偏移量
    yend = lead(y)         # 获取下一个点的y值
  ) %>%
  filter(!is.na(xend))     # 过滤掉最后一行（无后续点）

# 绘图
ggplot(points, aes(x, y)) +
  geom_point(size = 4) +
  geom_segment(data = arrows, aes(x = x, y = y, xend = xend, yend = yend),
               arrow = arrow(length = unit(0.3, "cm")))

两种方法都能自动适配任意数量的散点，无需手动逐个指定箭头的起点和终点。

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