【R包 export 的安装 】

今天突然刷到一个蛮好用的包，可以把R画的图导出为PPT等格式进行修改，叫做Export，看了看文章是两三年前的了，估摸着就不是那么顺利，机智的我看了看最新的一些安装教程，果然这个包在CRAN上已经没有了，可以说是少走了一些弯路。 说明一下：我的R版本是4.0.3 提前说明一下下，因为每个人软件总会有一些差异，所以遇到的问题可能都不太一样。 参考了网上的各种安装教程，最终我是采取的如下方法： 一开始我是看了一个本地下载的教程，下下来试了一下本地安装，发现要自己按好多依赖包，我懒得按就换了一个方法。 本地安装就是把安装包下载在自己电脑上，Rstudio右下角Package 可以选择本地安装。

> install.packages("D:/Desktop/export_modified_by_guozi.tar.gz", repos = NULL, type = "source")
Installing package into ‘C:/Users/xyf/Documents/R/win-library/4.0’
(as ‘lib’ is unspecified)
ERROR: dependencies officer, rvg, flextable, rgl, stargazer are not available for package export
* removing C:/Users/xyf/Documents/R/win-library/4.0/export
Warning in install.packages :
  installation of package ‘D:/Desktop/export_modified_by_guozi.tar.gz’ had non-zero exit status

于是下一个更好一些的方法是：

1.安装

> devtools::install_github("tomwenseleers/export")
WARNING: Rtools is required to build R packages, but is not currently installed.

Please download and install Rtools 4.0 from https://cran.r-project.org/bin/windows/Rtools/.
Downloading GitHub repo tomwenseleers/export@HEAD
These packages have more recent versions available.
It is recommended to update all of them.
Which would you like to update?

 1: All                                  
 2: CRAN packages only                   
 3: None                                 
 4: crayon     (1.4.2  -> 1.5.1  ) [CRAN]
 5: cli        (3.1.0  -> 3.2.0  ) [CRAN]
 6: colorspace (2.0-2  -> 2.0-3  ) [CRAN]
 # 一大堆说要我更新的包，我这里就省略一些，，

Enter one or more numbers, or an empty line to skip updates: 
Installing 11 packages: tinytex, systemfonts, uuid, gdtools, rmarkdown, officer, devEMF, stargazer, rgl, flextable, rvg
Installing packages into ‘C:/Users/xyf/Documents/R/win-library/4.0’
(as ‘lib’ is unspecified)
also installing the dependency ‘xfun’
# 之后就安装了十几个依赖包

2.载入，试一下导出图片：

> library(export)
> library(ggplot2)
Use suppressPackageStartupMessages() to eliminate package
startup messages
Warning message:
程辑包‘ggplot2’是用R版本4.0.5 来建造的 
> p1 <- ggplot(mtcars, aes(wt, mpg)) +
+   geom_point() +
+   labs(title = "Fuel economy declines as weight increases")
> graph2ppt(p1,file = "Rplot.ppt", width = 10, height = 5)
Exported graph as Rplot.pptx
Warning message:
package ‘gdtools’ was built under R version 4.0.5

这个版本问题问题不大，我并不想更新我的R，， 值得注意的是，在安装的时候它有一条警告说：要安装Rtools，但是我看它还是正常导出了，我去查看相应文件夹的时候发现是正常的。 所以我就没有再管他了，还算顺利嘻嘻。

3.结果：

每一个元素都是可以调整的，我感觉如果刚好要用来做汇报就很省事了嘿嘿，而且PPT格式也可以导出为PDF格式，总的来说还是很方便滴，也便于交流和改图。 然后我又试了下：

> p2 <- p1 + theme(rect = element_rect(fill = "blue",color = "red",linetype = 2))
> 
> graph2ppt(p2,file = "Rplot2.ppt", width = 10, height = 5)
Exported graph as Rplot2.pptx

这次他倒是什么也没说了，发现有的时候它的WARNING也不是那么可怕。