如何使用for循环使用R拆分矩阵或数据帧？

Question

我想使用循环功能来输出n / 2 NewMatrix ， NewMatrix <-OldMatrix [，c（i，i + 1）]，i = ncol（OldMatrix）。

并给它们命名为格式： NewMatrix_i ，以便我可以轻松访问单个矩阵。

OldMatrix
          A   B   C   D   E   F   G   H   I   J   K  
    [1,] "1" "1" "C" "F" "F" "B" "F" "F" "1" "1" "4"
    [2,] "1" "1" "C" "F" "F" "B" "F" "F" "1" "1" "4"
    [3,] "1" "1" "C" "F" "F" "B" "F" "F" "1" "1" "4"
    [4,] "5" "5" "C" "F" "F" "B" "F" "F" "1" "1" "4"
    [5,] "5" "5" "C" "F" "F" "B" "F" "F" "1" "1" "4"
    [6,] "5" "5" "C" "F" "F" "B" "F" "F" "1" "1" "4"

Answer 1

可能会有所帮助：

 indx <- 1:(ncol(OldMatrix)-1) 
 lst1 <- setNames(lapply(indx, function(i) OldMatrix[,c(i, i+1)]), paste("NewMatrix",indx, sep="_"))

 lst1$NewMatrix_10
 #      J   K  
 #[1,] "1" "4"
 #[2,] "1" "4"
 #[3,] "1" "4"
 #[4,] "1" "4"
 #[5,] "1" "4"
 #[6,] "1" "4"