Code:
plot.data <- bind_cols(data.norm, Cluster = as.factor(result$cluster)) plot.centres <- as.data.frame(result$centers) plot.centres$Cluster <- r