r语言plotmds_R语言中MDS的使用

原理戳这里:超爱学习：机器学习算法-MDS降维算法​zhuanlan.zhihu.com

1度量MDS

衡量距离用欧式距离，对鸢尾花数据进行降维:

library(stats)

library(ggplot2)

iris = iris

dis_iris = dist(iris[,1:4],p = 2)

mds_x = cmdscale(dis_iris)

mds_x = data.frame(mds_x)

xy = cbind(mds_x, iris[,5])

ggplot(xy, aes(x=X1,y=X2,colour = iris[, 5]))+geom_point()图1使用欧式距离对鸢尾花数据进行MDS降维

2度量MDS

衡量距离使用曼哈顿距离，对鸢尾花数据降维

library(stats)

library(ggplot2)

iris = iris

dis_iris = dist(iris[,1:4],'manhattan')#曼哈顿距离

mds_x = cmdscale(dis_iris)

mds_x = data.frame(mds_x)

xy = cbind(mds_x, iris[,5])

ggplot(xy, aes(x=X1,y=X2, colour = iris[,5]))+geom_point()图2