Если вы хотите увидеть, как были классифицированы данные, я бы сделал что-то вроде этого:
model=kmeans(USArrests,centers=4,algorithm=c("Hartigan-Wong"),iter.max=100,nstart=20)
ggplot(USArrests,aes(x=Murder,y=Assault))+geom_point(color=model$cluster)
Проблема в том, что вы будете изображать две переменные, пока данные классифицированы как 4.
Надеюсь, это поможет.