如何将ggplot2中其他分面的等高线移至主分面？

你想要的效果是：保留第一个分面的完整数据，同时把其他分面的等高线全部叠加到第一个分面上，其他分面的原始数据则舍弃。下面是基于你提供的最小可复现示例（MWE）的完整实现：

第一步：补全测试数据 #

首先我们把你给出的不完整测试数据补全，构造出两个分面的三维数据：

library(ggplot2)
library(dplyr)

data(volcano)
nx <- 87; ny <- 61
# 第一个分面（w=0）的原始火山数据
vdat <- data.frame(w = 0L, 
                   x = rep(seq_len(nx), ny), 
                   y = rep(seq_len(ny), each = nx), 
                   z = c(volcano))
# 第二个分面（w=1）：把z值整体抬高20，模拟不同的曲面
vdat <- bind_rows(vdat, mutate(vdat, w = 1L, z = z + 20))

第二步：核心实现代码 #

我们分三步完成需求：提取主分面数据、生成其他分面的等高线数据、最后合并可视化：

# 1. 提取第一个分面的完整数据（作为可视化的基础层）
main_facet_data <- filter(vdat, w == 0)

# 2. 生成其他分面的等高线坐标数据
# 利用ggplot的stat_contour计算等高线，再提取路径数据
other_facets_contours <- vdat %>%
  filter(w != 0) %>%
  ggplot(aes(x = x, y = y, z = z)) +
  stat_contour(geom = "path") %>%
  ggplot_build() %>%
  pluck("data", 1) %>%
  # 给不同分面的等高线加上分组标识，方便区分
  mutate(source_facet = factor(w))

# 3. 绘制最终的可视化图
ggplot(main_facet_data, aes(x = x, y = y)) +
  # 主分面的填充热图
  geom_raster(aes(fill = z)) +
  scale_fill_viridis_c(option = "plasma", name = "主分面Z值") +
  # 叠加其他分面的等高线，用颜色区分来源
  geom_path(
    data = other_facets_contours,
    aes(group = interaction(source_facet, group), color = source_facet),
    linewidth = 0.8
  ) +
  scale_color_manual(values = c("1" = "white"), name = "来源分面") +
  # 优化主题样式
  theme_minimal() +
  labs(title = "主分面热图叠加其他分面等高线")

代码说明 #

• 主数据提取：直接筛选出第一个分面的所有数据，作为可视化的底层热图，保留完整的数值信息。
• 等高线生成：借助ggplot2的stat_contour自动计算等高线的坐标路径，再通过ggplot_build()把这些路径数据提取出来，这样我们就能拿到可以直接叠加的线条数据。
• 叠加可视化：先绘制主分面的热图，再用geom_path把其他分面的等高线叠加到上面，通过color参数可以轻松区分不同分面的等高线，让可视化更清晰。

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