获取R中SVD的列名

Question

我在R中对名为data

的数据帧进行SVD

svd1 <- svd(scale(data))

我使用

绘制结果

plot(svd1$d^2/sum(svd1$d^2),xlab="Column",ylab="Percent of variance explained",pch=19)

我发现在图中，列号与数据帧中的列号无关（无论我使用SVD的列子列，第一列总是显示高位方差）。

我的问题是，如何在图中获取列名（或“真实”索引）？