r语言plotmds_逼迫学习2：用R语言cmdscale()+plot()+text()函数完成多维尺度分析

我最近开了一个知识星球，美名其曰【数据小兵成长计划】，每周或每月发布具体的学习计划，在星球内立帖为证，以学习成果为标志结束计划，学习过程如果遇到疑问，可以在星球内提问寻求帮助，直到完成。

我把它称之为【逼迫学习模式】。

有星友问我，进入星球后要干什么？我告诉ta现在什么也不用做，先看着，看别人如何逼迫自己完成当下的学习计划，不敢说每天进步一点点，但一周内学习一个知识点应该没什么问题，至于未来你要成长到什么高度，未来再说，我们先做好当下的学习任务。

以下是我的第2个学习计划以及完成情况。

学习计划 MyPlan2

主题：学习使用R语言完成常见多维尺度分析；

时间：5.19-5.26周内完成。

完成计划 MyPlan2

用一个最经典的MDS案例来提交学习任务。已知美国10个城市两两之间的飞行距离，现在要用一张空间感知图来模拟10个城市的相对地理位置。

用stats包中cmdscale函数执行度量型MDS

mds1

此时我们得到10个城市在二维空间的坐标点，开始制作散点图

plot(mds1,type = 'n')

给散点图添加文字标签

text(mds1[,1], mds1[,2],rownames(mds1), cex = 1)

发现城市坐标的分布方向相反了，调整坐标方向，便于阅读

plot(-mds1[,1],-mds1[,2],type = 'n') text(-mds1[,1], -mds1[,2],rownames(mds1), cex