r - 创建新变量，它是许多其他变量的线性组合

Question

假设我有一个如下所示的数据框:

df1 <- as.data.frame(matrix( rnorm(100*50,mean=0,sd=1), 100, 50))

我想创建一个新变量 y，它是 alpha_i*V_i 的总和，其中 i 从 1 到 50，其中 alpha 是从均匀分布 (0,1) 中抽取的随机数。

这样做的最佳方法是什么？我可以使用 mutate 和 dplyr 来实现吗？

Answer 1

你可以试试

 df1$newvar <- as.matrix(df1) %*% v1

或者

 df1$newvar <- rowSums(sweep(df1, 2, v1, FUN='*'))

或者按照@Frank 基于 post 的建议

 df1$newvar <- Reduce(`+`,lapply(seq_along(v1),function(i)df1[[i]]*v1[i]))

数据

 set.seed(24)
 df1 <- as.data.frame(matrix( rnorm(100*50,mean=0,sd=1), 100, 50))
 set.seed(48)
 v1 <- runif(50)