通过 for 循环 r 传递表格

Question

假设我有 n 个表：table_1、table_2、...、table_n。 我想创建如下 n 个矩阵，但我不知道如何使用 for-loop 或 lapply 函数来做同样的事情：

matrice_WS_1 = cbind(tab_1$WS) %*% rbind(tab_1$WS)
matrice_WS_2 = cbind(tab_2$WS) %*% rbind(tab_2$WS)
matrice_WS_3 = cbind(tab_3$WS) %*% rbind(tab_3$WS)
.
.
.
matrice_WS_n = cbind(tab_n$WS) %*% rbind(tab_n$WS)

Answer 1

将表放在一个列表中，然后迭代：

tbl.list <- list(table_1, table_2, table_3, table_n)

mat.list <- setNames(
  vector(mode = "list", length = length(tbl.list)), 
  nm = paste0("matrix_WS_",1:length(tbl.list))
  )

for (i in 1:length(tbl.list)) {
  dat = tbl.list[[i]]["WS"] #retain two dimensions
  mat = as.matrix(dat) #convert to matrix
  out = mat %*% t(mat) #transform data as desired
  mat.list[[i]] <- out
}