引入d.class进行画图
> d.class<-read.csv("D://class.csv",header = T)
> attach(d.class)
> opar<-par(no.readonly = TRUE)
非常简单的数据，需要可自取
链接：https://pan.baidu.com/s/1zNx5z9JsaaRqFueRgGY3mQ
提取码：mads
1.par()函数进行画布布局
//画布被分为4个格子
par(mfrow=c(2,2))分布四个图型
> plot(age,height,main="身高随年龄变化")
> plot(age,weight,main="体重随年龄变化")
> hist(age,main="年龄柱状图")
> boxplot(age,main="年龄箱线图")
2.layout()函数
> layout(matrix(c(1,1,2,3),2,2,byrow=TRUE))
#1表示第一个图形，2表示第二个图形
> hist(age)
> hist(weight)
> hist(height)
> layout(matrix(c(1,1,2,3),2,2,byrow = TRUE),widths = c(3,1),heights = c(1,1))
#两行两列,列宽为3：1,行高为1：1
> hist(wt)
> hist(mpg)
> hist(disp)
3.par( fig=c() )的设置:其中c的参数如下
> par(fig=c(0,0.8,0,0.8))
> plot(age,weight,xlab = "年龄",ylab = "体重")
#上一个图形消失了，除非par(fig=c(0,0.8,0,0.8),new=TRUE)
> par(fig=c(0,0.8,0,0.8))
> boxplot(age,axes=FALSE)
