在列表的陣列具有行從矩陣

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"