在R的ggplot中能否实现两点间线条从细到粗渐变？

当然可以实现。核心思路是通过给线段的不同位置映射递增的粗细值来实现渐变效果，下面提供两种实用方法：

方法一：手动生成插值点 #

如果不想依赖额外包，可以手动在两点间生成足够多的插值点，给每个点分配从细到粗的size值，再用geom_line绘制：

library(ggplot2)

# 定义起点A和终点B的坐标
points <- data.frame(
  x = c(1, 5),
  y = c(2, 4),
  label = c("A", "B")
)

# 生成A到B的100个插值点，同时创建粗细渐变序列
interp_data <- approx(points$x, points$y, n = 100)
line_data <- data.frame(
  x = interp_data$x,
  y = interp_data$y,
  size = seq(0.5, 5, length.out = 100) # 粗细从0.5过渡到5
)

# 绘图
ggplot() +
  geom_line(data = line_data, aes(x = x, y = y, size = size), color = "black") +
  geom_point(data = points, aes(x = x, y = y), size = 6, color = "#e74c3c") +
  geom_text(data = points, aes(x = x, y = y, label = label), vjust = -1) +
  guides(size = "none") +
  theme_minimal()

方法二：用ggforce包简化操作 #

ggforce的geom_link函数专门支持线段的属性渐变，无需手动生成插值点，更简洁：

library(ggplot2)
library(ggforce)

# 复用之前的points数据框
ggplot(points) +
  geom_link(aes(x = x, y = y, size = stat(index)), color = "black") +
  scale_size_continuous(range = c(0.5, 5)) +
  geom_point(aes(x = x, y = y), size = 6, color = "#e74c3c") +
  geom_text(aes(x = x, y = y, label = label), vjust = -1) +
  guides(size = "none") +
  theme_minimal()

这里stat(index)会自动生成0到1的序列，对应线段从起点到终点的位置，配合scale_size_continuous就能实现从细到粗的平滑过渡。

两种方法都能满足“仅原始两点A、B，线条从A到B逐渐变粗”的需求，视觉效果上几乎无差别。

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