在R语言factoextra包中，如何修改fviz_pca_var的标签并添加上下标？

直接修改数据框列名用expression无效的原因是：数据框列名会被强制转换为字符类型，PCA计算时只会保留字符形式的变量名，不会解析表达式。以下是两种可行方案：

方案1：手动指定labels参数 #

在调用fviz_pca_var时，直接将包含上下标的表达式向量传给labels参数：

library(factoextra)
library(FactoMineR)

# 示例数据
data <- data.frame(
  pH = rnorm(50),
  Ca = rnorm(50),
  NO3 = rnorm(50)
)

# 执行PCA
pca_res <- PCA(data, scale.unit = TRUE, graph = FALSE)

# 定义带上下标的表达式向量
var_labels <- expression(
  pH,
  Ca^"2+",
  NO[3]^"-"
)

# 绘制变量图，指定标签
fviz_pca_var(pca_res, 
             labels = var_labels,
             repel = TRUE) # 避免标签重叠

方案2：修改PCA结果中的变量名 #

直接替换PCA结果对象里的变量名为表达式，后续绘图会自动识别：

# 替换PCA结果的变量名
pca_res$var$name <- var_labels

# 直接绘图
fviz_pca_var(pca_res, repel = TRUE)

表达式语法说明 #

• 上标用^，下标用[]
• 多字符的上下标需用引号包裹，例如Ca^"2+"、NO[3]^"-"

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