R使用export导出矢量图

1 安装export

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

2 加载并使用

library(export)
graph2ppt(p2,file="nAS_distribution.pptx", width=7, height=7)
graph2svg(p2,file="nAS_distribution.svg",width=7, height=7)