p <- FeaturePlot(seurat.obj, features = 'FSHB',cols = color, pt.size = 1)+
NoLegend()+labs(x = "UMAP1", y = "UMAP2",title = i) +
theme(panel.border = element_rect(fill=NA,color="black", size=1, linetype="solid"))
myfilename <- paste(i, ".pdf", sep = "")
ggsave(filename = myfilename)
}
网友评论