добавление строк в таблицу данных с использованием цикла for в R - PullRequest
Новая
       6

добавление строк в таблицу данных с использованием цикла for в R

0 голосов
/ 20 ноября 2018

Я играю с некоторыми основными функциями R и пытаюсь создать таблицу, которая включает в себя остаток и коэффициент для чисел 1:20 Сначала я создал эту функцию: 

Find_Remains = function(number, divisor){
              Remainder = number%%divisor
              Quotient = number%/%divisor
              a = c(number, divisor, Remainder, Quotient)
              return(a)
}

Я добавляю пустую таблицу 

final.data.frame = data.frame(matrix(NA, nrow = 1, ncol = 4))

Тогда я создал это для цикла 

for(i in c(1:20)){
    b[i] = Find_Remains(i,5)
    final.data.frame = rbind(b[i])
}

ошибка, которую я получаю: 

number of items to replace is not a multiple of replacement length

любая помощь будет оценена. Спасибо

1 Ответ

0 голосов
/ 20 ноября 2018

Спасибо за инициализацию final.data.frame (хотя инициализация его с 20 строками была бы лучше, я думаю).Сделав так, что вам не нужно использовать rbind, вы можете просто заменять каждую строку кадра данных при каждом запуске цикла.Вот что вам нужно - 

Find_Remains = function(number, divisor) {
              Remainder = number%%divisor
              Quotient = number%/%divisor
              a = c(number, divisor, Remainder, Quotient)
              return(a)
}

final.data.frame = data.frame(matrix(NA, nrow = 20, ncol = 4))

for(i in 1:20) {
  final.data.frame[i, ] = Find_Remains(i,5)
}

> final.data.frame
   X1 X2 X3 X4
1   1  5  1  0
2   2  5  2  0
3   3  5  3  0
4   4  5  4  0
5   5  5  0  1
6   6  5  1  1
7   7  5  2  1
8   8  5  3  1
9   9  5  4  1
10 10  5  0  2
11 11  5  1  2
12 12  5  2  2
13 13  5  3  2
14 14  5  4  2
15 15  5  0  3
16 16  5  1  3
17 17  5  2  3
18 18  5  3  3
19 19  5  4  3
20 20  5  0  4
...