如何修复ggplot2中geom_segment的箭头偏移问题？

你在使用geom_segment自定义带箭头的坐标轴时遇到了箭头尖端偏移的问题，原因是将x轴和y轴的线段合并在同一个geom_segment调用中，导致箭头绘制逻辑出现偏差。

原代码 #

Max <- 5;
xaxis1 <- c(-Max,0);
xaxis2 <- c(Max,0);
yaxis1 <- c(0,-Max);
yaxis2 <- c(0,Max);
ggplot() +
  coord_cartesian(xlim = c(-Max,Max), ylim = c(-Max,Max)) +
  theme_minimal() +
  scale_y_continuous(expand = c(0,0)) +
  scale_x_continuous(expand = c(0,0)) +
  geom_segment(aes(x = xaxis1, y = yaxis1, xend = xaxis2, yend = yaxis2),
               color = "black",
               linewidth = 1,
               lineend = "round",
               linejoin = "round",
               arrow = arrow(length = unit(0.4, "cm"), ends = "both"))

修正方案 #

将x轴和y轴的线段分开绘制，各自使用独立的geom_segment，箭头就能完美居中于轴线：

Max <- 5

ggplot() +
  coord_cartesian(xlim = c(-Max, Max), ylim = c(-Max, Max)) +
  theme_minimal() +
  scale_y_continuous(expand = c(0, 0)) +
  scale_x_continuous(expand = c(0, 0)) +
  # 绘制x轴
  geom_segment(aes(x = -Max, y = 0, xend = Max, yend = 0),
               color = "black",
               linewidth = 1,
               lineend = "round",
               arrow = arrow(length = unit(0.4, "cm"), ends = "both")) +
  # 绘制y轴
  geom_segment(aes(x = 0, y = -Max, xend = 0, yend = Max),
               color = "black",
               linewidth = 1,
               lineend = "round",
               arrow = arrow(length = unit(0.4, "cm"), ends = "both"))

原理说明 #

原写法一次性传入两组坐标（x轴和y轴），geom_segment会将它们视为两条线段，但箭头参数的计算会因坐标组混合出现偏移。分开绘制后，每条轴线都是独立线段，箭头会严格沿线段中心轴线生成，自然不会偏移。

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