[問題類型]:
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
[軟體熟悉度]:
使用者(已經有用R 做過不少作品)
[問題敘述]:
我想要自己畫出circle of correlation，有順利畫出，
但是由於我的資料的共變異數矩陣有結構性，
有好幾個變數的分配是一樣的, 所以去做主成分之後，
這幾個相關係數是很接近的，所以PLOT上面的LABEL就疊在一起了，
但變數實在太多，沒辦法自己慢慢給定他label的位置，
ex. X1~X4相關係數很接近，X5~X8相關係數很接近，X9~X18相關係數很接近。
變數實際上更多，這裡是小範例。
如下圖所示，
https://imgur.com/a/ewGenyB
我有查到有避免label overlapping的函數，
但似乎都只能跟ggplot2、lattice搭配才能使用，
但ggplot2與lattice好像不能畫出circle of correlation plot，
想問版友有沒有遇過類似的問題，可以怎麼解決這種label重疊的問題，謝謝大家。
[程式範例]:
我的程式碼如下：
PCA.cor
Comp.1 Comp.2
[1,] -0.4004015 -0.91530070
[2,] -0.4031804 -0.91388941
[3,] -0.4009309 -0.91467268
[4,] -0.4051744 -0.91267974
[5,] 0.9511231 -0.30135543
[6,] 0.9435535 -0.32519751
[7,] 0.9466522 -0.31579510
[8,] 0.9435672 -0.32456862
[9,] 0.9987228 -0.01456728
[10,] 0.9980840 -0.02914308
[11,] 0.9977504 -0.03330187
[12,] 0.9981728 -0.02351494
[13,] 0.9976536 -0.02976503
[14,] 0.9984927 -0.01768483
[15,] 0.9980019 -0.02672811
[16,] 0.9976367 -0.04240636
[17,] 0.9976763 -0.03634121
[18,] 0.9984849 -0.01990170
corrplot <- function(pca.cor, main){
a <- seq(0, 2*pi, length = 100)
plot(cos(a), sin(a), type = 'l', col="gray",
xlab = "PC1", ylab = "PC2", main=main)
abline(h = 0, v = 0, lty = 2)
# Add active variables
arrows(0, 0, pca.cor[, 1], pca.cor[, 2],
length = 0.1, angle = 15, code = 2)
# Add labels
text(pca.cor+0.05, labels=1:100, cex = 1, adj=1)
}
[環境敘述]:
請提供 sessionInfo() 的輸出結果，
裡面含有所有你使用的作業系統、R 的版本和套件版本資訊，
讓版友更容易找出錯誤
[關鍵字]:
label overlapping