ggplot2：如何为线段端点添加间隔/留白

问题背景 #

用以下ggplot2代码绘制带箭头的线段和散点时，线段首尾会与散点重叠：

library(ggplot2)

dfr1 <- data.frame(x=c(1,2),y=c(1,2))
dfr2 <- data.frame(x=1,xend=2,y=1,yend=2)

ggplot()+
  geom_point(data=dfr1,aes(x,y),size=6)+
  geom_segment(data=dfr2,aes(x=xend,y=yend,xend=x,yend=y), color="red",arrow = arrow(length=unit(0.10,"cm"), ends="first", type = "closed"))+
  coord_fixed()+
  theme_minimal()

原绘图效果（线段与散点重叠）：

期望实现的效果是线段首尾与散点之间留有间隔，避免重叠：

解决方案 #

核心思路是将线段的起点和终点向线段内部偏移一段距离，通过计算两点间的单位方向向量来实现坐标调整，确保偏移方向始终指向线段中心，适配任意方向的线段。

修改后的代码如下：

library(ggplot2)

dfr1 <- data.frame(x=c(1,2),y=c(1,2))
dfr2 <- data.frame(x=1,xend=2,y=1,yend=2)

# 设置偏移量，可根据散点大小灵活调整
offset <- 0.1

# 计算线段的方向向量与单位向量
dx <- dfr2$xend - dfr2$x
dy <- dfr2$yend - dfr2$y
segment_length <- sqrt(dx^2 + dy^2)
unit_dx <- dx / segment_length
unit_dy <- dy / segment_length

# 调整线段坐标：起点向远离终点方向偏移，终点向靠近起点方向偏移
dfr2$x <- dfr2$x + unit_dx * offset
dfr2$xend <- dfr2$xend - unit_dx * offset
dfr2$y <- dfr2$y + unit_dy * offset
dfr2$yend <- dfr2$yend - unit_dy * offset

ggplot()+
  geom_point(data=dfr1,aes(x,y),size=6)+
  geom_segment(data=dfr2,aes(x=xend,y=yend,xend=x,yend=y), color="red",arrow = arrow(length=unit(0.10,"cm"), ends="first", type = "closed"))+
  coord_fixed()+
  theme_minimal()

代码说明 #

• offset：控制线段与散点的间隔大小，散点尺寸越大，可适当调大该值；
• 单位向量计算：保证偏移方向始终沿线段延伸方向，适配水平、垂直、斜向等任意线段；
• 坐标调整：通过双向偏移让线段两端都与散点拉开距离，完美避免重叠。

会话信息 #

sessioninfo::session_info()
#> ─ Session info ───────────────────────────────────────────────────────────────
#>  version  R version 4.1.0 (2021-05-18)
#>  os       Ubuntu 20.04.5 LTS
#>  system   x86_64, linux-gnu
#> ─ Packages ───────────────────────────────────────────────────────────────────
#>  ggplot2     * 3.3.6   2022-05-03 [1] CRAN (R 4.1.0)
──────────────────────────────────────────────────────────────────────────────

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