在PCA双标图上绘制类椭圆的中心

Question

我想知道是否可以编写一个函数，或者是否有现有的函数或脚本可以让我绘制在PCA中生成的圆和椭圆的中心。

以下是我的代码

#PCA FUNCTION
fancy.pca <- prcomp(DATA2C ,scale = TRUE)

#FANCY PRINTING OF PCA: GROUPING COLOR / SCHEME / TITLE
g<-ggbiplot(fancy.pca, obs.scale = 1, var.scale = 1,
            groups = factor(DATA2C.class), ellipse = T, circle = T)
g<- g+ scale_color_discrete(name = '') 
g<- g+ theme(legend.direction = 'horizontal', legend.position = 'top')+
  ggtitle("Jamaica Bay W-E Distribution PCA ")


print(g)

我附上了我的情节

的图像