单细胞绘图--点图（day11）

# 创建要绘制的基因列表
genes_to_check <- c("GATA4", "GATA6", "FOXA2")

genes_to_check <- unique(genes_to_check)
# 设置绘图的参数
p <- DotPlot(gpy.big, features = genes_to_check, assay = 'RNA', group.by = 'orig.ident') +
  coord_flip() +
  ggtitle("Gene Expression Dot Plot")

# 显示绘图
print(p)