r - Rのヒストグラムに重ねられた密度プロットに2番目のy軸を追加するには?

Question

以下に示すヒストグラムがあり、その上に 2 つの密度プロットを追加しました。データを構成する2つのクラスに対応しています。

密度プロットの高さがそれほど小さく見えないように、右側に 2 番目の y 軸を追加しますが、1 番目の y 軸と同じ高さになります。2 つの密度プロットの相対的な高さは、合計面積が 1 になるように、直接比較する必要があります。

Answer 1

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`