用R中的线连接一组点

Question

目前,我使用以下脚本生成一个数字

 dat <- matrix(runif(1000*99),99,1000)
 dat <- rbind(rep(0.1,1000),dat)
 out <- cmdscale(dist(dat),k = 2)
 plot(out)
 points(out[1,1],out[1,2],col = "red")

基于上图,我想将红点与其他点联系起来,怎么做？

Answer 1

如果你想将所有点连接到那个红点,你可以尝试......

segments(out[1,1],out[1,2],out[,1],out[,2])

调整打印顺序和图形特征也可以使其更容易查看:

dat <- matrix(runif(1000*99),99,1000)
dat <- rbind(rep(0.1,1000),dat)
out <- cmdscale(dist(dat),k = 2)
plot(out,type="n")
segments(out[1,1],out[1,2],out[,1],out[,2],col="#cccccc")
points(out,col="black",pch=20)
points(out[1,1],out[1,2],col = "red",pch=20)