如何使用在组中查找某个值的首次出现dplyr
。
以下代码给出了预期的结果,但是我想知道是否有更短的方法来做到这一点。
另外,我担心group_by
ormutate
或其他函数可能会对行进行隐式重排,不知道这是否会成为问题?
mtcars %>% select( cyl, carb) %>% group_by( cyl ) %>%
mutate( "occurence_of_4" = carb == 4 ) %>%
dplyr::arrange( cyl ) %>%
group_by( cyl, occurence_of_4) %>%
mutate( "count" = 1:n(),
"first_4_in_cyl_group" = ifelse( occurence_of_4==TRUE & count==1, TRUE, FALSE))
变量first_4_in_cyl_groupTRUE
用于每个汽缸组中首次出现的“ 4”,FALSE
否则:
Source: local data frame [32 x 5]
Groups: cyl, occurence_of_4
cyl carb occurence_of_4 count first_4_in_cyl_group
1 4 1 FALSE 1 FALSE
2 4 2 FALSE 2 FALSE
3 4 2 FALSE 3 FALSE
4 4 1 FALSE 4 FALSE
5 4 2 FALSE 5 FALSE
6 4 1 FALSE 6 FALSE
7 4 1 FALSE 7 FALSE
8 4 1 FALSE 8 FALSE
9 4 2 FALSE 9 FALSE
10 4 2 FALSE 10 FALSE
11 4 2 FALSE 11 FALSE
12 6 4 TRUE 1 TRUE
13 6 4 TRUE 2 FALSE
14 6 1 FALSE 1 FALSE
15 6 1 FALSE 2 FALSE
16 6 4 TRUE 3 FALSE
17 6 4 TRUE 4 FALSE
18 6 6 FALSE 3 FALSE
19 8 2 FALSE 1 FALSE
20 8 4 TRUE 1 TRUE
21 8 3 FALSE 2 FALSE
22 8 3 FALSE 3 FALSE
23 8 3 FALSE 4 FALSE
24 8 4 TRUE 2 FALSE
25 8 4 TRUE 3 FALSE
26 8 4 TRUE 4 FALSE
27 8 2 FALSE 5 FALSE
28 8 2 FALSE 6 FALSE
29 8 4 TRUE 5 FALSE
30 8 2 FALSE 7 FALSE
31 8 4 TRUE 6 FALSE
32 8 8 FALSE 8 FALSE
进行了一些修改:
mutate
通过在控制台中创建“ occurence_of_4”变量来删除第一步group_by
ifelse
不需要,因为输出将为“ TRUE / FALSE”
library(dplyr)
mtcars %>%
select(cyl, carb) %>%
group_by(cyl, occurence_of_4= carb==4) %>%
arrange(cyl) %>%
mutate(count= row_number(),
first_4_in_cyl_group = occurence_of_4 & count==1)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句