万能转换：R图和统计表转成发表级的Word、PPT、Excel、HTML

万能转换：R图和统计表转成发表级的Word、PPT、Excel、HTML、Latex、矢量图等

R包export可以轻松的将R绘制的图和统计表输出到 Microsoft Office (Word、PowerPoint和Excel)、HTML和Latex中，其质量可以直接用于发表。

特点

1. 可以用命令将交互式R图或ggplot2、Lattice或base R图保存到Microsoft Word、Powerpoint或其他各种位图或矢量格式。
2. 将统计分析的输出保存为Excel、Word、PowerPoint、Latex或HTML文档的表格形式。
3. 自定义R输出格式。

安装

export包可以在Windows、Ubuntu和Mac上跨平台运行。不过有些Mac发行版默认情况下没有安装cairo设备，需要自行安装。如果Mac用户已安装XQuartz，这个问题就解决了，它可以从https://www.xquartz.org/免费获得。

官方CRAN发布 （以不能用）

install.packages(“export”)

从 Github 安装 （推荐

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")

该包主要包括以下几种转换

使用帮助信息如下：

graph2bitmap(x = NULL, file = "Rplot", fun = NULL, type = c("PNG","JPG", "TIF"),        aspectr = NULL, width = NULL, height = NULL, dpi = 300,scaling = 100,        font =ifelse(Sys.info()["sysname"] == "Windows", "Arial",        "Helvetica")[[1]], bg = "white", cairo = TRUE,        tiffcompression = c("lzw", "rle", "jpeg", "zip", "lzw+p", "zip+p"),        jpegquality = 99, ...)

准备开始

安装完 export包后，先调用该包

library(export)

用ggplot2绘图

library(ggplot2)library(datasets)

x=qplot(Sepal.Length, Petal.Length, data = iris,        color = Species, size = Petal.Width, alpha = I(0.7))

qplot()的意思是快速作图，利用它可以很方便的创建各种复杂的图形，其他系统需要好几行代码才能解决的问题，用qplot只需要一行就能完成。

使用半透明的颜色可以有效减少图形元素重叠的现象，要创建半透明的颜色，可以使用alpha图形属性，其值从0（完全透明）到1（完全不透明）。更多ggplot2绘图见ggplot2高效实用指南 (可视化脚本、工具、套路、配色) （往期教程更有很多生物信息相关的例子）。

鸢尾花(iris)是数据挖掘常用到的一个数据集，包含150个鸢尾花的信息，每50个取自三个鸢尾花种之一（setosa,versicolour或virginica)。每个花的特征用下面的5种属性描述萼片长度(Sepal.Length)、萼片宽度(Sepal.Width)、花瓣长度(Petal.Length)、花瓣宽度(Petal.Width)、类(Species)。

在console里展示数据图 （长宽比自己调节）：

导出图形对象

# 需运行上面的ggplot2绘图# Create a file name# 程序会自动加后缀filen <- "output_filename" # or# filen <- paste("YOUR_DIR/ggplot")# There are 3 ways to use graph2bitmap():### 1. Pass the plot as an objectgraph2png(x=x, file=filen, dpi=400, height = 5, aspectr=4)graph2tif(x=x, file=filen, dpi=400, height = 5, aspectr=4)graph2jpg(x=x, file=filen, dpi=400, height = 5, aspectr=4)

导出当前绘图窗口展示的图

### 2. Get the plot from current screen device# 注意这个x，是运行命令，展示图像xgraph2png(file=filen, dpi=400, height = 5, aspectr=4)graph2tif(file=filen, dpi=400, height = 5, aspectr=4)graph2jpg(file=filen, dpi=400, height = 5, aspectr=4)

导出自定义函数输出的一组图

### 3. Pass the plot as a functioplot.fun <- function(){  print(qplot(Sepal.Length, Petal.Length, data = iris,              color = Species, size = Petal.Width, alpha = 0.7))}graph2png(file=filen, fun=plot.fun, dpi=400, height = 5, aspectr=4)graph2tif(file=filen, fun=plot.fun, dpi=400, height = 5, aspectr=4)graph2jpg(file=filen, fun=plot.fun, dpi=400, height = 5, aspectr=4)

转换后的图形:

与Office系列的交互

大部分图的细节修改都是用代码完成的，不需要后续的修饰；但如果某一些修改比较特异，不具有程序的通用性特征，或实现起来比较困难，就可以考虑后期修改。比如用AI文章用图的修改和排版。熟悉PPT的，也可以用PPT，这时R的图导出PPT，就要用到graph2office系列函数了。

graph2ppt: 将当前R图保存到Microsoft Office PowerPoint/LibreOffice Impress演示文稿中。

graph2doc:将当前的R图保存到Microsoft Office Word/LibreOffice Writer文档中。

函数参数展示和解释

graph2office(x = NULL, file = "Rplot", fun = NULL, type = c("PPT", "DOC"),        append = FALSE, aspectr = NULL, width = NULL, height = NULL,scaling = 100,        paper = "auto", orient = ifelse(type[1] == "PPT","landscape", "auto"),        margins = c(top = 0.5, right = 0.5, bottom = 0.5, left= 0.5),        center = TRUE, offx = 1, offy = 1, upscale = FALSE, vector.graphic = TRUE, ...)

# 需运行上面的ggplot2绘图# Create a file namefilen <- "output_filename" # or# filen <- paste("YOUR_DIR/ggplot")# There are 3 ways to use graph2office():### 1. Pass the plot as an object# 导出图形对象graph2ppt(x=x, file=filen)graph2doc(x=x, file=filen, aspectr=0.5)### 2. Get the plot from current screen device# 导出当前预览窗口呈现的图xgraph2ppt(file=filen, width=9, aspectr=2, append = TRUE)graph2doc(file=filen, aspectr=1.7, append =TRUE)### 3. Pass the plot as a function# 导出自定义函数输出的一系列图graph2ppt(fun=plot.fun, file=filen, aspectr=0.5, append = TRUE)graph2doc(fun=plot.fun, file=filen, aspectr=0.5, append = TRUE)

graph2ppt(file="ggplot2_plot.pptx", aspectr=1.7)

graph2ppt(file="ggplot2_plot.pptx", width=9, aspectr=sqrt(2), append=TRUE)

graph2ppt(file="ggplot2_plot.pptx", width=6, height=5, append=TRUE)

graph2ppt(x=x, file=filen, vector.graphic=FALSE, width=9, aspectr=sqrt(2), append = TRUE)

graph2ppt(x=x, file=filen, margins=0, upscale=TRUE, append=TRUE)

函数参数解释

graph2vector(x = NULL, file = "Rplot", fun = NULL, type = "SVG",aspectr = NULL,        width = NULL, height = NULL, scaling = 100,        font = ifelse(Sys.info()["sysname"] == "Windows",        "Arial","Helvetica")[[1]], bg = "white", colormodel = "rgb",        cairo = TRUE,fallback_resolution = 600, ...)

#需运行上面的ggplot2绘图# Create a file namefilen <- "output_filename" # or# filen <- paste("YOUR_DIR/ggplot")# There are 3 ways to use graph2vector():### 1. Pass the plot as an object# 导出图形对象graph2svg(x=x, file=filen, aspectr=2, font = "Times New Roman",          height = 5, bg = "white")graph2pdf(x=x, file=filen, aspectr=2, font = "Arial",          height = 5,  bg = "transparent")graph2eps(x=x, file=filen, aspectr=2, font = "Arial",          height = 5, bg = "transparent")# 导出当前预览窗口呈现的图### 2. Get the plot from current screen devicexgraph2svg(file=filen, aspectr=2, font = "Arial",          height = 5, bg = "transparent")graph2pdf(file=filen, aspectr=2, font = "Times New Roman",          height = 5, bg = "white")graph2eps(file=filen, aspectr=2, font = "Times New Roman",          height = 5, bg = "white")# 导出自定义函数输出的一系列图### 3. Pass the plot as a functiongraph2svg(file=filen, fun = plot.fun, aspectr=2, font = "Arial",          height = 5, bg = "transparent")graph2pdf(file=filen, fun=plot.fun, aspectr=2, font = "Arial",          height = 5, bg = "transparent")graph2eps(file=filen, fun=plot.fun, aspectr=2, font = "Arial",          height = 5, bg = "transparent")

转换3D图形

rgl2png: 将当前的rgl 3D图形保存为PNG格式。

rgl2bitmap(file = "Rplot", type = c("PNG"))

# Create a file namefilen <- tempfile("rgl") # or# filen <- paste("YOUR_DIR/rgl")# Generate a 3D plot using 'rgl'x = y = seq(-10, 10, length = 20)z = outer(x, y, function(x, y) x^2 + y^2)rgl::persp3d(x, y, z, col = 'lightblue')# Save the plot as a pngrgl2png(file = filen)# Note that omitting 'file' will save in current directory

生成的3D图形：