基于ggplot2实现渐变线宽的替代式流向地图绘制求助

1. 统一渐变线宽与终点圆形尺寸的映射逻辑 #

要让线宽和终点圆尺寸匹配，核心是用同一个数据字段（如ind），给两者设置一致的缩放规则。可以借助scales::rescale()统一映射范围，避免ggplot默认不同缩放逻辑导致的不匹配。

示例代码：

library(ggplot2)
library(scales)

# 假设你的数据框为flow_data，包含x_start, y_start, x_end, y_end, ind, color_col
flow_data$size_scaled <- rescale(flow_data$ind, to = c(0.5, 5)) # 统一缩放至相同尺寸范围

ggplot(flow_data) +
  # 绘制流向曲线
  geom_curve(
    aes(x = x_start, y = y_start, xend = x_end, yend = y_end, 
        size = size_scaled, color = color_col),
    curvature = 0.2, lineend = "round"
  ) +
  # 绘制终点圆形
  geom_point(
    aes(x = x_end, y = y_end, size = size_scaled, fill = color_col),
    shape = 21, color = "white" # 白色边框增强区分度
  ) +
  # 统一尺寸刻度，隐藏重复图例
  scale_size_identity(guide = "none") +
  scale_color_identity(aesthetics = c("color", "fill"))

2. 修复ggforce::geom_bezier的颜色失效问题 #

geom_bezier要求数据为长格式的贝塞尔曲线控制点数据，颜色映射必须绑定到group字段，否则颜色会被默认按单个控制点拆分。需确保每个流向对应一组贝塞尔点，且颜色字段为每组的统一值。

示例代码：

library(ggforce)
library(dplyr)
library(tidyr)

# 构造贝塞尔曲线长格式数据：每个流向包含起点、控制点、终点3个点
bezier_data <- flow_data %>%
  rowwise() %>%
  mutate(
    points = list(tibble(
      x = c(x_start, (x_start+x_end)/2 + (y_end-y_start)*0.1, x_end), # 自定义控制点位置
      y = c(y_start, (y_start+y_end)/2 + (x_start-x_end)*0.1, y_end),
      group = cur_group_id(),
      color_col = color_col,
      size_scaled = size_scaled
    ))
  ) %>%
  unnest(points)

ggplot(bezier_data) +
  geom_bezier(
    aes(x = x, y = y, group = group, color = color_col, size = size_scaled),
    lineend = "round"
  ) +
  geom_point(
    data = flow_data,
    aes(x = x_end, y = y_end, size = size_scaled, fill = color_col),
    shape = 21, color = "white"
  ) +
  scale_size_identity(guide = "none") +
  scale_color_identity(aesthetics = c("color", "fill"))

3. 让线宽与数据ind关联 #

无论是geom_curve还是geom_bezier，都需要在aes()里明确绑定size = ind，或使用预缩放后的size_scaled。若直接用原始ind，可通过scale_size_continuous()自定义尺寸范围：

ggplot(flow_data) +
  geom_curve(
    aes(x = x_start, y = y_start, xend = x_end, yend = y_end, 
        size = ind, color = color_col),
    curvature = 0.2, lineend = "round"
  ) +
  geom_point(
    aes(x = x_end, y = y_end, size = ind, fill = color_col),
    shape = 21, color = "white"
  ) +
  scale_size_continuous(range = c(0.5, 5)) # 统一线和点的尺寸缩放范围

关键注意事项 #

• 所有关联ind的元素（线、点）必须使用相同的尺寸映射逻辑，要么都用原始ind加统一的scale_size_continuous，要么都用预缩放的size_scaled加scale_size_identity。
• geom_bezier的分组必须正确，每个流向对应一个group，否则会出现线条断裂或颜色不匹配。
• 用lineend = "round"让渐变线宽的端点更平滑，与圆形的视觉效果更协调。

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