如何在R的ggplot2等高线图中标注线条数值？

嘿，我完全懂你这种困扰——好不容易画出了带颜色刻度的精美等高线图，却卡在给部分等高线加数值标注这一步，太挠头了！我先把你没写完的代码补全成可运行的示例（补全了函数部分，用高斯分布来生成清晰的等高线），再给你演示两种靠谱的标注方法：

第一步：补全并生成可用于演示的网格数据 #

首先修正你的数据生成代码，用expand.grid()更高效地创建规则网格，同时补全函数部分：

rm(list=ls())
# 创建x和y轴的序列
x <- 1:100
y <- 1:100
# 生成网格数据框（比循环更简洁高效）
data <- expand.grid(x = x, y = y)
# 定义生成z值的函数（用高斯分布示例，便于观察等高线）
fun <- function(x,y){
  return(exp(-((x-50)^2 + (y-50)^2)/1000))
}
# 计算每个网格点的z值
data$z <- fun(data$x, data$y)

方法一：用ggplot2自带的geom_contour_label()（推荐，简单直接） #

如果你用的是ggplot2 3.3.0及以上版本，自带的geom_contour_label()可以轻松实现标注，还能指定要标注的等高线数值：

library(ggplot2)

ggplot(data, aes(x = x, y = y, z = z)) +
  geom_contour_filled() + # 绘制带颜色填充的等高线
  # 给指定的等高线加数值标注
  geom_contour_label(
    aes(label = after_stat(level)), 
    breaks = c(0.2, 0.5, 0.8), # 这里填你想要标注的等高线数值
    color = "white", 
    fontface = "bold"
  ) +
  scale_fill_viridis_c() + # 设置颜色刻度（你原来的精美配色可以保留）
  theme_minimal()

关键点：after_stat(level)用来提取等高线的数值，breaks参数精准控制哪些等高线需要标注，避免全量标注导致的拥挤。

方法二：用ggrepel包实现防重叠的标注（灵活度更高） #

如果你的ggplot2版本较低，或者等高线比较密集担心标签重叠，ggrepel包的geom_text_repel()可以自动调整标签位置，避免互相遮挡：
首先安装并加载包：

install.packages("ggrepel")
library(ggrepel)

然后绘图：

ggplot(data, aes(x = x, y = y, z = z)) +
  geom_contour_filled() +
  geom_contour(aes(color = after_stat(level)), breaks = c(0.2, 0.5, 0.8)) +
  # 防重叠的文本标注
  geom_text_repel(
    stat = "contour",
    aes(label = after_stat(level)),
    breaks = c(0.2, 0.5, 0.8),
    color = "white",
    fontface = "bold"
  ) +
  scale_fill_viridis_c() +
  scale_color_viridis_c(guide = "none") + # 隐藏重复的颜色图例
  theme_minimal()

如果想标注所有等高线，只需要去掉breaks参数即可，但我还是建议只标注关键数值，这样图面会更清爽哦！

内容的提问来源于stack exchange，提问作者Santiago I. Hurtado