将两行数据框加在一起 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
我正在尝试解决 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