我正在尝试可视化两个分布的直方图,然后可视化同一pdf图形中的分布。
首先,我尝试从正态分布模拟100到5000次绘制,其中µ = 6 ochσ= 2。
尝试:
x <-rnorm(n=100, mean=6, sd=2)
hist(x, probability=TRUE)
y <-rnorm(n=5000, mean=6, sd=2)
hist(x, probability=TRUE)
我相信对直方图的可视化是正确的。但是,我不明白如何在同一张图中显示两个图的pdf。我找到了一个名为pdfPlot()的函数,但无法使其正常工作。
如何将x和y合并为一张图并显示它们的pdf?
也许您可以考虑选择ggplot2
。如有必要,我会为您保留代码。您可以在数据框中设置变量,然后绘制它们。您可以从中删除元素position
,geom_histogram()
以在图中具有其他透视图。这里的代码:
library(ggplot2)
set.seed(123)
#Code
x <-rnorm(n=100, mean=6, sd=2)
hist(x, probability=TRUE)
y <-rnorm(n=5000, mean=6, sd=2)
hist(x, probability=TRUE)
#Data
x <-rnorm(n=100, mean=6, sd=2)
y <-rnorm(n=5000, mean=6, sd=2)
xlab <- rep('x',100)
ylab <- rep('y',5000)
#Dataframe
df <- data.frame(value=c(x,y),lab=c(xlab,ylab),stringsAsFactors = F)
#Plot
ggplot(df,aes(x=value,fill=lab,color=lab,group=lab))+
geom_histogram(aes(y = ..density..), alpha = 0.4,position = position_dodge())+
geom_line(aes(y = ..density..,), stat = 'density',show.legend = F)
输出:
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句