美文网首页R小教程收藏Python
myplot:像ggsave一样优雅地保存R基础图形

myplot:像ggsave一样优雅地保存R基础图形

作者: caumine | 来源:发表于2019-03-09 18:06 被阅读74次

myplot:Gracefully Saving Base R Graphics like ggsave

image.png

English help please see: https://github.com/kumine/myplot

1.基础图形保存函数的缺点

R语言是强大的应用广泛的可视化软件。R基础包提供了众多的函数如bmp、jpeg、png、tiff和pdf保存图形,这些函数是分散的,不容易转换到不同的格式。在实际应用中,我们常常需要将图形保存为png和pdf格式,一般通过如下的代码实现,需要写了两次代码,代码很臃肿。而且如果我们需要修改某些参数,必须修改两个地方,特别麻烦。

而且pdf函数不能设置单位,默认单位为英寸。当我们要指定图形大小,必须以英寸为单位,像我用惯了mm,cm单位,用pdf感觉很别扭。

#同时保存png和pdf,一般实现方法

set.seed(1)
x=rnorm(100)
y=x*5+rnorm(100)

png(file="test1.png",units = "cm",width = 15, height = 15, units = "cm",res=300)
plot(x,y,pch=20)
lm=lm(y~x)
abline(lm,col="red")
points(x[1:5],y[1:5],col="blue",cex=1.5,pch=20)
dev.off()


pdf(file="test1.pdf")
plot(x,y,pch=20)
lm=lm(y~x)
abline(lm,col="red")
points(x[1:5],y[1:5],col="blue",cex=1.5,pch=20)
dev.off()

2.优雅的ggsave

ggplot2包中,ggsave是便捷的集成化的保存图形函数,可以特别方便地将图形保存为各种格式。

# 优雅的ggsave
library(ggplot2)
ggplot(mtcars, aes(mpg, wt)) + geom_point()

ggsave("mtcars.pdf")
ggsave("mtcars.png")

ggsave("mtcars.pdf", width = 4, height = 4)
ggsave("mtcars.pdf", width = 20, height = 20, units = "cm")
?ggsave # see more help

3. myplot: 像ggsave一样优雅地保存R基础图形

能不能像ggsave一样优雅地保存R基础图形?用myplot包就可以实现该功能。

myplot包有两个函数:

  • myplot: 用match.call函数记录下所有的R代码,然后传给plotsave保存图形。
  • plotsave: 用eval函数解析myplot记录的代码,并保存为各种格式。plotsave 代码修改自ggsave,具有ggsave的所用优点。

3.1 myplot的一般用法

如下的代码是myplot的一般用法,我们将每一行代码当作一个参数传给myplot,这样用起来显得还是有些麻烦,必须将代码用逗号(,)分开。

#myplot的一般用法
library(myplot)
set.seed(1)
x=rnorm(100)
y=x*5+rnorm(100)

p=myplot(plot(x,y,pch=20),
         lm=lm(y~x),
         abline(lm,col="red"),
         points(x[1:5],y[1:5],col="blue",cex=1.5,pch=20)
         )
         
plotsave(p)
plotsave(p,file="test2.png",width = 15, height = 15, units = "cm")
plotsave(p,file="test2.pdf",width = 150, height = 150, units = "mm")

3.2 用{}让myplot更加便捷

将所有的代码放在{}里面,可以平时一样换行写代码,而且不影响实时调试代码。

# {}让myplot更加便捷

library(myplot)
set.seed(1)
x=rnorm(100)
y=x*5+rnorm(100)

p=myplot({
  plot(x,y,pch=20)
  lm=lm(y~x)
  abline(lm,col="red")
  points(x[1:5],y[1:5],col="blue",cex=1.5,pch=20)
})

plotsave(p)
plotsave(p,file="test3.png",width = 15, height = 15, units = "cm")
plotsave(p,file="test3.pdf",width = 150, height = 150, units = "mm")

4 安装 myplot 包

CRAN上现在还没有myplot包,可以通过github安装,代码如下:

library(devtools)
install_github("kumine/myplot")

如果github安装不了,在百度网盘下载安装包

-https://pan.baidu.com/s/1qP7UyjVUbZhYVZwgx4MHJA
提取码:qujq

下载后安装代码如下

#windows
setwd("download path")
install.packages("myplot_1.0.zip",repos=NULL)

#linux 
setwd("download path")
install.packages("myplot_1.0.tar.gz",repos=NULL)

5 总结

  • R基础包图形保存函数的缺点

    • 分散的,非集成化的
    • 要同时保存两种格式,往往需要再复制一次代码;一旦修改,要修改两个地方
    • 句柄打开和关闭(dev.off)需要一一对应,一旦不对有可能出现错误
  • myplot的优点

    • 具有ggsave所有的优点,集成化的便捷的优雅的保存图片
    • 零成本迁移到myplot,只需要将你的画图代码复制到myplot({})里面即可。

总之,myplot包可以像ggsave一样优雅地保存R基础图形,可以大大提高R语言保存图形的效率和生产力。

相关文章

网友评论

    本文标题:myplot:像ggsave一样优雅地保存R基础图形

    本文链接:https://www.haomeiwen.com/subject/qilepqtx.html