说我有一个数据框
df <- data.frame(A=c(1,3,1,4,2,2,5,3,1,7,8),b=c(10:20),c=c(20:30))
我想提取A列中总和为4的所有连续行。
我可以使用rollapply
from package运行zoo
并轻松找出是否有任何这样的行
rollapply(df$A,2,function(x)(ifelse(sum(x)==4,print("YES"),print("NO"))))
但我希望能够只取出满足此条件的行并将它们放入另一个数据框中
sum4 <- data.frame(A=c(1,3,1,2,2,3,1),B=c(10,11,12,14,15,17,18),C=c(20,21,22,24,25,27,28))
这可能吗?如果可以,怎么做?