ggplot中Y轴非连续数值型记录ID排序及刻度间距调整问题

1. 解决Y轴ID排序、无空白问题 #

核心思路是将record_id转换为按数值升序排列的有序因子，既不会插入不存在的ID产生空白占位，也不会出现字符型ID排序错位的问题。
先对数据集做预处理：

library(dplyr)
library(ggplot2)

sincevax_reshape <- sincevax_reshape %>%
  mutate(
    # 提取所有唯一的record_id，转数值排序后作为因子的levels
    record_id = factor(record_id,
                       levels = sort(unique(as.numeric(as.character(record_id)))),
                       ordered = TRUE)
  )

绘图时直接将处理后的record_id映射到Y轴即可：

ggplot(sincevax_reshape, aes(x = value, y = record_id)) +
  # 替换为你需要的几何对象，例如点、线段等
  geom_point(aes(color = variable))

2. 调整Y轴ID纵向间距避免拥挤 #

可任选以下两种方法实现：

• 导出图片时增大画布高度，高度越大，单条ID对应的纵向间距越大：

ggsave("record_id_plot.png", width = 8, height = 12, dpi = 300)

• 绘图时通过主题参数调整，缓解拥挤：

ggplot(sincevax_reshape, aes(x = value, y = record_id)) +
  geom_point(aes(color = variable)) +
  # 扩展Y轴上下留白，避免边缘ID贴边
  scale_y_discrete(expand = expansion(add = c(1, 1))) +
  theme(
    # 调整Y轴标签大小，根据ID数量灵活调整数值
    axis.text.y = element_text(size = 9)
  )

以上方法可完全实现你需要的效果：Y轴仅展示存在的ID、按数值升序排列、无多余空白区域。

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