MDS的工作原理
在R语言中实现MDS
#数据集
data(eurodist)
eurodist
mds <- cmdscale(d = eurodist,k=2,eig = T)
mds
plot(mds$points,main = "Togerson-Gower")
text(mds$points,rownames(mds$points))
library(MASS)
mds <- isoMDS(eurodist,k=2)
head(mds$points)
plot(mds$points,type = "n",main = "isoMDS")
text(mds$points,rownames(mds$points))
mds <- sammon(eurodist,k=2)
head(mds$points)
plot(mds$points,type = "n",main = "sammon")
text(mds$points,rownames(mds$points))