Добавьте две строки вместе, переписав вторую строку, а затем удалите первую строку.
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