前期处理参考：https://www.jianshu.com/p/fef17a1babc2
001、
dat <- pbmc[["pca"]]@cell.embeddings ## 绘图数据 dat[1:3, 1:3] plot(dat[,1], dat[,2]) ## 绘图
标准结果：
