在 R 中使用 dnorm 和 plot 函数时线条不平滑

Question

我在R中使用dnorm和plot函数时遇到了一些麻烦。当我在Rcommander中执行以下代码时：

> x <- 50:225
> 
> a< - dnorm(x,165,15); b <- dnorm(x,149,18); c <- dnorm(x,134,25)
> 
> plot(x, a, type="l", lwd=3, ylim=c(0,1.2*max(a,b,c)), ylab="Probability
>      Density", xlab="Perikymata") lines(x,b, type="l", lwd=3, col="Red")
>      lines(x,c, type="l", lwd=3, col="Blue")

我得到下一张图片：

现在，完美。当我更改这些值时，问题就出现了，例如，使用以下代码：

> x <- 0:15
> 
> a <- dnorm(x,5.28,0.91); b <- dnorm(x,8.45,1.36)
> 
> plot(x,a, type="l", lwd=3, ylim=c(0,1.2*max(a,b)), ylab="Probability
>      Density", xlab="Perikymata") lines(x,b, type="l", lwd=3, col="Red")

使用这个文本我得到下一张图片：

如何在最后一张图中平滑这两条线，将第一张图像作为比较，并使两条线类似于正态分布？

Answer 1

R 仅在 X （“Perikymata”）的某些增量处计算 Y 值（“概率密度”）。在原始图中，您的 X 值介于 50 到 225 之间，即 175 个单位的 Perikymata。在您的新绘图中，X 值的范围仅为 0 到 15，即 15 个单位的 Perikymata。通过确保计算出更多的 Y 值，您可以获得更平滑的图。例如，您可以得到 175 而不是 15。您可以使用：

x <- seq(from=0, to=15, length.out=175)