如何转移密度？

Question

我正在努力＆＃34;纠正＆＃34;具有原始数据的模型的结果。 我在一个点测量温度，然后看模型输出的相同点。

我有两个数据框，一个用于原始数据，另一个用于模型数据。 这是2个密度的例子，我想将模型密度转换为原位密度。 有可能吗？

insitu <- data.frame(Temp = rnorm(500, 6, 2))
model <- data.frame(Temp = rnorm(500, 7, 2.5))
insitu$mesure <- "insitu"
model$mesure <- "model"
allData <- rbind(insitu, model)
ggplot(allData, aes(Temp, fill=mesure)) + geom_density(alpha = 0.2)

Answer 1

我不确定你的意思是：

ggplot(allData, aes(Temp, fill=mesure)) + geom_density(position = "stack", alpha = 0.2)