针对高斯曲线绘制值

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

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

我知道这一定是一个非常基本的问题，但是我应该更改哪个参数，以便将两个图缩放并彼此相邻显示。

Answer 1

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

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