R ggbiplot美学

Question

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

Answer 1

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

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，那么您需要在第124行的调用中添加size参数。例如g <- g + geom_path(data = ell, aes(color = groups, group = groups),size=2)。