R语言factoextra包fviz_cluster函数repel参数报错求助

问题重现 #

在iris数据集上执行简单聚类，代码如下：

library(factoextra)

iris.kmeans <- kmeans(iris[, c(1,2)], centers=3)

fviz_cluster(iris.kmeans, data=iris[,c(1,2)])

上述代码可正常生成聚类图，但添加repel=T参数后：

fviz_cluster(iris.kmeans, data=iris[,c(1,2)], repel = T)

出现以下错误：

Error in replace_null(unclass(data), label = "a", angle = 0) : could not find function "replace_null"

此前相同代码可正常运行，当前报错；且实际使用的数据集包含大量非整数行名，关闭repel时绘图标签杂乱。

解决思路 #

• 确认依赖包ggrepel的安装与加载：replace_null是ggrepel包的内置函数，factoextra的repel参数依赖该包。先执行以下代码确保ggrepel可用：

  # 未安装则执行安装
  install.packages("ggrepel")
  # 加载包
  library(ggrepel)
  

  加载后重新运行带repel=T的聚类绘图代码。

• 更新factoextra与ggrepel包：若加载ggrepel后仍报错，多为版本兼容性问题。更新两个包到最新版本：

  update.packages(c("factoextra", "ggrepel"))
  

  旧版本factoextra对ggrepel的函数调用逻辑可能存在缺陷，更新后可修复此类问题。

• 手动实现标签防重叠（临时方案）：若暂时无法更新包，可绕过factoextra的repel参数，直接用ggrepel的原生函数添加标签：

  # 先绘制不带标签的聚类图
  p <- fviz_cluster(iris.kmeans, data=iris[,c(1,2)], label = FALSE)
  # 添加防重叠标签
  p + geom_text_repel(aes(label = rownames(iris[,c(1,2)])))
  

内容的提问来源于stack exchange，提问作者Holly Rosson