ggplot2中如何通过facet_wrap为分面设置独立色阶与图例

原生facet_wrap()的scales="free"仅支持坐标轴尺度独立，不支持分面独立的填充色阶与单独图例，这是ggplot2原生分面功能的固有设计，无法通过调整自带参数实现目标效果，以下是两种经过验证的可行方案：

方案1：patchwork分图拼接（效果最贴合目标需求） #

逻辑是按分面变量拆分数据集，分别绘制单图后拼接，每个子图的色阶完全基于自身数据范围生成，自带独立图例，不受其他分面数据跨度影响。
代码实现：

• 加载依赖包

library(ggplot2)
library(metR) # 调用的geom_contour_fill来自该包
library(patchwork)

• 批量生成分面子图

# 获取所有分面类别
facet_ids <- unique(dataframe$nombre_nivel)

# 遍历生成分图
plot_list <- lapply(facet_ids, function(facet){
  sub_df <- dataframe[dataframe$nombre_nivel == facet, ]
  ggplot(sub_df, aes(x = lon, y = lat)) +
    geom_contour_fill(aes(z = hgt, fill = stat(level))) +
    geom_contour(aes(z = hgt), color = "black", linewidth = 0.2) +
    scale_fill_distiller(palette = "YlOrBr", direction = 1, super = ScaleDiscretised) +
    mi_mapa + # 自定义底图图层
    coord_quickmap(xlim = range(sub_df$lon), ylim = range(sub_df$lat), expand = FALSE) +
    labs(x = "Longitud", y = "Latitud", fill = "altura", title = facet)
})

• 拼接为2列布局，和原facet布局一致

wrap_plots(plot_list, ncol = 2) +
  plot_annotation(title = "campos")

方案优势：色阶完全独立、图例单独配置，对数据跨度差异大的场景适配性最好，和目标示例的呈现效果完全匹配。

方案2：ggh4x扩展包原生分面实现（无需拆分数据） #

如果希望保留单套ggplot代码的facet语法，可以使用ggh4x包提供的分面扩展功能，直接开启分面独立填充尺度：

# 安装并加载包
# install.packages("ggh4x")
library(ggh4x)

ggplot(dataframe, aes(x = lon, y = lat)) +
  geom_contour_fill(aes(z = hgt, fill = stat(level))) +
  geom_contour(aes(z = hgt), color = "black", linewidth = 0.2) +
  scale_fill_distiller(
    palette = "YlOrBr", direction = 1, super = ScaleDiscretised,
    limits = ~ range(.x$hgt) # 每个分面按自身数据范围设色阶边界
  ) +
  mi_mapa +
  coord_quickmap(xlim = range(dataframe$lon), ylim = range(dataframe$lat), expand = FALSE) +
  # 用facet_wrap2开启独立填充尺度
  facet_wrap2(
    ~nombre_nivel, scales = "free", ncol = 2,
    independent = "fill" # 核心参数，放开填充尺度的分面独立控制
  ) +
  labs(x = "Longitud", y = "Latitud", fill = "altura", title = "campos")

代码修正提示：原代码中mapping=aes(x=lon,x=lat)存在笔误，第二个x参数应改为y，否则会触发映射报错。

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