pheatmap::pheatmap(dat,show_rownames=F,color=colorRampPalette(c("navy","white","firebrick3"))(50)) 2.完成tsne分析并画图 library(Rtsne)tsne_out=Rtsne(dat,perplexity=30)pdat=data.frame(tsne_out$Y,rep(c("a","b","c"),each=100))colnames(pdat)=c("Y1","Y2","group")head(pdat) ...