如何让R中PCA图stat_ellipse多边形填充色匹配Set2调色板？

修正后的代码 #

# 正确调用autoplot并设置分组映射
autoplot(pca_data, aes(color = group)) +
  ggtitle('Principal Component Analysis') +
  theme(plot.title = element_text(hjust = 0.5)) +
  stat_ellipse(
    lwd = 0.75,
    linetype = 2,
    geom = 'polygon',
    aes(fill = group),
    alpha = 0.25,
    show.legend = FALSE,
    level = 0.8
  ) +
  scale_color_brewer(palette = "Set2") +  # 控制点的颜色
  scale_fill_brewer(palette = "Set2")     # 控制椭圆填充色，与点用同调色板

关键修正说明 #

• 修复autoplot语法问题：原代码把aes(color = group)直接叠加到pca_data上，不符合ggplot2语法逻辑。正确方式是将映射传入autoplot函数，或在autoplot()之后用+ aes()添加。
• 同步填充色调色板：scale_color_brewer仅控制点的颜色，椭圆填充色需要单独用scale_fill_brewer指定相同的Set2调色板，才能实现分组颜色匹配。
• 消除映射错误：原写法导致R无法识别正确的美学映射关系，修正后所有图层都基于autoplot返回的ggplot对象叠加，避免"Aesthetics are not valid data columns"类错误。

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