如何在R中使用ggplot或其他工具绘制宽度逐渐增加的线条/线段

方法1：ggplot2搭配ggforce包实现（最简方案） #

ggforce包的geom_link2支持沿线条路径映射包括线宽在内的美学属性，直接适配需求：

# 加载包
library(ggplot2)
library(ggforce)

# 构造示例数据，线段起点(1,0)，终点(10,3)，宽度从0.1递增到6
df <- data.frame(
  x = c(1, 10),
  y = c(0, 3),
  line_width = c(0.1, 6)
)

# 绘图
ggplot(df, aes(x, y)) +
  geom_link2(aes(linewidth = line_width), lineend = "round") +
  scale_linewidth_identity() +
  theme_minimal()

如果需要画多条独立的渐变宽度线段，只需要给每条线段加单独的分组变量即可。

方法2：纯ggplot2原生实现（无需额外扩展包） #

核心原理是将单条线段拆分为大量连续的短片段，每个片段分配逐步递增的线宽，拼接后呈现整体宽度渐变效果：

library(ggplot2)

# 自定义生成渐变宽度线段数据的函数
generate_grad_line <- function(x_start, y_start, x_end, y_end, n_split = 100, width_start = 0.1, width_end = 5) {
  x_seq <- seq(x_start, x_end, length.out = n_split + 1)
  y_seq <- seq(y_start, y_end, length.out = n_split + 1)
  width_seq <- seq(width_start, width_end, length.out = n_split)
  data.frame(
    x = x_seq[-length(x_seq)],
    xend = x_seq[-1],
    y = y_seq[-length(y_seq)],
    yend = y_seq[-1],
    width = width_seq
  )
}

# 生成单条线段数据
line_data <- generate_grad_line(1, 2, 8, 5)

# 绘图
ggplot() +
  geom_segment(data = line_data, aes(x = x, xend = xend, y = y, yend = yend, linewidth = width), lineend = "butt") +
  scale_linewidth_identity() +
  theme_minimal()

方法3：R基础绘图系统实现 #

可以直接通过循环绘制短片段，或者用多边形绘制实现：

# 基础绘图实现示例
plot(0:10, 0:10, type = "n", xlab = "", ylab = "")
# 定义线段起止和宽度范围
x0 <- 1; y0 <- 2; x1 <- 9; y1 <-7; w0 <- 0.1; w1 <- 6
n <- 100
x_seq <- seq(x0, x1, length.out = n)
y_seq <- seq(y0, y1, length.out = n)
w_seq <- seq(w0, w1, length.out = n)
# 循环绘制短片段
for (i in 1:(n-1)) {
  segments(x_seq[i], y_seq[i], x_seq[i+1], y_seq[i+1], lwd = w_seq[i])
}

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