Рисовать тепловые карты каждого кластера k-средних?

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