# To visualize
# If cells are too spread out, you can raise the perplexity. If you have few cells, try a lower perplexity
#(but never less than 10).
tiss <- RunTSNE(object = tiss, dims.use = 1:n.pcs, seed.use = 10, perplexity=30, dim.embed = 2)
library(ggplot2)
# note that you can set do.label=T to help label individual clusters
TSNEPlot(object = tiss, group.by = 'channel', pt.size = 0.1)
p1 <- TSNEPlot(object = tiss, group.by = 'channel', pt.size = 0.1)
ggsave("TSNEPlot_1.pdf", plot = p1, width = 15, height = 18)
# note that you can set do.label=T to help label individual clusters
TSNEPlot(object = tiss, pt.size = 0.1)
p2 <- TSNEPlot(object = tiss, pt.size = 0.1)
ggsave("TSNEPlot_2.pdf", plot = p2, width = 15, height = 18)
# note that you can set do.label=T to help label individual clusters
TSNEPlot(object = tiss, group.by = 'tissue', pt.size = 0.1)
p3 <- TSNEPlot(object = tiss, group.by = 'tissue', pt.size = 0.1)
ggsave("TSNEPlot_3.pdf", plot = p3, width = 15, height = 18)
To visualize TSNE
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
- 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
推荐阅读更多精彩内容
- 这是是生信技能树生信爆款入门课程[https://mp.weixin.qq.com/s?__biz=MzAxMDk...
- 通常输入的特征数据是高维的(大于3维),一般难以直接以原特征对聚类结果进行展示。而TSNE提供了一种有效的数据降维...
- hi,大家好,不知道大家对算法感不感兴趣,之前我分享了PCA的原理和一些分析技巧,大家可以参考单细胞PCA分析的降...