我有一个 336x256 浮点数的矩阵(336 个细菌基因组(列)x 256 个归一化的四核苷酸频率(行),例如每列加起来为 1)。
当我使用主成分分析运行分析时,我得到了很好的结果。首先,我计算数据上的 kmeans 聚类,然后运行 PCA 并根据 2D 和 3D 中的初始 kmeans 聚类对数据点进行着色:
library(tsne)
library(rgl)
library(FactoMineR)
library(vegan)
# read input data
mydata <-t(read.csv("freq.out", header = T, stringsAsFactors = F, sep = "\t", row.names = 1))
# Kmeans Cluster with 5 centers and iterations =10000
km <- kmeans(mydata,5,10000)
# run principle component analysis
pc<-prcomp(mydata)
# plot dots
plot(pc$x[,1], pc$x[,2],col=km$cluster,pch=16)
# plot spiderweb and connect outliners with dotted line
pc<-cbind(pc$x[,1], pc$x[,2])
ordispider(pc, factor(km$cluster), label = TRUE)
ordihull(pc, factor(km$cluster), lty = "dotted")
# plot the third dimension
pc3d<-cbind(pc$x[,1], pc$x[,2], pc$x[,3])
plot3d(pc3d, col = km$cluster,type="s",size=1,scale=0.2)
但是当我尝试用 t-SNE 方法交换 PCA 时,结果看起来非常出乎意料:
tsne_data <- tsne(mydata, k=3, max_iter=500, epoch=500)
plot(tsne_data[,1], tsne_data[,2], col=km$cluster, pch=16)
ordispider(tsne_data, factor(km$cluster), label = TRUE)
ordihull(tsne_data, factor(km$cluster), lty = "dotted")
plot3d(tsne_data, main="T-SNE", col = km$cluster,type="s",size=1,scale=0.2)
我的问题是为什么 kmeans 聚类与 t-SNE 计算的结果如此不同。我本来期望集群之间的分离比 PCA 所做的更好,但它在我看来几乎是随机的。你知道这是为什么吗?我是否缺少缩放步骤或某种标准化?