library(tidyverse)
library(ggplot2)
library(RColorBrewer)
umap_tx =seurat.integrated@reductions$umap@cell.embeddings %>%
as.data.frame() %>% cbind(tx = seurat.integrated@meta.data$celltype)
ggplot(umap_tx, aes(x=UMAP_1, y=UMAP_2, color=tx)) + geom_point(size=1,alpha = 0.3)+scale_color_manual(values=colorRampPalette(brewer.pal("Set1",n=9))(17))
扫码关注腾讯云开发者
领取腾讯云代金券
Copyright © 2013 - 2025 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号:粤B2-20090059 深公网安备号 44030502008569
腾讯云计算(北京)有限责任公司 京ICP证150476号 | 京ICP备11018762号 | 京公网安备号11010802020287
Copyright © 2013 - 2025 Tencent Cloud.
All Rights Reserved. 腾讯云 版权所有