美化R图片小技巧

时间:2021-6-4 作者:qvyue
  1. 将图片导出为PDF格式,使用Adobe Illustrator打开,即可编辑图中文字部分。
  2. export是一个R软件包,可以轻松地将活动R图形和统计输出以出版物质量导出到Microsoft Office(Word,PowerPoint和Excel),HTML和Latex。该R包具有以下特点:
    • 使用具有默认值的单个命令,可以将出版质量的活动R图或ggplot2,点阵或基本R图保存为Microsoft Word,Powerpoint或其他各种位图或矢量格式。
    • 完全可编辑的Powerpoint矢量格式输出,支持手动整理图布局。
    • 将R中的统计分析输出另存为Excel,Word,PowerPoint,Latex或HTML文档中的表。
    • 自定义R输出的格式。
    安装:
install.packages("officer")
install.packages("rvg")
install.packages("openxlsx")
install.packages("ggplot2")
install.packages("flextable")
install.packages("xtable")
install.packages("rgl")
install.packages("stargazer")
install.packages("tikzDevice")
install.packages("xml2")
install.packages("broom")
install.packages("devtools")
devtools::install_github("tomwenseleers/export")

学习:

ibrary(export)

?graph2ppt
?graph2doc
?graph2svg
?graph2png
?table2ppt
?table2tex
?table2excel
?table2doc
?table2html

# 根据函数名即可猜到这些函数的功能例如graph2ppt(如果用读出来,就是graph to ppt),把图片输出为ppt文件;
# 同样的,后面的函数分别为:把图片输出为doc文件(word),输出为svg文件和png文件
# 还可以把table输出为tex文件,excel文件,doc文件或者html文件


# 具体的演示代码如下
## export of ggplot2 plot
library(ggplot2)
qplot(Sepal.Length, Petal.Length, data = iris, color = Species,
      size = Petal.Width, alpha = I(0.7))
# export to Powerpoint      
graph2ppt()      
graph2ppt(file="ggplot2_plot.pptx", aspectr=1.7)
# add 2nd slide with same graph 9 inches wide and A4 aspect ratio
graph2ppt(file="ggplot2_plot.pptx", width=9, aspectr=sqrt(2), append=TRUE)
# add 3d slide with same graph with fixed width & height
graph2ppt(file="ggplot2_plot.pptx", width=6, height=5, append=TRUE)
# export to Word
graph2doc()
# export to bitmap or vector formats
graph2svg()
graph2png()
graph2tif()
graph2jpg()

## export of aov Anova output
fit=aov(yield ~ block + N * P + K, npk)
x=summary(fit)
# export to Powerpoint
table2ppt(x=x)
table2ppt(x=x,file="table_aov.pptx")
table2ppt(x=x,file="table_aov.pptx",digits=4,append=TRUE)
table2ppt(x=x,file="table_aov.pptx",digits=4,digitspvals=1,
          font="Times New Roman",pointsize=16,append=TRUE)
# export to Word
table2doc(x=x)
# export to Excel
table2excel(x=x, file = "table_aov.xlsx",digits=4,digitspvals=1,
            sheetName = "Anova_table", add.rownames = TRUE)
# export to Latex
table2tex(x=x)
# export to HTML
table2html(x=x)

需要额外注意的是,如果需要把图片输出为ppt文件,需要把图片在R中赋值为ggplot对象,具体方法也很简单,使用ggplotify包的as.ggplot函数,转换后再使用exprot包导出即可。

# tmp是图片对象
library(ggplotify)
tmp 
声明:本文内容由互联网用户自发贡献自行上传,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任。如果您发现有涉嫌版权的内容,欢迎发送邮件至:qvyue@qq.com 进行举报,并提供相关证据,工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。