《R语言与数据可视化》课件-R语言可视化第六章

面板调整R语言中的面板调整主要包含屏幕和布局。屏幕Screen：

用x11()等函数打开图形设备之后，就可以使用相应的screen函数了。比如split.screen(c(2,2))该函数用于将screen分成2行2列，标识符按行分别从1到2*2标记，参数向量用于指定每个screen的标识符，注意不能分割太多，会造成图画不下的情况。split.screen(c(1,2),screen=2)可以将子screen再次进行分割screen这个参数用于指定需要再次分割的标识符。下去就是画图了。screen(2)用于选中标识符为2的子屏幕，以后的画图函数都在2这个子屏幕中生效，如果2这个子屏幕中已经被画过了，它会清空已经画过的。如果不想清空只需screen(2,FALSE)即可。erase.screen(n=)用于清空指定标识符上的图形，close.screen(n,all.screens=FALSE)关闭屏幕，相当于清空了标识符，因此再也不能定位到相应的屏幕了。布局Layout：相比screen函数，还有一个Layout，比screen更加灵活（理论上可以设置出任意的布局），也更加方便。layout(mat,widths,heights):mat用于划分整个布局，如果mat中两块数字相同则布局显示时候会将那两块显示在一起。Widths和heights都是一个向量，长度分别和列数和行数相同，用来表示每一块列或者行的相对长度。如果要用绝对的，可用lcm(5)这个函数，返回5cm。layout.show(n)用来显示子窗口的个数。在画图的时候，Layout中默认是bycolonm的，即画图时候，先画a[1,1].再a[1,2],再a[2,1]a[2,2]，如果要a[1,1]之后是a[1,2]只要在matrix这个参数中指定byrow=TRUE即可。屏幕

split.screen(figs,screen,erase=TRUE)screen(n=,new=TRUE)erase.screen(n=)close.screen(n,all.screens=FALSE)figs在一个屏幕矩阵或有4列的矩阵下，描述行数和列数的双元素向量。如果一个矩阵,每一行用左边，右边，底部和顶部来描述一个屏幕,0在图案表面的左下角,1在右上角。screen表示分割屏幕的数量。如果有一个它默认为当前屏幕上,否则表示整个图案区域。erase逻辑值:屏幕是否应该被清除。n指示准备绘制(屏幕)哪个屏幕的数字,擦掉(erase.screen)或关闭(close.screen)。(close.screen将会接受一个表示屏幕数字的向量。)new逻辑值，指示屏幕是否应该被删除作为准备绘制在屏幕上的一部分。all.screens逻辑值,指出是否应该关闭所有的屏幕par(bg="white")split.screen(c(2,1))split.screen(c(1,2),2)plot(1:10,ylab="ylab3")screen(1)plot(1:10)screen(4)plot(1:10,ylab="ylab4")screen(1,FALSE)plot(10:1,axes=FALSE,lty=2,ylab="")axis(4)title("Plot1")close.screen(all=TRUE)布局

layout(mat,widths=(1,ncol(mat)),heights=(1,nrow(mat)),respect=FALSE)

layout.show(n=1)lcm(x)mat一个在输出单元指定后N个数据的位置的矩阵对象。矩阵中的每个值必须是0或一个正整数。如果N是矩阵中最大的正整数,那么整数{1,…,N-1}在矩阵中必须至少出现一次。widths一个表示在单元上列的宽度的值的向量。相对宽度被指定值。绝对宽度(厘米)被指定为lcm()函数。heights一个表示在单元上的行高的值的向量。可以指定相对和绝对高度,参见上面的宽度。respect一个逻辑值或一个矩阵对象。如果是后者,那么它必须有和mat相同的维度并且矩阵中的每个值必须是0或1。n绘图的点的数目x表示几个厘米的一个维度。x<-pmin(3,pmax(-3,stats::rnorm(50)))y<-pmin(3,pmax(-3,stats::rnorm(50)))xhist<-hist(x,breaks=seq(-3,3,0.5),plot=FALSE)yhist<-hist(y,breaks=seq(-3,3,0.5),plot=FALSE)top<-max(c(xhist$counts,yhist$counts))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)par(mar=c(3,3,1,1))plot(x,y,xlim=xrange,ylim=yrange,xlab="",ylab="")par(mar=c(0,3,1,1))barplot(xhist$counts,axes=