R并排直方图

Question

所以我有一个问题，我必须生成两个随机样本，并且试图使用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

par（mfrow = c（2,1））应该是par（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)