사용할 데이터: eurodist
cmdscale
을 통해 메트릭 MDS 시행
metric = cmdscale(eurodist)
plot(metric, type = 'n')
text(metric, rownames(metric))
isoMDS
을 통해 넌메트릭 MDS 시행
library(MASS)
nonm = isoMDS(eurodist)
plot(nonm$points, type = 'n')
text(nonm$points, rownames(nonm$points))
initial value 7.505733 final value 7.505688 converged
사용할 데이터: USArrests
데이터 확인
head(USArrests)
Murder Assault UrbanPop Rape Alabama 13.2 236 58 21.2 Alaska 10.0 263 48 44.5 Arizona 8.1 294 80 31.0 Arkansas 8.8 190 50 19.5 California 9.0 276 91 40.6 Colorado 7.9 204 78 38.7
거리 구하기
arrest.dist = dist(USArrests)
arrest.dist
Alabama Alaska Arizona Arkansas California Alaska 37.177009 Arizona 63.008333 46.592489 Arkansas 46.928137 77.197409 108.851918 California 55.524769 45.102217 23.194180 97.582017
cmdscale
을 통해 메트릭 MDS 시행
arr.mds = cmdscale(arrest.dist)
plot(arr.mds, type = 'n')
text(arr.mds, rownames(arr.mds))