r - 从右到左计算 1 的个数，到第一个 0 为止

Question

我想计算多列中从右到左出现的 1 的数量，遇到第一个 0 时停止。

示例 DF:

df<-data.frame(replicate(7,sample(0:1,30,rep=T)))
colnames(df)<-seq(1950,2010,10)

作为示例，我在此处的新列“条件”下手动输入了所需的结果:

预先感谢您的帮助，

蔡

Answer 1

这是一个完全矢量化的尝试

indx <- rowSums(df) == ncol(df) # Per Jaaps comment
df$condition <- ncol(df) - max.col(-df, ties = "last")
df$condition[indx] <- ncol(df) - 1

这基本上是从右侧找到第一个零，并计算之前有多少列(基本上是二进制数据中的1)

编辑

必须添加对所有行都是 1 时的特殊情况的处理