如何在ggplot2的geom_segment中使线宽与坐标轴单位匹配？

首先明确：ggplot2的geom_segment()的linewidth参数是相对缩放的，和坐标轴的数值单位没有直接关联，所以直接用你原来的代码无法实现线宽与坐标轴单位匹配的需求。

不过可以通过手动计算缩放因子，让线宽的视觉大小和坐标轴单位对应，步骤如下：

1. 先计算坐标轴的总范围（取x轴和y轴中较大的那个，因为coord_fixed()会让两个轴的单位长度视觉上一致）；
2. 根据设定的绘图尺寸，把坐标轴单位长度转换成linewidth的对应数值（linewidth的实际宽度是linewidth * 0.5mm）；
3. 用这个缩放因子去乘你的width变量，再通过scale_linewidth_identity()直接使用转换后的数值作为线宽。

示例代码 #

df <- data.frame(
  "start_X" = c(4,4,4,4),
  "start_Y" = c(1,4,6,6),
  "end_X" = c(4,6,5,2),
  "end_Y" = c(6,6,7,9),
  "width" = c(1, 0.8, 0.3, 0.75))

# 计算坐标轴的最大范围
x_range <- diff(range(c(df$start_X, df$end_X)))
y_range <- diff(range(c(df$start_Y, df$end_Y)))
max_range <- max(x_range, y_range)

# 设定绘图的尺寸（单位：英寸，可根据需求调整）
plot_size_in <- 6
# 计算缩放因子：把坐标轴单位长度转换成linewidth的数值
unit_to_mm <- (plot_size_in / max_range) * 25.4  # 英寸转mm
scale_factor <- unit_to_mm / 0.5  # linewidth*0.5=实际宽度（mm）

# 绘图
ggplot(df) +
  geom_segment(aes(x = start_X, y = start_Y, xend = end_X, yend = end_Y, 
                   linewidth = width * scale_factor)) +
  coord_fixed() +
  scale_linewidth_identity()  # 直接使用转换后的数值作为线宽

注意事项 #

• 这个方法是静态的：如果调整了绘图窗口大小，或者添加标题、图例等元素占用绘图区域，缩放因子需要重新计算，否则线宽和坐标轴单位的匹配会失效；
• 如果需要更精确、动态的匹配，还是得用多边形（比如geom_polygon）模拟线段，但你明确不想用这种方式，上述手动缩放是最优替代方案。

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