如何生成一个二进制变量，该变量在另一个变量的最后一个非零值之前取值为 0，之后取值为 1

Question

给定变量

a <- c(1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0) 

我想标记最后一个非零值以生成一个变量，该变量在基准之前取值为 0，之后取值为 1。 在这种情况下

b <- c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1)

一个允许标记 aa 列的最后一个非零值的简单命令是

tail(which(a!=0),1) 

但是如何根据这样的基准创建我需要的变量？ 任何帮助将非常感激！

Answer 1

一种选择可能是：

+(cumsum(a) == max(cumsum(a)))

 [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1

或者：

+(cumsum(a) == sum(a))

Answer 2

我们可以使用which来获取 position，其中 a 为 1 的索引，用max换行以返回最后一个 position，创建一个序列为 'a' 的逻辑向量并强制转换为二进制 ( + )

+(seq_along(a) >= max(which(a == 1)))
#[1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1

---

或使用Position

+(seq_along(a) >= Position(function(x) x == 1, a, right = TRUE))