将两行数据框加在一起 ​​R

Adding two rows of a data frame together R

我正在尝试解决 R 数据框中的一些麻烦行。我的办法是简单地将它们加在一起,将两行合并为 1。例如,如果我有 100 行 X 列,我会操作后有 99 行 X 列。理想情况下,我只会传递两个行号,然后将它们组合起来。我想几乎像矩阵运算一样为每一列添加每个值。我怎样才能做到这一点?

将两行加在一起覆盖第二行,然后删除第一行。

combine_rows <- function(data, row1, row2) {
  data[row2, ] <- data[row1, ] + data[row2, ]
  data[-row1, ]
}

# test using builtin data frame, BOD

BOD
##   Time demand
## 1    1    8.3
## 2    2   10.3
## 3    3   19.0
## 4    4   16.0
## 5    5   15.6
## 6    7   19.8

combine_rows(BOD, 2, 3)
##   Time demand
## 1    1    8.3
## 3    5   29.3   <-- this row is the sum of original rows 2 and 3
## 4    4   16.0
## 5    5   15.6
## 6    7   19.8