1
私は、a〜kの文字で表される11変数を持つデータフレームを2点散布図にプロットしています。私はすべての点を識別するために符号Rをプログラムしたい私は点(D、E、FおよびG、i)が30未満ユークリッド距離と軸の値に基づいて点を検索するR
d<-dist(cor, method = 'euclidean');d
距離を有することが観察ユークリッド距離を用い
cor<-data.frame(X=c(0.36187115, -0.54755904, -0.82417308, -0.70806545, -0.77422866, -0.70003404,
-0.70043884, 0.73602124,-0.89909694, -0.05937341, 0.93496883),
Y=c(-0.54354070,-0.81211142, -0.52775892, 0.40191296, 0.36820779, 0.28163131,
-0.26161395, -0.26386668,-0.31894766, -0.91541962, -0.04548996),
row.names = letters[1:11]);cor
a<-seq(0,2*pi, length=100)
plot(cos(a),sin(a), type="l", lty=2, xlab = "X", ylab = 'Y')
points(cor[cor$X<0 & cor$Y<0,-3], pch=20, col='blue')
points(cor[cor$X<0 & cor$Y>0,-3], pch=20, col='forestgreen')
points(cor[cor$X>0 & cor$Y<0,-3], pch=20, col='red')
abline(v = 0, h = 0)
text(cor, rownames(cor), pos = 3, cex = 0.8)
距離は< 30で、X軸とY軸の値に基づいてこれらの点の1つを取得します。
例:点iとgの距離値は、軸点の基準に基づいて0.206であり、X軸とY軸の値が小さいため除外する必要があります。
しかし、どこから始めるべきなのかわかりません。
誰かがコードを開始するのを助けることができますか?
ありがとう
ループを 'cbind(rownames(d)[pairs [、1]]、colnames(d)[pairs [、2]]' – rawr