使用export包
#安装
install.packages("export")
#读入
library(export)
#绘图
p2 <- DimPlot(sceList.integrated.nounknow, reduction = "umap", label = TRUE, label.size = 3)
#导出为PPT格式
graph2office( x=p2,#需要输出的图形
file="输出的图",#输出后图形的名字
type = c("PPT"),#输出图形的格式
width = NULL,#图形在宽度
height = NULL#图形在高度
)