【R语言】多维缩放

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))