在列表的阵列具有行从矩阵

Question

替换行我现在有列出的阵列，并且所产生与该码的矩阵：

require(gtools) 

FiveStates = array(list(NULL), c(32,2)) 

four.1 = combinations(5,4,c(LETTERS[1:5])) 

four.2 = four.1[nrow(four.1):1,] 

我想替换行的2-6数组中的第一列FiveState与矩阵中的所有五行四元素。我怎样才能做到这一点，而不必分别替换每一行？编辑：我想让FiveStates [2,1]显示“B”，“C”，“D”，“E”; FiveStates [3,1]显示“A”，“C”，“D”，“E”;等等等等，所以第一列五国中的第二到第六个条目具有匹配四个行的矢量[2：6，]。

（此外，包你需要使用组合（）现在的功能是在代码中我们对此深感抱歉。）

Answer 1

您可以替换使用常规的矩阵索引与列表填充的矩阵块：

FiveStates[2:6, 1] <- lapply(1:nrow(four.1), function(x) four.2[x, ]) 
FiveStates[2:6, 1] 

[[1]] 
[1] "B" "C" "D" "E" 

[[2]] 
[1] "A" "C" "D" "E" 

[[3]] 
[1] "A" "B" "D" "E" 

[[4]] 
[1] "A" "B" "C" "E" 

[[5]] 
[1] "A" "B" "C" "D"