将两个数据框中的所有行成对求和并保存到矩阵

Question

我有一个数据框 df1 和一个数据框 df 2

df1

colA colB ...
30    2   ...
3     100 ...
15    9   ...
..    ..  ...

df2

colA colB ...
10    200 ...
0     10  ...
55    1   ...
..    ..  ...

我想将 df1 的 colA 中的所有行与 df2 中的 colA 中的所有行相加，依此类推，对于其余列

输出：

df3

colA colB
40    202
3     110
70    10

我想将值填充到矩阵中 我写了这样的东西：

results <- matrix(NA, ncol=ncol(df1), nrow=nrow(df1))
rownames(results) <- rownames(df1)
colnames(results) <- colnames(df1)

for (i in seq(df1)) {
  tempCol1 <- df1[, i]
  for (row in rownames(results))
    for (j in seq(results)){
      results[row,j]<-sum(df1[row, tempCol1 ], 
                          df2[row, tempCol1 ])
}}

它给出了这个错误：

[<-(*tmp*, row, j, value = sum(a[row, tempCol1], b[row, tempCol1])) : 下标越界

Answer 1

将其制成矩阵并将它们相加。

直接添加两个 data.frame 也可以。

df1 = data.frame(colA = c(30, 3, 15), colB = c(2, 100, 9))
df2 = data.frame(colA = c(10, 0, 55), colB = c(200, 10, 1))
as.matrix(df1)+ as.matrix(df2)
df1+df2

> as.matrix(df1)+ as.matrix(df2)
     colA colB
[1,]   40  202
[2,]    3  110
[3,]   70   10

> df1+df2
  colA colB
1   40  202
2    3  110
3   70   10

Answer 2

您不必使用 for 循环 来解决此问题。只需将它们相加即可：

m = as.matrix(df1 + df2)

Answer 3

我们可以做一个常规的 + ，它将保留矩阵格式并进行元素求和，下面的代码片段将完成工作

df1 <- data.frame (
  col1 = c(30, 3, 15),
  col2 = c(2, 100, 19)
)

df2 <- data.frame (
  col1 = c(30, 3, 15),
  col2 = c(2, 100, 19)
)

my_mat1 <- as.matrix(df1)
my_mat2 <- as.matrix(df2)

result = my_mat1 + my_mat2;