Рисовать тепловые карты каждого кластера 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 тепловых карт, по одному на каждую группу наблюдений из вашего набора данных.