引入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)