iriskmeans <- kmeans(newiris, centers = 3) #可视化聚类结果,用不同的颜色代表不同的聚类结果,不同的形状代表训练数据集的原始分类情况,并画出各类的中心点 plot(newiris[c("Sepal.Length", "Sepal.Width")], col = iriskmeans$cluster, pch = as.integer(iris$Species)) points(iriskmeans$centers[...