r - Q : ggbiplot _ Foreground arrows; change arrow color

Question

我有一个大数据集并试图绘制 PCA。我对最终的情节相当满意，但我想改变一些事情:

箭头:它们似乎在背景中并被数据点覆盖。1)我怎样才能把它们放在前面？2)如何更改颜色和喜欢的大小？

省略号:3) 如何让线条变粗？

传说4) 如何在绘图本身的右上角放置？

提前致谢!

这是我得到该图的方式:

g <- ggbiplot(LS_3.pca, choices = 1:2, scale = 1, pc.biplot =
       TRUE, obs.scale = 1, var.scale = 1, groups =
       LS.loc, ellipse = TRUE, ellipse.prob = 0.98, labels =
       NULL, labels.size = 5, alpha = 0.25, circle
     = FALSE, circle.prob = 0.69, varname.size = 5,
     varname.adjust = 1.5, varname.abbrev = FALSE, var.axes = TRUE)
g <- g + xlim(-8, 6) + ylim(-4, 6)
g <- g + theme_classic()

print(g)

Answer 1

ggbiplot 返回类“ggplot”的对象。如果你检查这个对象，你会发现它包含一个名为“层”的列表。 geom_segment 图层出现在 geom_point 图层之前。你想重新排序这些。如果 geom_segment 层是 layer 2 of 4，你可以这样做(例如):

myplot$layers <- c(myplot$layers, myplot$layers[[2]])

这将在列表的末尾附加一个额外的层(绘制箭头)，并且该层将在绘制点(在上一层中)之后绘制。此 hack 足以提供您需要的功能。

编辑:我意识到这个答案只涉及将箭头放在前台的问题。这是我遇到的问题，所以我在这里提供我的解决方案供其他人使用。要解决其他问题，我建议在控制台输入:

ggbiplot

没有括号，这将列出函数体。剪切并粘贴到定义新函数(例如“my_ggbiplot”)的新 R 脚本中，然后修改以获得所需内容。这不是一个很长的函数，而且很容易弄清楚每个函数的作用。但是，对于前景箭头，上面的单行修复将起作用。