如何在ggplot2中向密度添加兩個分布

Question

我想在ggplot2的相同分布中添加兩組保齡球得分，但是我在每個組中沒有相同數量的觀察值，但是我想將它們相互繪制。 下面是我的代碼。

    m <- ggplot(bowling, aes(x = as.numeric(Kenny)))
    n <- ggplot(bowling, aes(x= as.numeric(Group)))
    m + n geom_density()

這是錯誤。

    Error in p + o : non-numeric argument to binary operator
    In addition: Warning message:
    Incompatible methods ("+.gg", "Ops.data.frame") for "+" 

我只想將它們繪制在彼此的頂部，但我不知道是什么問題。

Answer 1

問題在於，您要將單個geom_density圖層添加到具有不同美學geom_density兩個不同圖（m和n）中。

如果我正確理解了您的問題，這是一個潛在的解決方案。

首先，創建一個小的樣本數據集

kenny <- rnorm(100, 20, 2)  
group <- rnorm(100, 15, 2)  
bowling <- data.frame(kenny, group)

其次，首先為kenny繪制一個geom_density圖層作為美學，然后為另一個美學（即組）添加geom_density圖層。

ggplot(bowling, aes(x = kenny)) +  
geom_density() + geom_density(aes(x=group), colour="red")

這是您獲得的：