seiseki <- read.csv("Cluster.csv")#第７回のデータを使用

seiseki

(dist(seiseki))

 

library(MASS)

ss2 <- isoMDS(dist(seiseki))#非計量MDS  

plot(ss2$points[,1:2],type="n")

text(ss2$points[,1:2],as.character(seiseki$X))

​

seiseki2 <- read.csv("Cluster2.csv")

seiseki2

(dist(seiseki2))

ss22 <- isoMDS(dist(seiseki2))#非計量MDS  

plot(ss22$points[,1:2],type="n")

text(ss22$points[,1:2],as.character(seiseki2$X))