image.png
## 6.s根据经典markers鉴定细胞类型
Fibroblasts <- c("Pdgfra")
VSMC <- c("Cnn1","Myh11")
EC <- c("Cdh5")
Monocytes <- c("Cd68", "Cd115", "Lyz2")
T_B_cells <- c("Cd3d", "Cd19")
Macrophage_DC <- c("H2-Ab1", "Cd68")
RBC <- c("Hbb")
all_markers <- c("Pdgfra","Cnn1","Myh11","Cdh5","Cd68","Cd115","Lyz2","Cd3d","Cd19","H2-Ab1","Hbb")
VlnPlot(endo, features = all_markers,pt.size = 0)
DotPlot(endo, features = all_markers) + coord_flip()
