用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)