绘制每个k均值聚类的热图？

Question

我有一个由数值观测组成的大型数据集。对于此数据集，我计算了k均值，为此我定义了6个聚类。如何为每个群集绘制热图？当我尝试以下操作时，出现错误：

clusters <- kmeans(dataset, 6) heatmap(clusters$cluster)

Answer 1

因此，基本上，您可以做的是进一步子集化，并使用for循环。 clusters的结果是一个列表，其中的中心或k（簇）是您在kmeans函数中指定的观测值的集合。

clusters <- kmeans(dataset, k = 6)
for (i in c(1:k)) {
pheatmap(dataset[names(clusters$cluster[clusters$cluster == i]), ])
}

在这里，如果k = 6，您将获得6个热图，这是您的数据集中的每个观察集群之一。