万能转换:R图和统计表转成发表级的Word、PPT、Excel、HTML( 二 )

相关的例子) 。
鸢尾花(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 = https://www.520longzhigu.com/shenghuo/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, ...)

  • margins: 预设留白边距向量 。
  • paper: 纸张尺寸——“A5”至“A1”用于Powerpoint导出,或“A5”至“A3”用于Word输出;默认“auto”自动选择适合您的图形的纸张大小 。如果图太大,无法在给定的纸张大小上显示,则按比例缩小 。
  • orient: 所需的纸张方向-“自动”,“纵向”或“横向”; Word输出默认为“自动”,Powerpoint默认为“横向” 。
  • vector.graphic: 指定是否以可编辑的向量DrawingML格式输出 。默认值为TRUE,在这种情况下,编辑Powerpoint或Word中的图形时,可以先对图形元素进行分组 。如果设置为FALSE,则将该图以300 dpi的分辨率栅格化为PNG位图格式 。(栅(shān)格化,是PS中的一个专业术语,栅格即像素,栅格化即将矢量图形转化为位图 。)
同样有3种导出方式# 需运行上面的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)


以上关于本文的内容,仅作参考!温馨提示:如遇健康、疾病相关的问题,请您及时就医或请专业人士给予相关指导!

「四川龙网」www.sichuanlong.com小编还为您精选了以下内容,希望对您有所帮助: