значения графика против кривой гауссова

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")