data(mtcars)
df <- mtcars
attach(df)

# 一般情况下，用par(mfrow(nrows,ncols)可以满足多个图的组合，但是并不能控制每个图的相对大小,所以需要用到函数layout()

#距阵的意思是 第一个图在[1,1],[1,2]这个位置，第二个图在[2,1],第三个图在[2,2]
数字1，2，3代表了第一、第二、第三个图，所在索引代表了图所在的位置

layout(matrix(c(1,1,2,3), 2, 2, byrow = TRUE)) 
hist(wt)
lines(density(wt))
hist(mpg)
lines(density(mpg))
hist(disp)
lines(density(disp))
# 还可以进一步控制图的相对大小
# 设置第二行是第一行高度的二倍，第一行的宽度是第二行的三倍
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)

转载本文请联系原作者获取授权，同时请注明本文来自王雷宏科学网博客。

链接地址：https://wap.sciencenet.cn/blog-3509182-1336071.html?mobile=1

收藏

分享