第一次出现 0 后，将行列的后续值更改为 0

如何解决第一次出现 0 后，将行列的后续值更改为 0

我有以下data.table：-

a <- data.table(name = letters[1:5],Y1 = c(1,1,0),Y2 = c(1,Y3 = c(1,1),Y4 = c(1,Y5 = c(0,1))

#   name Y1 Y2 Y3 Y4 Y5
#1:    a  1  1  1  1  0
#2:    b  1  1  1  1  0
#3:    c  0  1  1  1  0
#4:    d  1  1  0  1  0
#5:    e  0  0  1  1  1

我想操纵这个 data.table 以便如果在列 Y1 到 Y5 的行中检测到 0，则所有后续列值都应更改为 0。例如，对于 4 中的第 data.table 行，第一个 0 在 Y3 中。因此，Y4 和 Y5 应更改为 0。在第 5 行中，第一个 0 出现在 Y1 列，因此，Y2 到 {该行的 {1}} 列应更改为 0。

结果 Y5 应如下所示：-

data.table

解决方法

这是一个选项：

cols <- paste0("Y",1L:5L)
a[,(cols) := lapply(Reduce(`&`,.SD,accumulate=TRUE),as.integer),.SDcols=cols]

,

您可以按行应用 cummin -

cbind(a[,1],t(apply(a[,-1],1,cummin)))

#   name Y1 Y2 Y3 Y4 Y5
#1:    a  1  1  1  1  0
#2:    b  1  1  1  1  0
#3:    c  0  0  0  0  0
#4:    d  1  1  0  0  0
#5:    e  0  0  0  0  0