ggbiplotに楕円中心を追加するには？

Question

データセットは4つのグループに分類されています：groups = taxabylevel。 私はggbiplotを実行し、各グループの周りに楕円を追加しました。 各楕円の中心を追加するにはどうすればよいですか？

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

Answer 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))