变异一列，该列采用向量的数据帧中的行的点积

我有一个 102x3000000~ 的数据框，我正在尝试计算每个数据点的 PCA 维度。

例如，如果要乘以每个的向量为：

1、2、3、4、5

我希望变量 A B C D 和 E 都乘以它们在向量中各自的数字，然后在一个新变量中求和得到：

df %>% dplyr::mutate(PC = A * 1 + B * 2 + C * 3 + D * 4 + E * 5)

目前，我的几乎代码如下：

dftest <- dfScaled %>% dplyr::mutate(PC = as.numeric(as.vector(dfScaled[Z,-c(2,3,4)])) %*% PC1)

如果上面的 Z 可以对应每个观察的行号，那就行了。注意 PC1 是一个 1x99 数字列表。我对其进行了测试，它可以使用单个硬编码的 Z 值。

非常感谢任何帮助。