使用fviz_pca_var时添加repel=TRUE出现Viewport零维度错误的解决办法

以下是几个经过验证的解决思路：

• 调整ggrepel参数约束标签范围：
  报错核心是ggrepel计算标签位置时出现视口维度异常，可手动设置参数限制标签排布区域。修改后的代码示例：

  fviz_pca_var(
    PCA_Variables,
    col.var = "cos2",
    gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
    geom = c("point", "text"), labelsize = 3, repel = TRUE,
    alpha.var = 0.1,
    repel.args = list(max.overlaps = 10, xlim = c(-2, 2), ylim = c(-2, 2))
  )
  

  注：xlim和ylim需根据你的PCA结果实际分布调整范围。

• 分离图层手动添加ggrepel标签：
  放弃fviz_pca_var自带的repel参数，用ggplot2语法单独添加geom_text_repel，精准控制绘图流程：

  # 先绘制仅含点的PCA变量图
  p <- fviz_pca_var(
    PCA_Variables,
    col.var = "cos2",
    gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
    geom = "point",
    alpha.var = 0.1
  )
  # 手动添加ggrepel文本标签
  p + geom_text_repel(
    aes(label = name), size = 3,
    max.overlaps = 10, xlim = c(-2, 2), ylim = c(-2, 2)
  )
  

• 筛选高贡献变量后绘图：
  若大量变量在主成分上的cos2值极低（接近0），会导致点聚集在原点附近，引发视口计算异常。可先筛选高cos2变量：

  # 计算变量在PC1+PC2上的总cos2，筛选大于0.1的变量
  vars_high_cos2 <- PCA_Variables$var$cos2[,1] + PCA_Variables$var$cos2[,2] > 0.1
  # 绘制筛选后的变量
  fviz_pca_var(
    PCA_Variables,
    select.var = vars_high_cos2,
    col.var = "cos2",
    gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
    geom = c("point", "text"), labelsize = 3, repel = TRUE,
    alpha.var = 0.1
  )
  

• 更新相关包版本：
  旧版本的factoextra、ggrepel或ggplot2可能存在兼容性问题，运行以下命令更新：

  install.packages(c("factoextra", "ggrepel", "ggplot2"))
  

内容的提问来源于stack exchange，提问作者Donald Siyeni