如何使用ggplot2根据线路方向为路径添加多个箭头

你当前的代码只在整条路径的首尾两端生成箭头，无法在路径的每一段线段上添加指向行进方向的箭头，和预期效果不符的核心原因是geom_path()默认的arrow参数仅作用于整条路径的首尾，不会逐段生成箭头。

方案1：基础ggplot2实现（无需额外安装包） #

先将原数据框处理为每段路径的起止点格式，再用geom_segment()逐段绘制带箭头的线段：

library(ggplot2)

# 原数据构造
X <- c(0.596, 0.641, 0.695, 0.741, 0.788, 0.837,
       0.887, 0.937, 0.993, 0.984, 0.934, 0.886,
       0.838, 0.778, 0.738, 0.681, 0.642, 0.593)
Y <- c(23.630, 24.085, 24.643, 25.067, 25.491, 25.899,
       26.305, 26.670, 27.049, 27.025, 26.836, 26.636,
       26.429, 26.152, 25.965, 25.664, 25.442, 24.510)
Direction <- c(rep('up', 9), rep('down', 9))
DF <- data.frame(X, Y, Direction)

# 构造分段路径数据
seg_df <- data.frame(
  x = DF$X[-nrow(DF)],
  y = DF$Y[-nrow(DF)],
  xend = DF$X[-1],
  yend = DF$Y[-1],
  Direction = DF$Direction[-nrow(DF)]
)

# 绘图，不需要按方向区分颜色可删除aes中的color参数
ggplot(seg_df, aes(x = x, y = y, xend = xend, yend = yend, color = Direction)) +
  geom_segment(arrow = arrow(length = unit(0.15, "inches"), type = "closed"))

方案2：使用ggarrow包简化实现 #

ggarrow包专门封装了路径逐段加箭头的功能，无需手动处理分段数据：

# 未安装包先执行：install.packages("ggarrow")
library(ggplot2)
library(ggarrow)

# 直接使用原数据绘图，不需要按方向区分颜色可删除aes中的color参数
ggplot(DF, aes(x = X, y = Y, color = Direction)) +
  geom_arrowpath(arrow = arrow(length = unit(0.15, "inches"), type = "closed"))

内容的提问来源于stack exchange，提问作者Daniel Valencia C.