R语言实现K-mean聚类并画出聚类图(非调用package)