Неверное количество подписчиков на матрице?

Question

У меня есть список, заполненный матрицами 5x5, и я пытаюсь преобразовать каждую матрицу в списке в вектор, используя цикл for следующим образом:

listT<-list()
number <- 0

for(a in 0:3){
  for(i in 1:(5-a)){
    for(j in 1:(5-a)){
      A<-matrix(0,nrow=5,ncol=5)
      A[c(i:(i+a)),c(j:(j+a))]<-1
      number<-number+1
      listT[[number]]<-A

       }

   }

}


vectors<-matrix(0,25,54)
for (number in 1:54){
  vectors[,number] <- t(as.vector(listT[[number]]))
}

Но появляется сообщение об ошибке "Ошибка в векторах [, число] <- t (as.vector (listT [[число]])): неверное количество индексов на матрице "Я хочу получить выходной сигнал из 54 векторов длины 25. </p>

Answer 1

Вместо вашего цикла в конце, sapply() перебирает каждый элемент списка, применяет функцию к списку:

sapply(listT, as.vector)

И вот как я бы провел рефакторинг всего кода:

n_by_n <- 3
A <- matrix(0, nrow = n_by_n, ncol = n_by_n)

lst <- unlist(
  lapply(seq_len(n_by_n -1) -1, 
         function(a) {
           all_combos <- expand.grid(1:(n_by_n-a), 1:(n_by_n-a))
           lapply(as.data.frame(t(all_combos)),
                  function(x) {
                    A[seq(x[1], x[1] + a), seq(x[2], x[2] + a)] <- 1
                    return(A)
                    }
                  )
       }),
  use.names = F,
  recursive = F)

sapply(lst, as.vector)

      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
 [1,]    1    0    0    0    0    0    0    0    0     1     0     0     0
 [2,]    0    1    0    0    0    0    0    0    0     1     1     0     0
 [3,]    0    0    1    0    0    0    0    0    0     0     1     0     0
 [4,]    0    0    0    1    0    0    0    0    0     1     0     1     0
 [5,]    0    0    0    0    1    0    0    0    0     1     1     1     1
 [6,]    0    0    0    0    0    1    0    0    0     0     1     0     1
 [7,]    0    0    0    0    0    0    1    0    0     0     0     1     0
 [8,]    0    0    0    0    0    0    0    1    0     0     0     1     1
 [9,]    0    0    0    0    0    0    0    0    1     0     0     0     1

Answer 2

Я добавил одну строку в код, и у меня не было ошибки. См. Код:

listT <- list()
number = 0 . # --------------------------- I added this line.
for(a in 0:3){
  for(i in 1:(5-a)){
    for(j in 1:(5-a)){
      A<-matrix(0,nrow=5,ncol=5)
      A[c(i:(i+a)),c(j:(j+a))] <- 1
      number <- number+1
      listT[[number]]<-A

       }

   }

}

vectors<-matrix(0,25,54)
for (number in 1:54){
  vectors[,number] <- t(as.vector(listT[[number]]))
}

Вывод здесь:

> vectors
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24]
 [1,]    1    0    0    0    0    0    0    0    0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0
 [2,]    0    0    0    0    0    1    0    0    0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0
 [3,]    0    0    0    0    0    0    0    0    0     0     1     0     0     0     0     0     0     0     0     0     0     0     0     0
 [4,]    0    0    0    0    0    0    0    0    0     0     0     0     0     0     0     1     0     0     0     0     0     0     0     0
 [5,]    0    0    0    0    0    0    0    0    0     0     0     0     0     0     0     0     0     0     0     0     1     0     0     0
 [6,]    0    1    0    0    0    0    0    0    0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0
 [7,]    0    0    0    0    0    0    1    0    0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0
 [8,]    0    0    0    0    0    0    0    0    0     0     0     1     0     0     0     0     0     0     0     0     0     0     0     0
 [9,]    0    0    0    0    0    0    0    0    0     0     0     0     0     0     0     0     1     0     0     0     0     0     0     0
[10,]    0    0    0    0    0    0    0    0    0     0     0     0     0     0     0     0     0     0     0     0     0     1     0     0
[11,]    0    0    1    0    0    0    0    0    0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0
[12,]    0    0    0    0    0    0    0    1    0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0
[13,]    0    0    0    0    0    0    0    0    0     0     0     0     1     0     0     0     0     0     0     0     0     0     0     0
[14,]    0    0    0    0    0    0    0    0    0     0     0     0     0     0     0     0     0     1     0     0     0     0     0     0
[15,]    0    0    0    0    0    0    0    0    0     0     0     0     0     0     0     0     0     0     0     0     0     0     1     0
[16,]    0    0    0    1    0    0    0    0    0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0
[17,]    0    0    0    0    0    0    0    0    1     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0
[18,]    0    0    0    0    0    0    0    0    0     0     0     0     0     1     0     0     0     0     0     0     0     0     0     0
      [,25] [,26] [,27] [,28] [,29] [,30] [,31] [,32] [,33] [,34] [,35] [,36] [,37] [,38] [,39] [,40] [,41] [,42] [,43] [,44] [,45] [,46] [,47]
 [1,]     0     1     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     1     0     0     0     0     0
 [2,]     0     1     0     0     0     1     0     0     0     0     0     0     0     0     0     0     0     1     0     0     1     0     0
 [3,]     0     0     0     0     0     1     0     0     0     1     0     0     0     0     0     0     0     1     0     0     1     0     0
 [4,]     0     0     0     0     0     0     0     0     0     1     0     0     0     1     0     0     0     0     0     0     1     0     0
 [5,]     0     0     0     0     0     0     0     0     0     0     0     0     0     1     0     0     0     0     0     0     0     0     0
 [6,]     0     1     1     0     0     0     0     0     0     0     0     0     0     0     0     0     0     1     1     0     0     0     0
 [7,]     0     1     1     0     0     1     1     0     0     0     0     0     0     0     0     0     0     1     1     0     1     1     0
 [8,]     0     0     0     0     0     1     1     0     0     1     1     0     0     0     0     0     0     1     1     0     1     1     0
 [9,]     0     0     0     0     0     0     0     0     0     1     1     0     0     1     1     0     0     0     0     0     1     1     0
[10,]     0     0     0     0     0     0     0     0     0     0     0     0     0     1     1     0     0     0     0     0     0     0     0
[11,]     0     0     1     1     0     0     0     0     0     0     0     0     0     0     0     0     0     1     1     1     0     0     0
[12,]     0     0     1     1     0     0     1     1     0     0     0     0     0     0     0     0     0     1     1     1     1     1     1
[13,]     0     0     0     0     0     0     1     1     0     0     1     1     0     0     0     0     0     1     1     1     1     1     1
[14,]     0     0     0     0     0     0     0     0     0     0     1     1     0     0     1     1     0     0     0     0     1     1     1
[15,]     0     0     0     0     0     0     0     0     0     0     0     0     0     0     1     1     0     0     0     0     0     0     0
[16,]     0     0     0     1     1     0     0     0     0     0     0     0     0     0     0     0     0     0     1     1     0     0     0
[17,]     0     0     0     1     1     0     0     1     1     0     0     0     0     0     0     0     0     0     1     1     0     1     1
[18,]     0     0     0     0     0     0     0     1     1     0     0     1     1     0     0     0     0     0     1     1     0     1     1
      [,48] [,49] [,50] [,51] [,52] [,53] [,54]
 [1,]     0     0     0     1     0     0     0
 [2,]     0     0     0     1     0     1     0
 [3,]     1     0     0     1     0     1     0
 [4,]     1     0     0     1     0     1     0
 [5,]     1     0     0     0     0     1     0
 [6,]     0     0     0     1     1     0     0
 [7,]     0     0     0     1     1     1     1
 [8,]     1     1     0     1     1     1     1
 [9,]     1     1     0     1     1     1     1
[10,]     1     1     0     0     0     1     1
[11,]     0     0     0     1     1     0     0
[12,]     0     0     0     1     1     1     1
[13,]     1     1     1     1     1     1     1
[14,]     1     1     1     1     1     1     1
[15,]     1     1     1     0     0     1     1
[16,]     0     0     0     1     1     0     0
[17,]     0     0     0     1     1     1     1
[18,]     0     1     1     1     1     1     1
 [ reached getOption("max.print") -- omitted 7 rows ]