ggplot2绘图时如何将x轴数值区间替换为自定义文字标签

你之前使用scale_x_discrete不生效，是因为x轴映射的pos是连续数值类型，需要用连续轴的缩放函数scale_x_continuous自定义刻度标签即可实现需求。

方案1：保留散点原始x轴相对位置（推荐） #

该方案不会改变散点的排布，仅将x轴刻度替换为你需要的自定义标签，你可以直接用已有的区间起止值计算刻度位置：

# 1. 定义刻度位置：取每个区间的中点作为标签显示的位置，可根据你的实际区间调整
x_breaks <- c(
  (145000000 + 146000000)/2, # low区间中点
  (146000000 + 147000000)/2  # mid区间中点
)
# 2. 定义对应刻度的显示标签
x_labels <- c("low", "mid")

ggplot(erpeaks, aes(x=pos, y=score)) + 
  geom_point(aes(colour = factor(label)), position = position_jitter(w=0,h=0))  +
  # 自定义x轴刻度与范围
  scale_x_continuous(
    breaks = x_breaks,
    labels = x_labels,
    limits = c(144018895.5, 146957774.5) # 你需要的x轴显示范围，无需额外调用coord_cartesian
  ) +
  # 可选：添加区间分隔线，对应你手动标注的红色矩形边界
  geom_vline(xintercept = 146000000, color = "red", linetype = "dashed") +
  theme(plot.title=element_text(hjust=0.5))

方案2：按区间聚合为离散x轴 #

如果你需要把同一区间的散点全部对齐到同一个x轴位置展示，可以直接将你已有的「数据点所属标签」列作为x轴映射变量：

# 假设你存储每个数据点所属标签的列名为pos_group
ggplot(erpeaks, aes(x=factor(pos_group, levels = c("low", "mid")), y=score)) + 
  geom_point(aes(colour = factor(label)), position = position_jitter(w=0.2,h=0))  +
  labs(x = "pos") + # 可自定义x轴名称
  theme(plot.title=element_text(hjust=0.5))

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