如何在ggbiplot中添加椭圆中心？

【问题标题】：How to add ellipse center in ggbiplot?如何在ggbiplot中添加椭圆中心？
【发布时间】：2023-03-19 06:12:01
【问题描述】：

我将数据集分为 4 组：groups = taxabylevel。我运行 ggbiplot 并在每个组周围添加椭圆。如何添加每个椭圆的中心？

g <- ggbiplot(pca, obs.scale = 1, var.scale = 1, alpha=0, groups = taxaBylevel,show_guide = FALSE, ellipse = TRUE)
print(g)

【问题讨论】：

标签： r ellipse ggbiplot

【解决方案1】：

data(iris)

pca<-prcomp(iris[,1:4],scale=T)


g<-ggbiplot(pca, obs.scale = 1, var.scale = 1, alpha=0, groups = iris[,5],show_guide = FALSE, ellipse = TRUE)


gmean=aggregate(g$data[,1:2],list(group=g$data$group),mean)

ggbiplot(pca, obs.scale = 1, var.scale = 1, alpha=0, groups = iris[,5],show_guide = FALSE, ellipse = TRUE)+
  geom_point(data=gmean,aes(group=group,colour=group))

【讨论】：