For Machine Learning and Web Analytics blogpost http://markedmondson.me/intro-to-machine-learning-with-web-analytics-random-forests-and-k-means

heatmap-clusters.R

kResults <- data.frame(k_data, cluster = k$cluster)

## Transform data for columns of cluster, rows of Sku with value of mean total for each
rl <- as.data.frame(lapply(1:4, function(x){ r3 <- kResults[kResults$cluster == x, 
                                                            setdiff(names(kResults), 'cluster')] 
                               r4 <- colSums(r3) / nrow(r3)
                               r4
                               }))
names(rl) <- paste("cluster",1:4)

## plot using d3heatmap library
library(d3heatmap)
d3heatmap(rl, theme="dark", scale = 'row')