2012-03-09 6 views
2

のラインを有する点のセットを接続する、Iは、上記の図に基づいて以下のスクリプト現在R

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

enter image description here

を使用して図形を生成し、私は他とその赤い点を接続しますポイント、それを行う方法?

+0

「接続する」とはどういう意味ですか?生成された順番でポイントを結ぶ 'line(out)'を行うことができます。それともy値を意味するのですか? –

+0

どういう意味ですか?あなたは、すべての点を線で結びつけたいのですか、あるいはその1点を他の点に接続したいだけですか?どの点? – Andrew

+0

彼が言ったこと。わたしたちが明確になるまで私は終わりに投票しました... – Spacedman

答えて

14

あなたはその赤いポイントにすべてのポイントを接続する場合は、あなたが試みることができる...

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

enter image description here

それはほとんど作ることができ、印刷の順番とグラフィカルな特性を調整します簡単に、あまりにもを見て:

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) 

enter image description here