r - 在 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)