고정 헤더 영역
상세 컨텐츠
본문
다음은 hclust 함수를 사용하여 학생들의 신체검사 결과를 군집분석하는 예제입니다.
코드
#학생들의 신체검사 결과를 군집분석
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])
#계층적군집분석으로인해 크게 몇개 영역으로 나눈지 알수 있다.
샘플 데이터
실습53_hcluster.R
본 포스팅은 KIC 캠퍼스에서 박영권 강사의 지도하에 공부하며 작성한 리포트입니다.
혹시 잘못된 내용이 있거나 문제 소지시 댓글 남겨주시면 조치하겠습니다.
'Legacy Story' 카테고리의 다른 글
| AI 오픈 이노베이션 허브 : 인공지능을 학습시키기 위한 데이터를 제공하는 사이트 (0) | 2018.05.16 |
|---|---|
| R - K-means 군집분석 예제 (0) | 2018.05.16 |
| Django 설치 및 이클립스 연동 (0) | 2018.05.16 |
| R - 군집분석(hclust 활용) 예제 (0) | 2018.05.16 |
| 쿠펀치(쿠팡 물류센터 출퇴근 App) 설치 방법 안내 (2) | 2018.05.14 |
| 구글 듀플렉스 : 사람처럼 말하고 사람을 흉내내다 (0) | 2018.05.14 |
| 라즈베리파이에 MariaDB 설치하기 #3 (완결) (5) | 2018.05.14 |
댓글 영역