各ループ反復で新しい行列を作成する

Question

forループを使用して、ループの各反復で新しい行列を作成したいとします。

mining_t = c("Zr_t","Sr_t","Rb_t","Zn_t","Cu_t","Fe_t","Mn_t","V_t","Ti_t","Ca_t","K_t","Ba_t") 

for (i in mining_t){ 
    ??=matrix(c(VI9A_mn[1:7,i],VI9A_mn[8:14,i],VI9A_mn[15:21,i]),nrow=7,byrow=FALSE) 
    colnames(i)=c("45","90","135") 
} 

私は、各行列は7行の3列を持っているしたいと思います。新しい各行列は、行列VI9A_mnのi番目の列（すべての行）から作成され、ベクトルmining_tの関連要素の名前を持つ必要があります。

Answer 1

我々はlistでmatrixオブジェクトを保持する方が良い「VI9A_mn」

lst <- lapply(split(VI9A_mn, col(VI9A_mn)), 
       matrix, ncol=3, dimnames = list(NULL, c(45, 90, 135))) 

の列でsplitを行うことができます。私たちは地球環境に複数のオブジェクトを持っていると主張し、list2env

list2env(lst, envir = .GlobalEnv)