如何在ggplot2中按指定位置对齐分组水平线段与标记点？

虚拟数据 #

library(tidyverse)
library(ggplot2)

df <- tibble(
  id = c(rep("abcdef-123", 3), rep("defghi-678", 2), rep("mnopqr-345", 1)),
  length = c(rep(137, 3), rep(293, 2), rep(91, 1)),
  position = c(10, 77, 103, 82, 222, 45)
)

数据说明：

• id：对象唯一标识
• length：对象总长度（每个id对应唯一值）
• position：对象上特征出现的位置（每个id可包含多个值）

当前分组代码 #

df_grouped <- df %>% group_by(id)

期望绘图效果 #

• 每个id对应一条独立的水平线段
• 用点标记position位置
• 线段按每个id的第一个（或指定的）position对齐

当前代码问题 #

现有代码未实现按指定位置对齐线段的需求：

ggplot2::ggplot(df_grouped, aes(x=length, y=id, xend=0, yend=id)) + 
  ggplot2::geom_segment()+ 
  ggplot2::geom_point(aes(x=position, y=id), size=2) + 
  ggplot2::theme_void() +
  ggplot2::theme(axis.ticks.x = element_blank(), axis.text.x = element_blank())

解决方案 #

方法1：ggplot2实现 #

核心思路是计算每个id的对齐偏移量，将所有位置坐标进行偏移调整，让指定的对齐点统一落在同一x轴位置（比如x=0）。

1. 预处理数据，计算调整后坐标：

# 按id分组，计算对齐参考位置（这里取每个id的第一个position，可替换为指定值）
df_aligned <- df %>%
  group_by(id) %>%
  mutate(
    align_pos = first(position),  # 替换为指定position可改为：align_pos = 某个固定值或自定义逻辑
    adjusted_position = position - align_pos,
    adjusted_start = 0 - align_pos,  # 线段起始点（原0位置调整后）
    adjusted_end = length - align_pos # 线段终点（原length位置调整后）
  ) %>%
  ungroup()

2. 绘图代码：

ggplot(df_aligned, aes(x = adjusted_end, y = id, xend = adjusted_start, yend = id)) +
  geom_segment() +
  geom_point(aes(x = adjusted_position, y = id), size = 2) +
  # 添加对齐参考虚线（可选）
  geom_vline(xintercept = 0, linetype = "dashed", color = "gray50") +
  theme_void() +
  theme(axis.ticks.x = element_blank(), axis.text.x = element_blank())

方法2：base R实现 #

同样先计算偏移量，再通过基础绘图函数手动绘制线段和点：

1. 预处理数据（同ggplot2方法的预处理）：

df_aligned <- df %>%
  group_by(id) %>%
  mutate(
    align_pos = first(position),
    adjusted_position = position - align_pos,
    adjusted_start = -align_pos,
    adjusted_end = length - align_pos
  ) %>%
  ungroup()

2. 基础绘图代码：

# 获取id的唯一值和对应的y轴坐标
unique_ids <- unique(df_aligned$id)
y_coords <- seq_along(unique_ids)

# 初始化画布
plot(
  NULL,
  xlim = range(c(df_aligned$adjusted_start, df_aligned$adjusted_end)),
  ylim = c(0.5, length(unique_ids) + 0.5),
  yaxt = "n", xlab = "", ylab = "", bty = "n"
)

# 添加y轴标签
axis(2, at = y_coords, labels = unique_ids, las = 1)

# 循环绘制每个id的线段和点
for (i in seq_along(unique_ids)) {
  sub_data <- df_aligned[df_aligned$id == unique_ids[i], ]
  # 绘制水平线段
  segments(
    x0 = sub_data$adjusted_start[1], y0 = y_coords[i],
    x1 = sub_data$adjusted_end[1], y1 = y_coords[i]
  )
  # 绘制特征点
  points(
    x = sub_data$adjusted_position,
    y = rep(y_coords[i], nrow(sub_data)),
    pch = 16, cex = 2
  )
}

# 添加对齐参考虚线（可选）
abline(v = 0, lty = 2, col = "gray50")

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