已知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))