如何使用R和dplyr中连续的元素执行group_by

Question

假设我们有这个小标题：

 group item
 x     1
 x     2
 x     2
 y     3
 z     2
 x     2
 x     2
 z     1

我想按组执行group_by。 但是，我只希望按相邻的元素分组。 例如，在我的情况下，我将有三个“ x”组，将“ item”元素相加。 结果将是这样的：

group item
x 5
y 3
z 2
x 4
z 1

我知道如何使用“ for”循环解决此问题。 但是，这并不快，听起来也不是那么简单。 我宁愿使用带有简单逻辑的dplyr或tidyverse函数。

这个问题没有重复。 我知道在SO中已经存在关于rle的问题，但是我的问题比这更笼统。 我要求一般解决方案。

Answer 1

如果您只想使用基本R + tidyverse，则此代码可精确复制您想要的结果

mydf <- tibble(group = c("x", "x", "x", "y", "z", "x", "x", "z"), 
                   item = c(1, 2, 2, 3, 2, 2, 2, 1))

mydf

# A tibble: 8 × 2
  group  item
  <chr> <dbl>
1     x     1
2     x     2
3     x     2
4     y     3
5     z     2
6     x     2
7     x     2
8     z     1

runs <- rle(mydf$group)

mydf %>% 
  mutate(run_id = rep(seq_along(runs$lengths), runs$lengths)) %>% 
  group_by(group, run_id) %>% 
  summarise(item = sum(item)) %>% 
  arrange(run_id) %>% 
  select(-run_id) 

Source: local data frame [5 x 2]
Groups: group [3]

  group  item
  <chr> <dbl>
1     x     5
2     y     3
3     z     2
4     x     4
5     z     1

Answer 2

你可以建立群组标识与rle ，但更容易的途径是只使用data.table::rleid ，这会为你：

library(dplyr)

df %>% 
    group_by(group, 
             group_run = data.table::rleid(group)) %>% 
    summarise_all(sum)
#> # A tibble: 5 x 3
#> # Groups:   group [?]
#>    group group_run  item
#>   <fctr>     <int> <int>
#> 1      x         1     5
#> 2      x         4     4
#> 3      y         2     3
#> 4      z         3     2
#> 5      z         5     1