如何更改ggbiplot中椭圆的线型?

How to change the line type of ellipses in ggbiplot?

是否可以更改ggbiplot中正态概率椭圆体的线类型,例如用虚线和点线代替或附加到不同的颜色? 除了用作 MWE 之外,我在 ggbiplot 的文档中找不到任何内容:

library(ggbiplot)
data(wine)
wine.pca <- prcomp(wine, scale. = TRUE)
print(ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, groups = wine.class, ellipse = TRUE, circle = TRUE))

据我所知,不可能将任何参数或参数传递给 ggbiplot。幸运的是,ggbiplot 是一些 ggplot2 命令和数据处理的非常简单的包装器。您可以复制源代码制作自定义函数并更改原始源代码的第 124 行:

g <- g + geom_path(data = ell, aes(color = groups, group = groups))

至:

g <- g + geom_path(data = ell, aes(color = groups, group = groups, linetype = groups))

由于情节比例,如果不改变 aes() 语句之外的大小,很难区分线条。