我正在尝试为两个不同的时间点绘制(在单个图中)两个内核密度(基于具有不同样本大小的两个样本)。
不幸的是,我无法使曲线下的面积等于 1,以使密度具有可比性(例如,参见下图时间 1)。
下面是我的代码示例和对应的图:
library(ggplot2)
library(ggridges)
sim.data1 <- data.frame(
time = c(rep(1, times = 1000), rep(2, times = 1000)),
x = c(rnorm(1000, mean =0 , sd =1 ), rnorm(1000, mean =5 , sd =1 ))
)
sim.data2 <- data.frame(
time = c(rep(1, times = 300), rep(2, times = 300)),
x = c(rnorm(300, mean =0 , sd =1 ), rnorm(300, mean =7 , sd =1 ))
)
ggplot(sim.data1,
aes(x = x, y = time, group = time, fill = "red", alpha = 0.5))+
geom_density_ridges(scale = 1)+
geom_density_ridges(data = sim.data2,
mapping=aes(x = x, y = time, group=time, fill = "blue"))+
geom_density_ridges(scale = 1)+
theme(legend.position = "none")