Better way to select clusters for kmeans, with plot