myplot：Gracefully Saving Base R Graphics like ggsave
English help please see: https://github.com/kumine/myplot
1.基礎圖形保存函數(shù)的缺點
R語言是強大的應用廣泛的可視化軟件。R基礎包提供了眾多的函數(shù)如bmp卿泽、jpeg、png吧兔、tiff和pdf保存圖形鳖链，這些函數(shù)是分散的葛超，不容易轉(zhuǎn)換到不同的格式。在實際應用中祝蝠，我們常常需要將圖形保存為png和pdf格式音诈，一般通過如下的代碼實現(xiàn)，需要寫了兩次代碼绎狭，代碼很臃腫改艇。而且如果我們需要修改某些參數(shù)，必須修改兩個地方坟岔，特別麻煩谒兄。
而且pdf函數(shù)不能設置單位，默認單位為英寸社付。當我們要指定圖形大小承疲，必須以英寸為單位，像我用慣了mm,cm單位鸥咖，用pdf感覺很別扭燕鸽。
#同時保存png和pdf，一般實現(xiàn)方法
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.優(yōu)雅的ggsave
在ggplot2包中啼辣，ggsave是便捷的集成化的保存圖形函數(shù)啊研，可以特別方便地將圖形保存為各種格式。
# 優(yōu)雅的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一樣優(yōu)雅地保存R基礎圖形
能不能像ggsave一樣優(yōu)雅地保存R基礎圖形？用myplot包就可以實現(xiàn)該功能党远。
myplot包有兩個函數(shù)：
- myplot: 用match.call函數(shù)記錄下所有的R代碼削解，然后傳給plotsave保存圖形。
- plotsave: 用eval函數(shù)解析myplot記錄的代碼沟娱，并保存為各種格式氛驮。plotsave 代碼修改自ggsave,具有ggsave的所用優(yōu)點。
3.1 myplot的一般用法
如下的代碼是myplot的一般用法济似，我們將每一行代碼當作一個參數(shù)傳給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更加便捷
將所有的代碼放在{}里面蓖扑，可以平時一樣換行寫代碼萧豆，而且不影響實時調(diào)試代碼颁股。
# {}讓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上現(xiàn)在還沒有myplot包舱呻，可以通過github安裝物邑，代碼如下：
library(devtools)
install_github("kumine/myplot")
如果github安裝不了，在百度網(wǎng)盤下載安裝包
-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 總結(jié)
-
R基礎包圖形保存函數(shù)的缺點
- 分散的趋急，非集成化的
- 要同時保存兩種格式，往往需要再復制一次代碼；一旦修改碰声，要修改兩個地方
- 句柄打開和關閉（dev.off）需要一一對應，一旦不對有可能出現(xiàn)錯誤
-
myplot的優(yōu)點
- 具有ggsave所有的優(yōu)點熬甫，集成化的便捷的優(yōu)雅的保存圖片
- 零成本遷移到myplot,只需要將你的畫圖代碼復制到myplot({})里面即可胰挑。
總之，myplot包可以像ggsave一樣優(yōu)雅地保存R基礎圖形椿肩，可以大大提高R語言保存圖形的效率和生產(chǎn)力瞻颂。
