如何对R中data.frame中两个相邻列的值求和但保持0？

Question

我有一个包含一组动物的缺席/存在数据 (0/1) 的 data.frame，列是年份，行是个体。

我的数据：

df <- data.frame(Year1 = c('1','0','0','0','0','0'),
                 Year2 = c('1','1','1','0','0','0'),
                 Year3 = c('1','1','1','1','1','0'),
                 Year4 = c('0','1','1','1','1','1'),
                 Year5 = c('0','0','1','1','1','1'),
                 Year6 = c('0','0','0','0','0','0'))

df
     Year1 Year2 Year3 Year4 Year5 Year6
1:     1     1     1     0     0     0
2:     0     1     1     1     0     0
3:     0     1     1     1     1     0
4:     0     0     1     1     1     0
5:     0     0     1     1     1     0
6:     0     0     0     1     1     0

我想要做的是计算每个人每年的年龄，这意味着我想将 col1 添加到 col2，然后将总和添加到 col3，依此类推，使上述数据框变为：

df
     Year1 Year2 Year3 Year4 Year5 Year6
1:     1     2     3     0     0     0
2:     0     1     2     3     0     0
3:     0     1     2     3     4     0
4:     0     0     1     2     3     0
5:     0     0     1     2     3     0
6:     0     0     0     1     2     0

重要的是，零应该保持为零：一旦在一系列非零值之后有一列带有 0 的列，该值应该再次为 0，因为动物已经死亡并且不会继续存在于种群中。

我浏览了许多 stackoverflow 问题，例如：

对 R 中矩阵中每一列的相邻列求和

但是，我找不到在个体去世后进行截止部分的解决方案（4 年后的 0 表示该动物已离开种群并且不应再记录该年的年龄）。

预先感谢您的建议！ :)

Answer 1

这是一个非常简单的方法。 我们按行计算累积总和，然后乘以原始数据框——乘以 0 将 0 项归零，乘以 1 保持总和项保持原样。 由于您的数字周围有引号使它们成为character类，因此我们首先将您的所有列转换为numeric ：

df[] = lapply(df, as.numeric)
result = t(apply(df, 1, cumsum)) * df
result
#   Year1 Year2 Year3 Year4 Year5 Year6
# 1     1     2     3     0     0     0
# 2     0     1     2     3     0     0
# 3     0     1     2     3     4     0
# 4     0     0     1     2     3     0
# 5     0     0     1     2     3     0
# 6     0     0     0     1     2     0