科研小技巧之svg格式转pdf

*.svg文件，矢量图，可以用illustrator、Inkscape等工具打开，经常使用R作venn图的小伙伴很定遇到过一个尴尬的问题，各种venn图的包导出的格式都没有pdf格式的，其实是可以使用拼图包解决组图的问题，其实R中有一个包专门解决了这个需求。

# create some svg
tmp <- tempfile()
svglite::svglite(tmp, width = 10, height = 7)
ggplot2::qplot(mpg, wt, data = mtcars, colour = factor(cyl))
dev.off()

# render it into a bitmap array
bitmap <- rsvg(tmp, height = 1440)
dim(bitmap) # h*w*c
png::writePNG(bitmap, "bitmap.png", dpi = 144)
jpeg::writeJPEG(bitmap, "bitmap.jpg", quality = 1)
webp::write_webp(bitmap, "bitmap.webp", quality = 100)

# render straight to output format
rsvg_pdf(tmp, "out.pdf")
rsvg_png(tmp, "out.png")
rsvg_svg(tmp, "out.svg")
rsvg_ps(tmp, "out.ps")

解决以前用control+p打印功能将venn图导出为pdf，图片实际上并非矢量，修改较麻烦！

作者：解琪琪
链接：https://www.jianshu.com/u/bcb81276c29d
来源：简书
参考学习资源：https://github.com/jeroen/rsvg
简书著作权归作者所有，任何形式的转载都请联系作者获得授权并注明出处。