美化R图片小技巧

1. 将图片导出为PDF格式，使用Adobe Illustrator打开，即可编辑图中文字部分。

2. eoffice包的topptx()函数

p <- ggplot(mtcars) +  geom_point(aes(mpg, disp))
library(eoffice) 
topptx(p,"p.pptx")

这时会在工作目录下出现p.pptx的文件，打开：

刚刚绘制的图p被保存在ppt中

选择图片--右键--组合--取消组合
随后便可以在ppt中对图片进行修改。

3. export包

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 <-as.ggplot(tmp)