R语言进阶之图形的合并

# 创建一个2行2列的画布
# 使用mtcars数据集作为示例
attach(mtcars) # 固定数据集
par(mfrow=c(2,2)) # 2行2列的画布，按行排列
plot(wt,mpg, main="Scatterplot of wt vs.mpg") # 绘制变量wt和 mpg之间的散点图
plot(wt,disp, main="Scatterplot of wt vsdisp") # 绘制变量wt和disp之间的散点图
hist(wt, main="Histogram of wt") # 绘制变量wt的直方图
boxplot(wt, main="Boxplot of wt") # 绘制变量wt的箱线图

# 创建3行1列的画布
attach(mtcars) # 固定数据集
par(mfrow=c(3,1)) # 3行1列画布，按行排列
hist(wt) # 绘制变量wt的直方图
hist(mpg) # 绘制变量mpg的直方图
hist(disp) # 绘制变量disp的直方图

#画布第一行包含一张图片，而第二行包含两张图片
attach(mtcars)
layout(matrix(c(1,1,2,3), 2, 2, byrow = TRUE))
hist(wt)
hist(mpg)
hist(disp)

# 画布第一行包含一张图片，而第二行包含两张图片
# 第一行的高度是第二行的1/3
# 第二列的宽度是第一列的1/4
attach(mtcars)
layout(matrix(c(1,1,2,3), 2, 2, byrow = TRUE), widths=c(3,1),heights=c(1,2))
hist(wt)
hist(mpg)
hist(disp)

# 给散点图添加上箱线图
par(fig=c(0,0.8,0,0.8),new=TRUE)
plot(mtcars$wt, mtcars$mpg, xlab="CarWeight",
ylab="Miles Per Gallon")
par(fig=c(0,0.8,0.55,1), new=TRUE)
boxplot(mtcars$wt, horizontal=TRUE, axes=FALSE)
par(fig=c(0.65,1,0,0.8),new=TRUE)
boxplot(mtcars$mpg, axes=FALSE)
mtext("Enhanced Scatterplot", side=3,outer=TRUE, line=-3)