#학생들의 신체검사 결과를 군집분석
body<-read.csv("testdata/bodycheck.csv",header = TRUE)
body

idist <-dist(body[,-1])
idist

#계층적 군집분석
hc <-hclust(idist)
hc #Cluster method   : complete
par(mfrow=c(1,1))
plot(hc, hang=-1) #유사한 그룹끼리 나누어져 있음
rect.hclust(hc, k=3,border = "red") #테두리 그음(3개의 영역으로 나눔)

#군집별 특징
# 3개로 나눈 영역별로 따로 또 나눔
g1 <-subset(body, 번호==10 | 번호==4 |번호==8 |번호==1| 번호==15)
g2 <-subset(body, 번호==11 | 번호==3 |번호==5 |번호==6| 번호==14) 
g3 <-subset(body, 번호==2 | 번호==9 |번호==13 |번호==7| 번호==12)

g1 ; g2; g3


summary(g1[2:4]) #번호빼고 봄(번호가 1번째)
summary(g2[2:4])
summary(g3[2:4])

#계층적군집분석으로인해 크게 몇개 영역으로 나눈지 알수 있다.