保存plot_R批量作图及自动导出保存

落日映苍穹つ 2023-01-06 01:57 231阅读 0赞

最近需要手动做很多张图片，然后复制粘贴导出。于是研究了一下R的批量作图的功能。思想比较简单，就是用一个for的循环，自动完成批量作图和导出。下面以R自带的diamonds数据为例，示范一下：

#加载包
    library(dplyr)
    library(ggplot2)
    library(scales)
    getwd()
    #设定路径，
    setwd(D:R Project)
    #################################################
    #调用数据，分成子集，作图
    data("diamonds")
    m <- split(diamonds, diamonds$color)
    length(m)
    for (i in 1:length(m)) {
            sub_data <- m[[i]]
            #save the plot
            png(filename = paste0(i, "_", ".jpg"),width = 2400,height = 1800,res = 200)
            plot(sub_data$carat, sub_data$price, col = sub_data$cut)
            dev.off()
    }

![0e8d0bcfe05ae4bb0f6c72711bb4f465.png][]

![45c7afa9354be9d7895f40ecab10ec3f.png][]

结果

进一步，考虑使用ggplot2进行作图

data("diamonds")
    m <- split(diamonds, diamonds$color)
    length(m)
    for (i in 1:length(m)) {
            sub_data <- m[[i]]
            #save the plot
            png(filename = paste0(i, "_", ".jpg"),width = 2400,height = 1800,res = 300)
            print(ggplot(data = sub_data, aes(x = carat, y = price, color = cut)) + geom_point())
            dev.off()
    }

![f9b2c2c5c006b5f4f4be91765b103bde.png][]

![72d7b21b354fd0c2cbc9449df61743b9.png][]

注意，这里如果使用ggplot2函数作图，必须要用print函数，否则ggplot最后画出来的图全部没有内容。如果使R自带的plot，则不需要用print。原因参考：

https://bbs.pinggu.org/thread-3923482-1-1.html

Looping with qplot / ggplot2

--------------------

进一步，因为有时候数据太多，想知道画图到哪一步了，计算完成百分数：

#用scales里面的percent,和print函数连用
    for (i in 1:length(m)) {
            print(percent(i/length(m)))
            sub_data <- m[[i]]
            #save the plot
            png(filename = paste0(i, "_", ".jpg"),width = 2400,height = 1800,res = 300)
            print(ggplot(data = sub_data, aes(x = carat, y = price, color = cut)) + geom_point())
            dev.off()
    }

效果如下，在运行的时候，会根据i的值，返回完成的百分比（或者可以直接**print（i）**，这样输出的就是循环到第几次了，也能大概了解）

![a1690bb20e1dbc09479bdb787be8fb81.png][]

--------------------

最后，最近发现R studio可以导出图片到adobe illustrator软件，把图片中的模块分成1块块的，这样图能够美观不少。在R studio中export图片，导出成EPS格式，就可以导出到AI进行编辑了：

![94a547e7c4b33eec41b56efb52f1be30.png][]

![f733718d415ac4630c5228eab6421264.png][]

[0e8d0bcfe05ae4bb0f6c72711bb4f465.png]: /images/20221119/b787acd396784e58b3ab29383e3584c0.png
[45c7afa9354be9d7895f40ecab10ec3f.png]: https://img-blog.csdnimg.cn/img_convert/45c7afa9354be9d7895f40ecab10ec3f.png
[f9b2c2c5c006b5f4f4be91765b103bde.png]: https://img-blog.csdnimg.cn/img_convert/f9b2c2c5c006b5f4f4be91765b103bde.png
[72d7b21b354fd0c2cbc9449df61743b9.png]: https://img-blog.csdnimg.cn/img_convert/72d7b21b354fd0c2cbc9449df61743b9.png
[a1690bb20e1dbc09479bdb787be8fb81.png]: https://img-blog.csdnimg.cn/img_convert/a1690bb20e1dbc09479bdb787be8fb81.png
[94a547e7c4b33eec41b56efb52f1be30.png]: https://img-blog.csdnimg.cn/img_convert/94a547e7c4b33eec41b56efb52f1be30.png
[f733718d415ac4630c5228eab6421264.png]: https://img-blog.csdnimg.cn/img_convert/f733718d415ac4630c5228eab6421264.png