写一个判断语句，自动对数据框赋值

1. test <- data.frame(X1=c(TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE,FALSE,FALSE),
   
2.                     X2=c(001, NA, NA, 002, NA, 003, NA, NA, NA))
   
3. #step1
   
4. index <- which(!is.na(test[,2]))
   
5. #step2
   
6. delta <- diff(c(index,length(test$X2)+1))
   
7. #final step
   
8. result <- rep(test[,2][index],delta)
   
9. test3<- cbind.data.frame(test$X1, result)
   
10. write.csv(test3,file = "result.csv")

复制代码

最后的输出结果：