在factoextra对象上使用ggplotly

Question

考虑以下代码：

  library(FactoMineR)
  library(dplyr)
  library(factoextra)
  library(plotly)
  pca1<-PCA(iris[,1:4])
  fpi<-fviz_pca_ind(pca1,habillage = iris$Species)
  fpi

​

​

现在，当执行以下代码时，组重复两次，如图所示。如何解决这个问题？

  ggplotly(fpi)

​

​

Answer 1

只需使用label = "var"即可

library(FactoMineR)
library(dplyr)
library(factoextra)
library(plotly)
pca1<-PCA(iris[,1:4])

#Here use label = "var"
fpi<-fviz_pca_ind(pca1,habillage = iris$Species, label = "var")
fpi
ggplotly(fpi)