如何使用ggplot绘制两组独立点对并将其用线条连接？

当然可行，核心是把你的宽格式数据转换成ggplot更适配的长格式，具体操作如下：

1. 数据格式转换 #

首先使用tidyr包的pivot_longer函数，将原本分散的start/end坐标数据整合到同一列中，让每个id对应两行数据（分别对应start和end位置）：

# 加载所需包
library(tidyverse)

# 转换数据格式
df_long <- df %>%
  pivot_longer(
    cols = -id,  # 保留id列，转换其他所有列
    names_to = c(".value", "position"),  # 拆分列名，.value对应x/y，position对应start/end
    names_sep = "_at_"  # 按"_at_"拆分列名
  )

转换后的df_long结构示例：

2. 绘制带连线的点图 #

用转换后的长数据绘图，通过group = id指定同一id的点需要连线，再用颜色区分start和end的点：

ggplot(df_long, aes(x = x, y = y, group = id)) +
  geom_line(color = "#666666") +  # 绘制id对应的连线
  geom_point(aes(color = position), size = 3) +  # 绘制点，按位置区分颜色
  theme_minimal() +  # 使用简洁主题
  labs(color = "位置")  # 修改图例标题

这样就能实现每个id对应的end点和start点用线条连接，同时清晰区分两组点。

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