R语言实战MDS

最新推荐文章于 2023-08-24 05:33:15 发布

原创

最新推荐文章于 2023-08-24 05:33:15 发布 · 3.9k 阅读

收录于

本文通过实例介绍了如何使用R语言进行MDS(Multidimensional Scaling)降维算法，分别展示了以欧式距离和曼哈顿距离衡量的鸢尾花数据降维效果，并利用MDS推测美国10个城市的分布，结合实际分布情况进行对比分析。

原理戳这里:

超爱学习：机器学习算法-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()