R 语言 dotplot 画基因表达量图

R， seurat object, dotplot 在不同细胞类型间的基因表达

library(ggplot2)
library(ggpubr)

features<- c("CD8A","CD14")
dotplt = DotPlot(sub.combined, features = features, cols = c('white','#F8766D'),dot.scale=4.5) + RotatedAxis()
dotplt = dotplt + theme(axis.text.x = element_text(size = 10),axis.text.y = element_text(size = 12)) + labs(x='',y='') + 
guides(color = guide_colorbar(title = 'Scale expression'),size = guide_legend(title = 'Percent expressed')) + 
theme(axis.line = element_line(size = 1))
print(dotplt)
ggsave(filename = "./dotplt.png", height = 8, width = 8, plot = dotplt)

大致实现效果：