R 合并打印时无法更改条形图的颜色

我尝试使用条形图绘图，当

hist（breaks=200）

时，条形图可以使用不同的颜色。但是当

hist（breaks=1000）

无法更改条形图中的颜色。为什么当组合三个图时，

ylab

没有显示在条形图中？在单个图中是可以的）

这是我的代码：breaks=1000，不能改变颜色

def.par <- par(no.readonly = TRUE) # save default, for resetting... 
x <- pmin(3, pmax(-3, rnorm(5000)))
y <- pmin(3, pmax(-3, rnorm(5000)))
xhist <- hist(x, breaks=1000, plot=FALSE)
yhist <- hist(y, breaks=1000,plot=FALSE)
top <- max(c(xhist$density, yhist$density))
xrange <- c(-3,3)
yrange <- c(-3,3)
nf <- layout(matrix(c(2,0,1,3),2,2,byrow=TRUE), c(3,1), c(1,3), TRUE)#layout.show(nf)ZSSS

par(mar=c(3,3,0,0))
plot(x, y, xlim=xrange, ylim=yrange, xlab="T1", ylab="T2")

par(mar=c(0,3,1,1))
barplot(xhist$density, axes=TRUE, ylim=c(0, top),ylab="T3",col="red")

par(mar=c(3,0,1,1))
barplot(yhist$density, axes=TRUE, xlim=c(0, top),xlab="T4",space=0, horiz=TRUE,col="green")

par(def.par)

---

<代码> DEF.PAR

只更改边框颜色：

def.par <- par(no.readonly = TRUE) # save default, for resetting... 
x <- pmin(3, pmax(-3, rnorm(5000)))
y <- pmin(3, pmax(-3, rnorm(5000)))
xhist <- hist(x, breaks=100, plot=FALSE)
yhist <- hist(y, breaks=100,plot=FALSE)
top <- max(c(xhist$density, yhist$density))
xrange <- c(-3,3)
yrange <- c(-3,3)
nf <- layout(matrix(c(2,0,1,3),2,2,byrow=TRUE), c(3,1), c(1,3),TRUE)#layout.show(nf)ZSSS

par(mar=c(3,3,0,0))
plot(x, y, xlim=xrange, ylim=yrange, xlab="T1", ylab="T2")

par(mar=c(0,3,1,1))
barplot(xhist$density, axes=TRUE, ylim=c(0, top),ylab="T3",col="red", border = "red")

par(mar=c(3,0,1,1))
barplot(yhist$density, axes=TRUE, xlim=c(0, top),xlab="T4",space=0, horiz=TRUE,col="green", border = "green")

---

<代码> DEF.PAR谢谢！但是你知道为什么<代码> ylab （t2，t3，t4）没有显示在三个图中吗？