immune

pdf(file = paste0(outdir,"T_B_NK_feature.pdf"))
VlnPlot(expr_1_4,features = c("CD2","CD3D","CD3E","CD3G","CD4","CD8","CD45"))#T-cell Markers
FeaturePlot(expr_1_4,features = c("CD2","CD3D","CD3E","CD3G","CD4","CD8","CD45"))
VlnPlot(expr_1_4,features = c("PTPRC","CD79A","CD19","CD20","CD45"))#B-cell Markers
FeaturePlot(expr_1_4,features = c("PTPRC","CD79A","CD19","CD20","CD45"))
VlnPlot(expr_1_4,features = c("PTPRC","NKG7","CD56"))#NK-cell Markers
FeaturePlot(expr_1_4,features = c("PTPRC","NKG7","CD56"))
dev.off()
pdf(file = paste0(outdir,"Macrophage-cell_feature.pdf"))
VlnPlot(expr_1_4,features = c("CD14","CD163", "CD68", "CSF1R","CD33","HLA-DR","AIF1","FCER1G", "FCGR3A", "TYROBP"))#Macrophage-cell Markers
FeaturePlot(expr_1_4,features = c("CD14","CD163", "CD68", "CSF1R","CD33","HLA-DR","AIF1","FCER1G", "FCGR3A", "TYROBP"))
dev.off()
pdf(file = paste0(outdir,"Fibroblasts-cell_feature.pdf"))
VlnPlot(expr_1_4,features = c("ACTA2","FAP", "PDPN","COL1A2","DCN", "COL3A1", "COL6A1","S100A4","COL1A1","THY1"))#Fibroblasts-cell Markers
dev.off()
pdf(file = paste0(outdir,"Endothelial-cell_feature.pdf"))
VlnPlot(expr_1_4,features = c("PLVAP","PECAM1","VWF","ENG","MCAM","CD146"))#Endothelial-cell Markers
FeaturePlot(expr_1_4,features = c("PLVAP","PECAM1","VWF","ENG","MCAM","CD146"))
dev.off()
VlnPlot(expr_1_4,features = c("GH1","PRL","POU1F1"))