R横並びのヒストグラム

Question

私は2つのランダムなサンプルを生成しなければならなかったので、par（）を使ってサイドヒストグラムのヒストグラムを表示しようとしていますが、問題を起こしてしまいました。コードは以下の通りです：

また

set.seed(123) 
x <- rnorm(1000, 0, 2) 

set.seed(123) 
y <- rnorm(1000, 0, 1) 

cbind(x,y) 

sd1 <- sd(x) 
sd2 <- sd(y) 

hist(x) 
hist(y) 

par(mfrow = c(2,1) 

xlim=c(-6,6) 

• 、どのように私は、ヒストグラムにxとyの異なる色を作るのですか？ありがとう！

Answer 1

パー（mfrow = C（2,1）これは正解ではありません（mfrow = C（2,1））

set.seed(123) 
x <- rnorm(1000, 0, 2) 
set.seed(123) 
y <- rnorm(1000, 0, 1) 
cbind(x,y) 
sd1 <- sd(x) 
sd2 <- sd(y) 
hist(x, col =c('red')) 
hist(y, col =c('green')) 
par(mfrow = c(2,1))  
xlim=c(-6,6)