我们平时使用ggplot2或者任何R包做图时，调整图片还无法达到预期效果的时候最简单的方法就是加载"eoffice"包，将其另存为ppt格式，然后就可以任意调整。
#森林图
options(scipen=1)
p=ggforest(model, data =dat,
main = "Hazard ratio",
cpositions = c(0.10, 0.22, 0.4),
fontsize = 1.25,
refLabel = "1", noDigits = 4)
#install.packages("eoffice")
library(eoffice)
topptx(figure = p,filename = "森林图.pptx")
调整前
image.png
调整后
image.png
在加载‘eoffice’包时，我遇到了一个小bug报错：加载包的data.table不够，随后新建一个Rproj，运行以下程序即可。
install.packages("packrat") # Install packrat 0.5.0 if needed
packrat::init() # Initialize a packrat library
install.packages("data.table") # Install latest version 1.12.0 of data.table
packrat::snapshot() #Take a snapshot of the current library
library(data.table) # Attempt to load the package
