需求
在计量经济中,我们常常要画一些省域的数据图像,类似与这总散点图。
数据描述
基于R语言的代码实现
# 1.导入数据
df = read.table('clipboard',header = 1) # 导入数据
df_matrix = as.matrix(df) #转化为矩阵
df_distance = dist(df_matrix) # 求距离阵
library(MASS) # 载入MASS包,因为要使用isoMDS()函数
fit = isoMDS(df_distance,k=2)
fit
x = fit$points[,1]
y = fit$points[,2]
plot(x,y)
text(x,y,labels=df[,1],adj=c(0.5,1.5),cex=0.7) # 设置标签位置大小
aaa