[BigData -Visualization for R] ] Panel그려서 여러 그래프 띄우기(panes)

panes(matrix(1:3,ncol=1),heights=c(0.7,0.8,1))
par(mar=c(0,2,2,2))
plot(sort(runif(7)),type="l",axes=FALSE)
axis(2,at=seq(0.1,0.9,by=0.2))
box()
 tab.title("Rising expectations",tab.col="#ee6666")
barplot(rev(sort(runif(7))),col=season,axes=FALSE)
axis(2,at=seq(0.1,0.9,by=0.2))
box()
 tab.title("Diminishing returns",tab.col=season)
 par(mar=c(4,2,2,2))
tso<-c(0.2,0.3,0.5,0.4,0.6,0.8,0.1)
plot(tso,type="n",axes=FALSE,xlab="")points(1:7,tso,pch=c(rep(-0x263a,6),-0x2639),cex=2)
axis(1,at=1:7,
labels=c("Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday","Monday"))
axis(2,at=seq(0.1,0.9,by=0.2))
box()
 tab.title("The sad outcome",tab.col=season3)
mtext("A lot of malarkey",side=1,line=2.5)

y<-runif(8)
oldpar<-panes(matrix(1:4,nrow=2,byrow=TRUE))
par(mar=c(0,2,1.6,0))
boxplot(y,axes=FALSE)
axis(2)
box()
par(mar=c(0,0,1.6,2))
tab.title("Boxplot of y",tab.col=season)
barplot(y,axes=FALSE,col=season)
axis(4)
box()
tab.title("Barplot of y",tab.col=season1)
par(mar=c(2,2,1.6,0))
pie(y,col=season3)
tab.title("Pie chart of y",tab.col=season3)
box()
par(mar=c(2,0,1.6,2))
plot(y,xaxs="i",xlim=c(0,9),axes=FALSE,col=season2)
axis(4)
box()
tab.title("Scatterplot of y",tab.col="#88dd88")
mtext("Test of panes function",at=0,side=1,line=0.8,cex=1.5)