は、プロットを組み合わせたときにバープロットの色を変更できません

Question

hist(breaks=200)、バープロットが異なる色で表示される場合、バープロットを使用してプロットしようとしましたが、hist(breaks=1000)はバープロットで色を変更できません。そしてなぜylabが3つのプロットを結合するときにバープロットに表示されなかったのですか？1つのプロットではOKです。ここで

breaks=200 breaks=1000

私のコードです：= 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) 

Answer 1

ただ、境界線の色を変更します。

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