在 PCA 双标标签中添加下标答案

【问题标题】：Adding Subscripts in PCA biplot labels在 PCA 双标标签中添加下标
【发布时间】：2020-07-06 16:32:55
【问题描述】：

我正在尝试创建双标图，但我的标签是需要下标的化学公式，例如：NO3 应该是 NO 下标 3 上标 -。如何获取双标图列名标签中的下标？

library("FactoMineR")
library("ggplot2")

Site <- c("site1", "site2", "site3")
NO3 <- c(100, 300, 200)
NH4 <- c(210, 400, 800)
DON <- c(300, 350, 200)

dat <- cbind(NO3, NH4, DON)
data.frame(dat)
rownames(dat)<- Site


res.pca <- PCA(dat, scale.unit = TRUE, ncp = 4, graph = TRUE)
print(res.pca)

【问题讨论】：

hacky 方式：PCA 返回一个 ggplot 对象，因此您可以添加更多层：plot.PCA(res.pca, choix = 'var', label = 'none') + geom_text(aes(label = c('NO[3]', 'NH[4]', 'DON')), parse = TRUE)
@rawr 当我这样做时，响应是“NULL”
您是在问题中使用示例还是在实际数据中使用示例？
问题中的示例
我换到 R 4.0 版就知道了，谢谢！

标签： r ggplot2 pca

【解决方案1】：

可以使用R函数表达式，例如

plot(x, y, main=expression('NO'[3]))

【讨论】：