R语言中for循环作图

  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)
}