0

私は 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

同じプロットで 2 つのプロットの出力が必要ですが、出力はスケーリングされず、平均と sd を変更していくつかの組み合わせを試しましたが、何も機能しませんでした。

これは非常に基本的な質問に違いないことはわかっていますが、2 つのプロットがスケーリングされて隣り合って表示されるようにするには、どのパラメーターを変更する必要がありますか。

4

1 に答える 1

0

質問を正しく理解できたかどうかわかりませんが、これは役に立ちますか?

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

ここに画像の説明を入力

于 2013-02-21T06:56:46.477 に答える