这是我作为data.frame的一部分的布尔值示例:
atest <- c(FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
FALSE)
我想从每个 FALSE 返回从 1 开始并增加 1 直到下一个 FALSE 的数字序列。
得到的所需向量是:
[1] 1 2 3 4 5 6 7 8 9 10 1 2 3 4 5 6 7 8 9 10 1
这是完成此操作的代码,但我确信在 R 中有一种更简单或更优雅的方法来执行此操作。我一直在尝试学习如何在 R 中更有效地编写代码,而不是简单地完成工作。
result <- c()
x <- 1
for(i in 1:length(atest)){
if(atest[i] == FALSE){
result[i] <- 1
x <- 1
}
if(atest[i] != FALSE){
x <- x+1
result[i] <- x
}
}