绘制高斯曲线的值

Question

我是R和统计学的新手，我仍然了解基本概念。我需要根据高斯曲线创建矩阵列中所有值的图形。 以下是代码

#Generates a random matrix with 50 columns
randomMatrix1 <- matrix(c(1:30000), ncol=50)

#Base sequence
x  <- seq(15001,30000, 25)

#Normal function using mean and sd of randomMatrix1
y1 <- dnorm(x/1000,mean=mean(randomMatrix1[,50]),sd=sd(randomMatrix1[,50]))

#Getting the actual values in randomMatrix1
y2 <- cbind(randomMatrix1[,50]/1000)

df <- data.frame(x,y1,y2)


require(ggplot2)

ggplot(df, aes(x)) +                    # basic graphical object
geom_line(aes(y=y1), colour="red") +  # first layer
geom_line(aes(y=y2), colour="green")  # second layer

我需要在同一个图上输出两个图，但输出没有缩放，我尝试了一些改变均值和sd的组合，但没有任何效果。

我知道这必须是一个非常基本的问题，但我应该更改哪个参数，以便两个图得到缩放并显示在彼此旁边。

Answer 1

我不确定我是否理解这个问题，但这有帮助吗？

library(reshape2)
ggplot(melt(df, id="x"), aes(x=x, y=value)) + 
  geom_line() + 
  facet_wrap(~ variable, scale="free_y")