R：將兩個等高線圖組合在一起

Question

我正在使用 R 編程語言。 我制作了以下兩個圖：

library(ggplot2)
library(cowplot)

data_1 = data.frame(a = rnorm(100,10,10), b = rnorm(100,10,10), c = as.factor("one"))


data_2 = data.frame(a = rnorm(100,10,10), b = rnorm(100,10,10), c = as.factor("two"))


p1 = ggplot(data_1, aes(x = a, y = 
          b)) +
        geom_density_2d_filled() + 
        ggtitle("Plot 1")

p2 = ggplot(data_2, aes(x = a, y = 
          b)) +
        geom_density_2d_filled() + 
        ggtitle("Plot 2")

plot_grid(p1, p2)

我的問題：有沒有辦法將這兩個圖組合在一個 plot 中，這樣看起來不會“太亂”？

我嘗試了以下代碼：

ggplot(final, aes(x = a, y = 
                      b, colour = c)) +
    geom_density_2d_filled() + 
    ggtitle("Combined")

但這很難閱讀。

有誰知道如何做到這一點？

謝謝！

Answer 1

你的意思是什么。 像這樣？ 在這里，輪廓 plot 用於重疊多個二維 kernel 密度：

library(ggplot2)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

set.seed(1337)
data_1 = data.frame(a = rnorm(100,10,10), b = rnorm(100,10,10), c = as.factor("one"))
data_2 = data.frame(a = rnorm(100,10,10), b = rnorm(100,10,10), c = as.factor("two"))

bind_rows(
  data_1,
  data_2
) %>%
  ggplot(aes(a, b, color = c)) +
    geom_density2d()

^{由reprex package (v2.0.1) 於 2021 年 12 月 7 日創建}