如何为地图中的多条线条添加沿长度渐变的颜色？

要实现线条从蓝色起始端到红色箭头末端的渐变效果，geom_curve本身不支持直接沿线条的颜色渐变，我们可以通过以下两种方式解决：

方法1：使用ggforce包（简单高效） #

ggforce包中的geom_link函数专门用于创建带有渐变效果的连接线条，是最便捷的实现方式。

步骤1：安装并加载依赖包 #

如果还未安装ggforce，先执行安装命令：

install.packages("ggforce")

加载包：

library(ggforce)

步骤2：修改代码实现渐变 #

为每条曲线添加唯一标识用于分组，替换geom_curve为geom_link并映射颜色到线条进度值：

# 为每条曲线添加唯一ID
data$curve_id <- seq(nrow(data))

map_plot <- ggplot() +
  geom_sf(data = data, aes(geometry = geometry)) +
  geom_link(
    data = data,
    aes(
      x = Long_rea, y = Lat_rea,
      xend = Long_dest, yend = Lat_dest,
      color = stat(index),  # stat(index)返回0（起点）到1（终点）的进度值
      group = curve_id      # 按曲线ID分组，确保每条曲线独立渐变
    ),
    curvature = 0.3,
    arrow = arrow(type = "open", length = unit(0.1, "inches")),
    linewidth = 1.2  # 可根据需要调整线条粗细
  ) +
  scale_color_gradient(low = "blue", high = "red") +  # 设置渐变颜色
  labs(title = "Distance across the world", x = "", y = "") +
  theme_minimal()

print(map_plot)

方法2：手动生成渐变线段（无额外依赖） #

如果不想依赖第三方包，可以手动拆分每条曲线为多个线段，为每个线段分配渐变颜色：

# 定义函数：生成曲线上的渐变点
generate_curve_points <- function(x, y, xend, yend, curvature = 0.3, n = 100) {
  theta <- seq(0, pi, length.out = n)
  curve_x <- x + (xend - x) * (theta / pi) + curvature * (yend - y) * sin(theta)
  curve_y <- y + (yend - y) * (theta / pi) + curvature * (x - xend) * sin(theta)
  data.frame(x = curve_x, y = curve_y, progress = seq(0, 1, length.out = n))
}

# 为每条曲线生成渐变点数据
curve_data <- do.call(rbind, lapply(seq(nrow(data)), function(i) {
  row <- data[i, ]
  points <- generate_curve_points(row$Long_rea, row$Lat_rea, row$Long_dest, row$Lat_dest)
  points$curve_id <- i
  points
}))

map_plot <- ggplot() +
  geom_sf(data = data, aes(geometry = geometry)) +
  geom_path(
    data = curve_data,
    aes(x = x, y = y, color = progress, group = curve_id),
    linewidth = 1.2
  ) +
  geom_segment(
    data = data,
    aes(x = Long_dest, y = Lat_dest, xend = Long_dest, yend = Lat_dest),
    arrow = arrow(type = "open", length = unit(0.1, "inches")),
    color = "red"  # 箭头设置为红色
  ) +
  scale_color_gradient(low = "blue", high = "red") +
  labs(title = "Distance across the world", x = "", y = "") +
  theme_minimal()

print(map_plot)

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