ggplot中在自动刻度上添加手动标记刻度：最低y值点高亮实现

我来帮你搞定这个需求，咱们一步步来实现你想要的效果：

步骤1：准备数据并定位最小点 #

首先生成你的示例数据，同时精准定位y值最小的那个点的坐标：

set.seed(123) # 设置随机种子，确保结果可复现
df <- data.frame(x=1:100,y=rnorm(100,10,1))

# 提取y值最小的点的坐标
min_point <- df[which.min(df$y), ]
min_x <- min_point$x
min_y <- min_point$y

步骤2：绘制图表并添加高亮元素 #

接下来用ggplot构建完整图表，包含散点、高亮点、连线以及自定义刻度：

library(ggplot2)

ggplot(df, aes(x=x, y=y)) +
  # 绘制所有基础散点
  geom_point() +
  # 高亮y最小的点，用红色大圆点突出显示
  geom_point(data = min_point, aes(x=x, y=y), color = "red", size = 4) +
  # 绘制到x轴的虚线连线（从最小点到(x, 0)）
  geom_segment(data = min_point, aes(x=x, xend=x, y=y, yend=0), color = "red", linetype = "dashed") +
  # 绘制到y轴的虚线连线（从最小点到(0, y)）
  geom_segment(data = min_point, aes(x=x, xend=0, y=y, yend=y), color = "red", linetype = "dashed") +
  # 自定义x轴刻度：保留自动刻度 + 添加最小点的x值
  scale_x_continuous(breaks = function(x) unique(c(pretty(x), min_x))) +
  # 自定义y轴刻度：保留自动刻度 + 添加最小点的y值
  scale_y_continuous(breaks = function(x) unique(c(pretty(x), min_y))) +
  # 可选：用简洁主题优化视觉效果
  theme_minimal()

关键代码解释 #

• which.min(df$y) 快速定位y值最小的行，提取对应的x、y坐标；
• 单独调用geom_point处理最小点，用颜色和大小强化高亮效果；
• geom_segment分别绘制到x轴、y轴的虚线，明确标记点与坐标轴的对应关系；
• 刻度设置里的pretty(x)会生成原本的自动刻度，再合并最小点的坐标，unique用来避免出现重复刻度；

这样就能完美实现你想要的效果：高亮y值最小的点，带连线到坐标轴，同时保留原有自动刻度并添加手动标记的刻度。

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