提取rollapply评估为TRUE的行集？

Question

说我有一个数据帧

df <- data.frame(A=c(1,3,1,4,2,2,5,3,1,7,8),b=c(10:20),c=c(20:30)) 

，我想提取所有连续的行，其在列的总和为4

我可以rollapply从包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)) 

这是可能的，如果是这样，如何？

Answer 1

保存您的滚动总和的东西的结果，然后构建包含在该等款项== 4是基于(row, row+1)

rs2 <- with(df,rollapply(A, 2, sum, fill = NA)) 
s4 <- sort(unique(c(s4 <- which(rs2==4),s4+1))) 
subset the appropriate rows 
df[s4,] 
# A b c 
# 1 1 10 20 
# 2 3 11 21 
# 3 1 12 22 
# 5 2 14 24 
# 6 2 15 25 
# 8 3 17 27 
# 9 1 18 28