我绘制了这个图,试图了解如何绘制数据数据的每个奇异特性的分布。因此,为了理解我的过程是否正确,我实现了这段代码,以快速绘制两个特性。
New <- c(Carm[,3],Carm[,4])
Names <-names(Carm)
Label <-c(Names[1],Names[2])
dat <- data.frame(New)
names(dat)[1] <- Label[1]
names(dat)[2] <- Label[2]
dat <- stack(dat) #I built a new smaller db taking onl
我有一个data.frame pp,前几行看起来是这样的,
fill x
1 a 0.3048367
2 b 0.3318136
3 c 0.2081782
4 a 0.2969265
5 b 0.2637778
6 c 0.3509706
我想创造一个像下面这样的情节,
library(ggplot2)
p <- ggplot(data = pp) +
geom_histogram(data=subset(pp, fill == 'a'),
aes(x=x, y=..density.., fill=f
我创建了一个直方图来显示连环杀手第一次杀人的年龄密度,并试图将概率密度函数叠加在这上面。然而,当我在geom_density()函数中使用ggplot2时,我得到了一个看起来太小的密度函数(area<1)。奇怪的是,通过改变直方图的盒宽,密度函数也会发生变化(垃圾箱宽度越小,密度函数就越适合。我想知道是否有人有一些指导,使这个功能更适合,它的面积如此远低于1?
#Histograms for Age of First Kill:
library(ggplot2)
AFKH <- ggplot(df, aes(AgeFirstKill,fill = cut(AgeFirst