如何用facet_wrap实现geom_point叠加全局基准层的分面可视化

想要制作一个可视化图表，在全样本数据的分布之上高亮展示不同的数据子集。使用geom_hex展示全样本的分布以呈现数据密集区域，再在上方绘制某个子集的实际数据点。希望通过facet_wrap对多个子集分面展示，但当前代码中geom_hex仅显示对应子集的分布而非全样本分布，请问能否这样使用facet_wrap？

示例代码：

set.seed(123)
n = 1000
df = data.frame(x = rnorm(n),
                y = rnorm(n),
                group = sample(letters[1:2], n, replace = TRUE))

ggplot(df, aes(x = x, y = y, col = group)) + 
  geom_hex() +
  geom_point() + 
  facet_grid(~group)

当然可以实现，核心是让geom_hex不受分面的分组过滤，始终调用全量数据。具体需要给geom_hex单独指定完整数据集，并覆盖掉可能导致分组过滤的美学映射。

修改后的代码如下：

set.seed(123)
n = 1000
df = data.frame(x = rnorm(n),
                y = rnorm(n),
                group = sample(letters[1:2], n, replace = TRUE))

ggplot(df, aes(x = x, y = y, col = group)) + 
  # 显式传入全量数据，覆盖group颜色映射避免分组过滤
  geom_hex(data = df, aes(col = NULL)) +
  geom_point() + 
  facet_wrap(~group)

原理说明 #

• 默认状态下，ggplot的所有图层会继承主绘图的数据源和美学映射，分面时会自动按分组过滤每个图层的数据，这就是你之前看到每个分面只显示对应子集六边形的原因。
• 给geom_hex单独传入data = df，强制它使用完整数据集；同时用aes(col = NULL)移除主绘图的col = group映射，避免分组逻辑影响热力图的生成。
• 调整后，每个分面的热力图都是全样本的分布情况，上方的散点则只展示对应分组的数据，完美实现你想要的可视化效果。

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