通过将特定行汇总到新行来修改矩阵

Question

我有一个2289行的大型数据矩阵。附上样本图片。矩阵称为speciesTraps。所有列值都是数字。如果speciesTraps[,1]等于零，我需要将任何行聚合到前一行。在阅读了其他人的问题和答案后，我正在考虑使用以下语句创建一个循环：

for (i in 1: nrow(subsetTrapsplusid)) {
  row <- subsetTrapplusid[i, ]
  if (subsetTrapsplusid[[1]] = 0) {
    print(aggregate(subsetTrapsplusid[row, ], subsetTrapsplusid[(row - 1), ], sum))
  } else {
    (print(subsetTrapsplusid[i, ]))
  }
}

如果您有任何建议，请告诉我。

datamatrix的屏幕截图：