在样本上data.frame:
df <- data.frame(V1 = c(1, 3, 4, NA, NA, 6, 9, NA, 10),
V2 = seq(1:9))
Run Code Online (Sandbox Code Playgroud)
group_by()以这种方式使用filter()会产生以下结果:
df %>%
group_by(miss = !is.na(V1)) %>%
mutate(lag = V1 - lag(V1))
# A tibble: 9 x 4
# Groups: miss [2]
V1 V2 miss lag
<dbl> <dbl> <lgl> <dbl>
1 1. 1. TRUE NA
2 3. 2. TRUE 2.
3 4. 3. TRUE 1.
4 NA 4. FALSE NA
5 NA 5. FALSE NA
6 6. 6. TRUE 2.
7 9. 7. TRUE 3.
8 NA 8. FALSE NA
9 10. 9. TRUE 1.
Run Code Online (Sandbox Code Playgroud)
这正是我想要的,但我很好奇它是否也打算用group_by()这种方式.
为了对这个有趣的问题有一个记录的答案 - 正如 @Joran 所指出的,评论中group_by可以与表达式一起使用。正如 @avid_useR 指出的,它并不真正类似于filter,而是更像case_when,因为没有删除任何行。