R语言非度量MDS降维

已知i相似度矩阵文件distance_matrix.txt

> library("MASS")

读文件

> distance<-read.table("distance_matrix.txt")

转化为matrix类型

 > new<-as.matrix(distance) 

降维

> distance_mds <- isoMDS(new)

二维散点图

> x = distance_mds$points[,1]
> y = distance_mds$points[,2]

> g=plot(data.frame(x,y),labels = colnames(new))