R 如何添加'；排斥=真'；在下面的代码中，使PCA更具可读性？

我使用了下面的代码来创建这个图，但是它有太多的重叠，很难阅读，我也尝试了

repel=TRUE

，但它也显示了一些错误。我的问题是（1）如何在下面的代码中添加ggrepel以使此图更具可读性。（2） ，如何使PCA向量行加粗

---

关于您的Q1，将

geom_text

替换为令人厌恶的文本注释

geom_text_repel（）

。您编辑的代码可能是

geom\u text\u repel（数据=箭头12，aes（x=5*x2，5*y2，label=corlabels），color=“black”，alpha=1，size=5）

中的

库（ggrepel）

。 对于Q2，在

geom_段（）

中添加

size=1

。我希望它能起作用

ggplot() + 
      geom_hline(yintercept = 0, colour = "gray65") +
      geom_vline(xintercept = 0, colour = "gray65") +
      #geom_point(data = Root.Traits.pca12, aes(x = PC1, y = PC2), colour= "gray40", alpha = 0.5, size = 5) +
      geom_point(data = Root.Traits.pca12, aes(x = PC1, y = PC2, colour=Si), alpha = 0.8, size = 5, shape = 16)+
      
      #geom_point(data = arrows12, aes(x = PC1, y = PC2, fill=Nlevel), pch=21, colour=NA, alpha = .9, size = 3) +
      geom_segment(data = arrows12, aes(xend = 5*x2, yend = 5*y2), x=0, y=0, colour = "black") + 
      geom_text(data = arrows12, aes(x = 5*x2, 5*y2, label = corlabels),colour = "black", alpha = 1, size = 5) +
      coord_fixed(ratio = 1, xlim = c(-8, 6.6), ylim = c(-5, 7.5)) +
      scale_x_continuous(breaks=c(-7.5,-5,-2.5,0, 2.5, 5, 7.5))+
      scale_y_continuous(breaks=c(-5,-2.5,0, 2.5, 5))