R中连续刻度轴自定义分类阈值中断的实现咨询

完全可以做到！不用扭曲图表就能把Y轴的5刻度换成“Above 5”，同时让那三个超重车型的点稳稳落在这个自定义刻度线上，还能保留它们的mpg等关键信息。下面是具体的实现方案：

核心思路 #

• 先对数据做小处理：把重量超过5的观测值的绘图y值统一设为5，但保留原始重量和mpg数据，方便后续展示细节
• 自定义Y轴刻度：把原本的5刻度标签替换成“Above 5”
• 可选但推荐：给这三个异常值加个文本标注，把它们的实际重量和mpg都显示出来，避免信息丢失

完整代码 #

library(ggplot2)
library(dplyr) # 用于数据处理，也可以用base R替代

# 处理数据：生成绘图用的y值，保留原始数据
mtcars_plot <- mtcars %>%
  mutate(wt_plot = ifelse(wt > 5, 5, wt))

# 绘制图表
ggplot(mtcars_plot, aes(x = mpg, y = wt_plot)) +
  # 绘制散点，按气缸数区分颜色
  geom_point(aes(colour = factor(cyl)), size = 2) +
  # 自定义Y轴：刻度位置不变，把5的标签换成"Above 5"
  scale_y_continuous(
    name = "Weight",
    breaks = c(2, 3, 4, 5),
    labels = c("2", "3", "4", "Above 5")
  ) +
  # 给超重的点添加标注，显示mpg和实际重量
  geom_text(
    data = mtcars_plot %>% filter(wt > 5),
    aes(label = paste0("mpg: ", mpg, "\nActual wt: ", round(wt, 2))),
    vjust = -0.8, size = 3, color = "darkred"
  ) +
  # 调整图例和主题
  labs(colour = "Number of Cylinders") +
  theme_minimal()

效果说明 #

• 那三个重量超5的点会被固定在Y轴“Above 5”的刻度线上，不会拉宽Y轴导致其他数据点被压缩完美避免图表扭曲
• 文本标注清晰展示了这些点的mpg和实际重量，完全保留了你需要的信息
• 其他数据点的展示不受任何影响，图表比例正常

如果你觉得文本标注太繁琐，直接去掉geom_text部分也可以，核心的刻度替换和异常值展示需求依然能满足。

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