数据科学与大数据分析项目练习-2使用R进行K-means聚类分析

使用Rstudio读取grades_km_input.csv并进行练习。
yearly_sales.csv包含620条数据，包含4种变量：student, English, Math 和 Science.

# 首先还是先设置默认路径
setwd("c:/Users/T7/Desktop/123")
# 导入需要用到的库，如果没有的话要先进行安装。需要注意R语言的版本，有的R版本不支持使用某些库
library(plyr)
library(ggplot2)
library(cluster)
library(lattice)
library(graphics)
library(grid)
library(gridExtra)
# 读取数据
grade_input = as.data.frame(read.csv("c:/Users/T7/Desktop/123/grades_km_input.csv"))
# 下面的 R 代码对成绩进行了格式化处理。在聚类分析中我们不需要用到ID这一列，所以我们选择保留2-4列
kmdata_orig = as.matrix(grade_input[,c("Student","English","Math","Science")])
kmdata<- kmdata_orig[,2:4]
kmdata[1:10,]

得到下图

为了确定 k 的适当值，我们使用 k 均值聚类算法来计算 k = 1, 2, …, 15 时的聚类结果。对
于每个 k 值，计算其 WSS。如果增加一个簇导致对数据点进行了更好的划