グラフを重ねる par(new=T)

正規分布のグラフを描いてみます

平均$-2$、不偏標準偏差$4$の正規分布です $\quad \sim N(-2,\ 4^2)$

R
curve(dnorm(x, -2, 4), xlim=c(-10, 10), ylim=c(0, 0.4), ylab="")
text(-5, 0.1, "N(-2, 16)")

par(new=TRUE)で別のグラフ(正規分布)を重ねてみます

平均$ 3 $、不偏標準偏差$ 1 $の正規分布です$\quad \sim N(3,\ 1^2)$

R
par(new=TRUE)
curve(dnorm(x, 3, 1), xlim=c(-10, 10), ylim=c(0, 0.4), ylab="")
text(1.5, 0.3, "N(3, 1)")

グラフの消去

R
dev.off()

x軸とy軸を揃えておくことがポイントです xlim=c(-10, 10), ylim=c(0, 0.4)

もし揃えなかったらこうなります

R
curve(dnorm(x, -2, 4), ylab="")
par(new=TRUE)
curve(dnorm(x, 3, 1), ylab="")

グラフの消去

R
dev.off()

コメント欄 『間違い』や『分かりにくい部分』などのご意見もお寄せください

タイトルとURLをコピーしました