r - R ggbiplot 美学

Question

是否可以更改 ggbiplot 中椭圆（包括圆）的厚度？这些论点似乎没有那个选项。还有其他方法吗？到目前为止，我已经通过使我的数据点更加透明来处理这个问题。

Answer 1

我假设您ggbiplot从 github 获得了最新版本（2015 年 6 月 19 日https://github.com/vqv/ggbiplot）。在这一个中，圆的厚度是硬编码的，但你可以很容易地修改代码。有问题的参数在此处设置（在定义中的第 86 行附近ggbiplot()）：

if (circle) {
      theta <- c(seq(-pi, pi, length = 50), seq(pi, -pi, 
                                                length = 50))
      circle <- data.frame(xvar = r * cos(theta), yvar = r * 
                             sin(theta))
      g <- g + geom_path(data = circle, color = muted("white"), 
                         size = 1/2, # <= MODIFY HERE
      alpha = 1/3)
        }

Answer 2

将代码复制ggbiplot到一个新函数中并对其进行更改是可行的，但是第 87 行中的更改仅var.axes = TRUE在默认情况下才有效。如果您设置var.axes = FALSE了，那么您需要size在第 124 行的调用中添加一个参数。类似g <- g + geom_path(data = ell, aes(color = groups, group = groups),size=2).