如何用R的ggplot绘制分类点间线宽渐变的图形？

方法一：使用ggforce包的geom_link（最简洁） #

ggforce的geom_link支持基于线段位置的属性映射，利用stat(index)可以获取线段上从0（起点）到1（终点）的位置值，直接将其映射到线宽参数size，就能实现从细到粗的渐变效果。

示例代码：

library(ggplot2)
library(ggforce)

# 构造包含两个分类点的数据
df <- data.frame(
  category = factor(c("点1", "点2")), # 替换成你的分类值
  y = 1 # 两点的y坐标，可根据需求调整
)

ggplot(df) +
  # 绘制渐变线，stat(index)对应线段上的位置，0是起点，1是终点
  geom_link(
    aes(x = category, y = y, group = 1, size = stat(index)),
    color = "black",
    lineend = "round" # 让线的末端更平滑
  ) +
  # 设置线宽的范围，从0.1（最细）到5（最粗），可调整
  scale_size_continuous(range = c(0.1, 5)) +
  # 绘制两个端点
  geom_point(aes(x = category, y = y), size = 6, color = "black") +
  theme_minimal()

方法二：手动生成线段数据集（无需额外包） #

如果不想依赖ggforce，可以手动生成一系列从起点到终点的分段线段，每个线段的宽度递增，重叠后形成渐变效果。

示例代码：

library(ggplot2)

# 定义起点和终点的坐标（将分类值转为数值方便计算）
start_x <- 1  # 对应第一个分类
end_x <- 2    # 对应第二个分类
y_val <- 1    # 两点的y坐标

# 生成50条分段线段，数量越多渐变越平滑
n_segments <- 50
seg_data <- data.frame(
  x = seq(start_x, end_x, length.out = n_segments),
  xend = end_x,
  y = y_val,
  yend = y_val,
  width = seq(0.1, 5, length.out = n_segments) # 线宽从细到粗
)

ggplot() +
  # 绘制所有分段线段
  geom_segment(
    data = seg_data,
    aes(x = x, xend = xend, y = y, yend = yend, size = width),
    color = "black"
  ) +
  scale_size_identity() + # 直接使用数据中的width作为线宽值
  # 绘制端点
  geom_point(
    data = data.frame(x = c(start_x, end_x), y = y_val),
    aes(x = x, y = y),
    size = 6, color = "black"
  ) +
  # 将数值x轴转为分类标签
  scale_x_continuous(breaks = c(start_x, end_x), labels = c("点1", "点2")) +
  theme_minimal()

这两种方法都能实现你需要的“从第一个点到第二个点线宽逐渐增加”的效果，其中方法一更简洁，推荐优先尝试。

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