有时候代码很正确,但是图就是画不出来
比如下面,直接生成的pdf,代码没问题就是打不开
pdf(file = "21.Pheatmap.pdf",width =8,height = 6)
tab <- table(label = pbmc.hesc$labels,cluster = pbmc@meta.data$seurat_clusters)
pheatmap(log10(tab + 10))
dev.off()
改成ggsave试试,需要先安装ggplot2包
library(ggplot2)
tab <- table(label = pbmc.hesc$labels,cluster = pbmc@meta.data$seurat_clusters)
plotPheatmap <- pheatmap(log10(tab + 10))
ggsave("21.Pheatmap.pdf", plotPheatmap, width = 8, height = 6)