如何从R中的主要成分计算指数或分数？

Question

如何从主成分分析中计算指数/得分？

这是一个可重复的例子

set.seed(1)
dat <- data.frame(
  Diet = sample(1:2),
  Outcome1 = sample(1:10),
  Outcome2 = sample(11:20),
  Outcome3 = sample(21:30),
  Response1 = sample(31:40),
  Response2 = sample(41:50),
  Response3 = sample(51:60)
)

ir.pca <- prcomp(dat[,3:5], center = TRUE, scale. = TRUE) 

summary(ir.pca)

loadings <- ir.pca$rotation

scores <- ir.pca$x

correlations <- t(loadings)*ir.pca$sdev

这将生成三个主要成分。我可以使用这些数据为上述数据中的每一行计算得分或称为“响应索引”的索引吗？