R语言多个图形组合/一个画面画多个图形/layout()/par()/fig=

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

在R中使用函数par()或layout()或fig=可以容易地组合多幅图形为一幅总括图形

1.par()

1. par(mfrow=c(nrows, ncols))或par(nfcol=c(nrows, ncols))

复制代码

你可以在par()函数中使用图形参数mfrow=c(nrows, ncols)来创建按行填充的、行数为nrows、列数为ncols的图形矩阵。另外，可以使用nfcol=c(nrows, ncols)按列填充矩阵。
  举例来说，以下代码创建了四幅图形并将其排布在两行两列中：

1. setwd("D:/STUDY/Routput")  # 设置工作目录
   
2. bmp(file="combininggraphs.bmp")
   
3. attach(mtcars)
   
4. opar <- par(no.readonly = TRUE)
   
5. par(mfrow = c(2, 2))
   
6. plot(wt, mpg, main = "Scatterplot of wt vs. mpg")
   
7. plot(wt, disp, main = "Scatterplot of wt vs disp")
   
8. hist(wt, main = "Histogram of wt")
   
9. boxplot(wt, main = "Boxplot of wt")
   
10. par(opar)
    
11. detach(mtcars)
    
12. dev.off()

复制代码

(备注：本人编程习惯，由于Rstudio plot窗口输出图形很不方便，所以图形一律输出至本地，读者可以将图形输出部分删除)结果如图：

作为第二个示例，让我们依3行1列排布3幅图形。代码如下：  

1. setwd("D:/STUDY/Routput")  # 设置工作目录
   
2. bmp(file="fig3.15.bmp")
   
3. attach(mtcars)
   
4. opar <- par(no.readonly = TRUE)
   
5. par(mfrow = c(3, 1))
   
6. hist(wt)
   
7. hist(mpg)
   
8. hist(disp)
   
9. par(opar)
   
10. detach(mtcars)
    
11. dev.off()

复制代码

结果如下：
2.函数layout()
  layout(mat, widths = rep.int(1, ncol(mat)),heights = rep.int(1, nrow(mat)), respect = FALSE)
函数layout()的调用形式为layout(mat)，其中的mat是一个矩阵，它指定了所要组合的多个图形的所在位置。在以下代码中，一幅图被置于第1行，另两幅图则被置于第2行：

1. setwd("D:/STUDY/Routput")  # 设置工作目录
   
2. bmp(file="fig3.16.bmp")
   
3. attach(mtcars)
   
4. layout(matrix(c(1, 1, 2, 3), 2, 2, byrow = TRUE))
   
5. hist(wt)
   
6. hist(mpg)
   
7. hist(disp)
   
8. detach(mtcars)
   
9. dev.off()

复制代码

结果如下：


为了更精确地控制每幅图形的大小，可以有选择地在layout()函数中使用widths=和heights=两个参数。其形式为：
widths = 各列宽度值组成的一个向量
heights = 各行高度值组成的一个向量

1. # Figure 3.17 更精确地控制每幅图形的大小
   
2. setwd("D:/STUDY/Routput")  # 设置工作目录
   
3. bmp(file="fig3.17.bmp")
   
4. attach(mtcars)
   
5. layout(matrix(c(1, 1, 2, 3), 2, 2, byrow = TRUE),
   
6.        widths = c(3, 1), heights = c(1, 2))
   
7. hist(wt)
   
8. hist(mpg)
   
9. hist(disp)
   
10. detach(mtcars)
    
11. dev.off()

复制代码

结果如图：第1行中图形的高度是第2行中图形高度的三分之一。除此之外，右下角图形的宽度是左下角图形宽度的四分之一

  如果想要了解layout()更多信息，请查询help(layout)
3.fig=

1. par(fig=c(x1,x2,y1,y2),new=TRUE)

复制代码

多幅图形布局的精细控制-图形参数fig=以下代码通过在散点图上添加两幅箱线图，创建了单幅的增强型图形

1. # 多幅图形布局的精细控制-图形参数fig=
   
2. 
   
3. setwd("D:/STUDY/Routput")  # 设置工作目录
   
4. bmp(file="fig3.18.bmp")
   
5. opar <- par(no.readonly = TRUE)
   
6. par(fig = c(0, 0.8, 0, 0.8))
   
7. plot(mtcars$wt, mtcars$mpg, xlab = "Miles Per Gallon",
   
8.      ylab = "Car Weight")
   
9. par(fig = c(0, 0.8, 0.55, 1), new = TRUE)
   
10. boxplot(mtcars$wt, horizontal = TRUE, axes = FALSE)
    
11. par(fig = c(0.65, 1, 0, 0.8), new = TRUE)
    
12. boxplot(mtcars$mpg, axes = FALSE)
    
13. mtext("Enhanced Scatterplot", side = 3, outer = TRUE,
    
14.       line = -3)
    
15. par(opar)
    
16. dev.off()
    
17. # 你需要不断尝试找到合适的位置参数

复制代码

小白学习R，希望能帮上大家

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Layout R语言 Out Lay You

电脑浏览器不显示bmp图片，但是手机打开没问题，不知道大家打开会不会这样

建议啊，用cairo包，图形设备用pdf，文件小，矢量图形，输出效果有保证。bmp格式分辨率无法保证。

llb_321 发表于 2020-7-11 17:51
建议啊，用cairo包，图形设备用pdf，文件小，矢量图形，输出效果有保证。bmp格式分辨率无法保证。

谢谢你的建议，我最开始就是输出Pdf,但是pdf不好在帖子里直接展示结果，所以就改成了bmp。难道用截图吗？

很多同学用r画图主要是统计相关的论文应用，论文对图片要求很高，pdf最适合。
如果是统计相关的会议文件，很多可以论文改改代码直接生成beamer，比作ppt还方便，这时pdf的优势就更加明显了。
至于在网页上展示，确实大多数网页是不支持pdf的，经管这里也不支持。
如果既要保证图片dpi，又要文件小一些，可以采用png。
最没有优势的就是jpg和bmp。
看应用场景吧，各取所需。

llb_321 发表于 2020-7-11 22:08
很多同学用r画图主要是统计相关的论文应用，论文对图片要求很高，pdf最适合。
如果是统计相关的会议文件， ...

非常感谢你的建议，提供了宝贵的信息。