r - 使用 ggplot2 在一个组合图中绘制密度和累积密度函数

Question

我想得到一个结合了观察密度和 cdf 的图。

通常的问题是两者的比例相距甚远。如何解决这个问题，即使用两个比例尺，或者重新缩放其中一个数据系列(最好在 ggplot 中，因为我想分开计算和显示数据)。

这是目前的代码:

>dput(tmp)产量


structure(list(drivenkm = c(8, 11, 21, 4, 594, 179, 19, 7, 10,
36)), .Names = "drivenkm", class = c("data.table", "data.frame"
), row.names = c(NA, -10L), .internal.selfref = <pointer: 0x223cb78>)

那我做

p = ggplot(data = tmp, aes(x = drivenkm)) + geom_histogram(aes(y = ..density..), alpha = 0.2, binwidth = 3) + stat_ecdf(aes(x = drivenkm));
print(p)


我得到的是以下内容:

显然，天平离得很远。如何解决这个问题，以便以合理的方式解释直方图和 cdf？

谢谢!

Answer 1

密度按 binwidth 缩放，因此面积总和为 1。因此直方图的 y 也应乘以它:

p = ggplot(data = tmp, aes(x = drivenkm)) +
   geom_histogram(aes(y = 3*..density..), alpha = 0.2, binwidth = 3) +
   stat_ecdf(aes(x = drivenkm))