R语言如何避免PCA绘图中geom_point生成的点遮盖变量标签？

你当前生成的存在遮盖问题的可视化结果如下：

问题根因 #

你当前代码出现遮盖问题的核心原因是图层堆叠顺序错误：autoplot默认的图层顺序为「采样点→载荷线→载荷标签」，你后续追加的geom_point会叠加在所有已有图层的最上层，因此放大后的点直接盖住了下方的载荷标签。同时你代码中重复定义了颜色映射，属于冗余写法可同步优化。

可行修改方案 #

方案1：设置点位半透明（修改量最小） #

给geom_point增加alpha参数设置半透明，既保留点位清晰度，又不会完全遮挡下方标签：

chem20.pca <- prcomp(chem20[,c(3:23)], center = TRUE, scale. = TRUE)

autoplot(chem20.pca, data=chem20, colour="Location", 
         loadings = TRUE, loadings.colour = 'black', 
         loadings.label.colour='black', loadings.label = TRUE, 
         loadings.label.size = 4, loadings.label.repel=TRUE) + 
  # alpha取值范围0-1，数值越小透明度越高，可根据效果调整
  geom_point(aes(color = Location), size = 1, alpha = 0.6) + 
  guides(size = "none")

注意：这里去掉了aes中冗余的chem20$前缀，ggplot会自动从传入的data参数中读取对应列，避免作用域报错

方案2：调整图层顺序（完全避免遮挡） #

关闭autoplot默认的采样点绘制，手动调整图层顺序为「采样点→载荷线→载荷标签」，保证标签始终在最顶层：

autoplot(chem20.pca, data=chem20, colour="Location", 
         # 关闭autoplot默认的几何元素绘制，后续手动加点位
         geom = "none",
         loadings = TRUE, loadings.colour = 'black', 
         loadings.label.colour='black', loadings.label = TRUE, 
         loadings.label.size = 4, loadings.label.repel=TRUE) + 
  # 点位先绘制，放在最底层
  geom_point(aes(color = Location), size = 1) + 
  guides(size = "none")

方案3：增强标签避障能力 #

调大repel函数的排斥力参数，让标签主动避开点位密集区域，可和上述方案组合使用：

autoplot(chem20.pca, data=chem20, colour="Location", 
         loadings = TRUE, loadings.colour = 'black', 
         loadings.label.colour='black', loadings.label = TRUE, 
         loadings.label.size = 4, 
         # 增大force提升排斥力，max.overlaps设为Inf允许调整所有重叠标签
         loadings.label.repel=list(force = 3, max.overlaps = Inf)) + 
  geom_point(aes(color = Location), size = 1, alpha = 0.6) + 
  guides(size = "none")

你可以根据自己的需求选择对应方案，也可以组合使用半透明设置+增强避障，效果会更好。

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