如何繪製R中一個圖中的3個密度函數？

Question

我想在R工作室繪製3張圖。 平均數= 90，標準偏差= 5， 平均數= 90，標準偏差= 2， 平均數= 90，標準偏差= 1

我知道如何繪製一個曲線圖中，用下面的語法，

x <- seq(1,180) 
y <- dnorm(x,mean=90, sd=25) 
plot(x,y, type="l", lwd=1) 

但不知道如何添加另外兩個圖。

Answer 1

你可以做類似下面

x <- seq(1,180) 
plot(x, dnorm(x, mean = 90, sd = 5), type="l", lwd=1, ylim = c(0, 0.6)) 
lines(x, dnorm(x, mean = 90, sd = 2), type="l", lwd=1) 
lines(x, dnorm(x, mean = 90, sd = 1), type="l", lwd=1) 

如果您沒有設置正確ylim，隨後的數據可能不會出現在圖上。

這裏低於

Answer 2

結果使用替代繪圖ggplot2包

library(ggplot2) 

p <- ggplot(data = data.frame(x = 0), mapping = aes(x = x)) 
p <- p + stat_function(fun = function(x) dnorm(x, mean = 90, sd = 5)) 
p <- p + stat_function(fun = function(x) dnorm(x, mean = 90, sd = 2)) 
p <- p + stat_function(fun = function(x) dnorm(x, mean = 90, sd = 1)) 
p <- p + xlim(82.0, 98.0) + ylim(0.0, 0.5) 
print(p)