如何在ggplot2中实现点的端点连线而非中心点连线？

要实现相邻横向点（shape=95）的端点连线效果，不能直接用geom_line连接原始数据点的中心，而是需要手动构造连线的起始/结束坐标，用geom_segment绘制线段。具体步骤如下：

1. 构造连线数据 #

首先生成相邻点之间连线的起点和终点坐标：
假设每个横向点在x轴上占据day ± 0.15的范围（可根据需求调整这个偏移量），那么连线需要从当前点的右端（day + 0.15）连到下一个点的左端（lead(day) - 0.15），y值对应各自的sales。

library(tidyverse)

df <- data.frame(day=1:5, sales=c(10, 7, 5, 4, 3))

# 生成连线的起始/结束坐标
df_lines <- df %>%
  mutate(
    x_start = day + 0.15,       # 当前点的右端x坐标
    x_end = lead(day) - 0.15,   # 下一个点的左端x坐标
    y_end = lead(sales)         # 下一个点的y坐标
  ) %>%
  drop_na()  # 移除最后一行（无后续点可连接）

2. 绘制图表 #

用geom_segment绘制连线，用geom_linerange替代geom_point(shape=95)（更精准控制横向线段的长度）：

ggplot(df, aes(y = sales)) +
  # 绘制端点连线
  geom_segment(
    data = df_lines,
    aes(x = x_start, y = sales, xend = x_end, yend = y_end),
    linetype = 2, linewidth = 0.25
  ) +
  # 绘制横向线段（替代shape=95的点，可直接控制长度）
  geom_linerange(aes(xmin = day - 0.15, xmax = day + 0.15), size = 3) +
  theme_minimal()

如果坚持使用geom_point(shape=95)，需要确保点的长度和偏移量匹配：
shape=95的size参数控制线段长度（单位mm），需要转换为x轴的数值单位。假设x轴上1单位对应10mm（可根据图表尺寸调整），那么size=9对应x轴的0.9单位，半长是0.45，此时偏移量改为0.45即可：

# 使用shape=95的版本
ggplot(df, aes(x = day, y = sales)) +
  geom_segment(
    data = df %>% mutate(
      x_start = day + 0.45,
      x_end = lead(day) - 0.45,
      y_end = lead(sales)
    ) %>% drop_na(),
    aes(x = x_start, y = sales, xend = x_end, yend = y_end),
    linetype = 2, linewidth = 0.25
  ) +
  geom_point(shape = 95, size = 9) +
  theme_minimal()

为什么原来的方法无效？ #

• geom_line默认连接每个数据点的中心，而shape=95的点是横向线段，中心在day位置，所以连线会穿过线段中心，而非端点。
• position_nudge是整体偏移整条线的所有点，本质还是连接偏移后的中心，无法实现端点到端点的连接。

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