使用export包
#安裝
install.packages("export")
#讀入
library(export)
#繪圖
p2 <- DimPlot(sceList.integrated.nounknow, reduction = "umap", label = TRUE, label.size = 3)
#導(dǎo)出為PPT格式
graph2office( x=p2,#需要輸出的圖形
file="輸出的圖",#輸出后圖形的名字?
type = c("PPT"),#輸出圖形的格式?
width = NULL,#圖形在寬度
height = NULL#圖形在高度
)
