r - 如何为叠加在 R 中的直方图上的密度图添加第二个 y 轴？

Question

我有一个如下所示的直方图，并在其上添加了 2 个密度图。它对应于构成数据的 2 个类。

我想在右侧添加第二个 y 轴，但与第一个 y 轴具有相同的高度，以便密度图的高度看起来不那么小。2 个密度图的相对高度必须直接可比较，使得它们的组合面积为 1

Answer 1

如果你使用ggplot2，你可以使用geom_density(aes(y=..scaled..))和geom_histogram(aes(y = ..ndensity))类似地缩放

例如

x <- rnorm(400, 10, 5)
y <- rnorm(400, -10, 5)
dd <- rbind(data.frame(value = x, id = 'x'), data.frame(value = y, id = 'y'))
ggplot(dd, aes(x=value)) + 
  geom_histogram(aes(y=..ndensity..)) + 
  geom_density(aes(colour = id, y = ..scaled..))

Answer 2

z <- rnorm(100,.3,.2)
hist(z, xlab="", ylab="", main="", yaxt="n")
par(new=TRUE)
plot(density(z), xlab="", ylab="", main="", xaxt="n", yaxt="n")
axis(2, ...) # plug in the relevant values for `at` and `labels`
axis(4, ...) # plug in the relevant values for `at` and `labels`