在 R 中使用 for 循环向数据 table 添加行

Question

我正在玩一些基本的 R 函数，我正在尝试创建一个 table，其中包括数字 1:20 的余数和商数首先我创建了这个函数：

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

我加个空格table

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

然后我创建了这个 for 循环

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

如有任何帮助，我们将不胜感激。谢谢

Answer 1

初始化 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

在 R 中使用 for 循环向数据 table 添加行

adding rows to data table using for loop in R

for-loop

r

division

dataframe