使用ggplot2绘制带标注等高线的(x,y,z)型3D曲面是否可行？

ggplot2本身专注于2D可视化，原生不支持3D曲面绘制，但可以结合其他工具包实现你要的效果，以下是两种可行方案：

方案1：用plotly制作交互式3D曲面+标注等高线 #

plotly可以轻松生成带等高线标注的3D曲面，操作简单且支持交互：

1. 安装并加载依赖包 #

install.packages(c("plotly", "tidyverse"))
library(plotly)
library(tidyverse)

2. 准备(x,y,z)格式的数据 #

这里用模拟数据演示，你可以替换成自己的向量数据（注意要先把向量转换成网格数据框）：

# 生成x、y向量
x <- seq(-5, 5, length.out = 50)
y <- seq(-5, 5, length.out = 50)

# 构建网格并计算z值（以二元高斯函数为例）
df <- expand.grid(x = x, y = y) %>%
  mutate(z = exp(-(x^2 + y^2)/5))

3. 绘制3D曲面与标注等高线 #

plot_ly(df, x = ~x, y = ~y, z = ~z, type = "surface") %>%
  layout(scene = list(
    contours = list(
      z = list(
        show = TRUE,
        usecolormap = TRUE,
        highlightcolor = "#ff0000",
        project = list(z = TRUE),
        labelfont = list(size = 10)  # 设置标注字体大小
      )
    )
  ))

运行后会得到交互式3D图，底部的等高线带有数值标注，还能通过鼠标拖拽旋转视角、缩放查看细节。

方案2：用ggplot2绘制带标注的2D等高线图 #

如果只需要3D曲面的2D投影（带标注等高线），可以直接用ggplot2配合metR包实现：

1. 安装并加载依赖包 #

install.packages(c("ggplot2", "metR"))
library(ggplot2)
library(metR)

2. 绘制带标注的等高线 #

ggplot(df, aes(x = x, y = y, z = z)) +
  geom_contour_fill() +  # 填充等高线区域
  geom_contour(color = "black") +  # 绘制等高线线条
  geom_text_contour(aes(label = ..level..), size = 3) +  # 标注等高线数值
  scale_fill_viridis_c(option = "plasma") +  # 设置配色方案
  theme_bw()

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