在corrplot的x轴下添加附加信息

我试图在corrplot的x轴下加入PCA解释的累积比例方差。我参考了corrplot手册，但没有找到任何操作说明。下面是我目前使用示例数据的代码

library("FactoMineR")
library("factoextra")
library("corrplot")

data(decathlon2)
decathlon2.active <- decathlon2[1:23, 1:10]

res.pca <- PCA(decathlon2.active, graph = FALSE)
var <- get_pca_var(res.pca)
corrplot(var$cos2, is.corr=FALSE)

##getting cumulative variance explained from res.pca
variance <- res.pca$eig*100/sum(res.pca$eig)
cumvar <- cumsum(variance)

问题在于如何将cumvar信息插入corrplot的x轴，使其与corrplot顶部的相应dim*相匹配，从而无需进行scree绘图

---

有人知道怎么做吗？任何帮助都将不胜感激

如果要在x轴底部显示这些数字：

重复你的计算

library("FactoMineR")
library("factoextra")
library("corrplot")

data(decathlon2)
decathlon2.active <- decathlon2[1:23, 1:10]

res.pca <- PCA(decathlon2.active, graph = FALSE)
var <- get_pca_var(res.pca)

variance <- res.pca$eig*100/sum(res.pca$eig)
cumvar <- cumsum(variance)

添加单元格下解释的方差比例：

text(1:5, 0, round(cumvar[1:5], 2), xpd=TRUE)

结果是：

text(1:5, 0, round(cumvar[1:5], 2), xpd=TRUE)