在ggplot2中为geom_point()添加连续箭头

要实现按年份顺序用连续箭头连接散点，需先为数据集添加每个观测对应下一个观测的坐标（作为线段终点），再通过geom_segment()的参数配置箭头样式。

步骤1：预处理数据集 #

使用dplyr::lead()函数提取每个观测的下一个点的x、y坐标，用于定义线段终点：

# 加载所需包
library(ggplot2)
library(dplyr)

# 处理数据集，添加下一个观测的坐标
df <- df %>%
  mutate(
    x_end = lead(x_axis_values),  # 下一个点的x坐标
    y_end = lead(y_axis_values)   # 下一个点的y坐标
  )

步骤2：绘制带箭头的散点图 #

在基础绘图代码中，为geom_segment()指定起点、终点坐标，并配置箭头参数：

ggplot(df, aes(x = x_axis_values, y = y_axis_values)) +
  geom_point(size = 2, color = "darkblue") +  # 散点样式
  geom_segment(
    aes(xend = x_end, yend = y_end),  # 线段终点
    color = "gray50",  # 线段颜色
    size = 0.8,        # 线段宽度
    arrow = arrow(
      length = unit(0.2, "cm"),  # 箭头大小
      type = "closed"            # 实心箭头（可选，默认空心）
    )
  ) +
  labs(x = "X轴数值", y = "Y轴数值", title = "按年份连接的散点箭头图") +
  theme_bw()

参数说明 #

• lead()：获取向量的下一个元素，最后一行的x_end和y_end会自动变为NA，geom_segment()会自动忽略该行，避免生成无效线段。
• arrow()：控制箭头样式，length调整箭头长度，type = "closed"生成实心箭头，type = "open"则为空心箭头。
• 可根据需求调整散点、线段的颜色、大小等样式，匹配可视化需求。

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