R语言ggplot2如何合并两个2D密度填充等高线图为清晰单图

以下是3种可实现清晰合并效果的实现方案：

方案1：分面展示（推荐，可读性最高） #

将两个分组的密度图放在同一张画布的不同子面板，既保留填充效果，又不会出现互相遮挡的问题，适合对比两组分布的整体形态。

# 先合并两个数据集
final <- rbind(data_1, data_2)

ggplot(final, aes(x = a, y = b)) +
  geom_density_2d_filled() +
  facet_wrap(~c) + # 按分组c拆分独立面板
  ggtitle("合并分面密度图")

方案2：半透明填充叠加 #

如果需要在同一个坐标系下展示重叠区域的分布特征，可以调整填充透明度实现，注意geom_density_2d_filled的填充映射属性是fill而非colour，你之前的代码就是这里写错了导致效果混乱。

ggplot(final, aes(x = a, y = b, fill = c)) +
  geom_density_2d_filled(alpha = 0.4, show.legend = FALSE) + # alpha控制透明度，数值越低越透明
  ggtitle("半透明叠加密度图")

方案3：仅绘制等高线边界 #

不需要填充效果的话，改用geom_density_2d只绘制等高线边框，用颜色区分两组，是同坐标系下可读性最高的方案：

ggplot(final, aes(x = a, y = b, colour = c)) +
  geom_density_2d(linewidth = 1) +
  ggtitle("分组等高线图")

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