R ggbiplot美学

Question

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

Answer 1

我假设您从 github（2015 年 6 月 19 日 https://github.com/vqv/ggbiplot）获得了最新版本的 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).

R ggbiplot美学

R ggbiplot aesthetics

r

ggbiplot