如何在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")

这是您获得的：