Group_by 并汇总并保留初始顺序而不排列 R

Question

我需要在group_by和summarise之后保留行顺序。

这是初始数据集：

movmnt_id <- c("101", "101", "351", "601","601","351")
plant <- c("F5P", "F5D", "F5P", "F5D","F5D", "RUP")
loc <- c("CB00", "CB00", "CB00", "CB00","CB00","MOS1")
qty <- c(100, 100,100,10,90,88)
date <- c("2018-01-05","2018-01-05","2018-01-05","2018-01-11","2018-01-11","2018-01-22" )
time <- c("10:38:38","10:47:17", "10:47:09","17:20:31","17:20:24","12:00:54" )


df <-  data.frame(movmnt_id,  plant, loc, qty,date, time)
df

  movmnt_id  plant  loc   qty       date     time
1       101   F5P  CB00   100   2018-01-05   10:38:38
2       101   F5D  CB00   100   2018-01-05   10:47:17
3       351   F5P  CB00   100   2018-01-05   10:47:09
4       601   F5D  CB00    10   2018-01-11   17:20:31
5       601   F5D  CB00    90   2018-01-11   17:20:24
6       351   RUP  MOS1    88   2018-01-22   12:00:54

我需要先根据具体条件下单（这里的数据集和条件都大大简化了）。 我这样做：

df2 <- df %>%
  
  dplyr::group_by( movmnt_id, plant, loc,date,time) %>%
  dplyr::summarise(total_qty = sum(qty)) %>%
  dplyr::arrange( date,time) %>%
  dplyr::ungroup()

df2

  movmnt_id plant loc   date       time     total_qty
  <fct>     <fct> <fct> <fct>      <fct>        <dbl>
1 101       F5P   CB00  2018-01-05 10:38:38       100
2 351       F5P   CB00  2018-01-05 10:47:09       100
3 101       F5D   CB00  2018-01-05 10:47:17       100
4 601       F5D   CB00  2018-01-11 17:20:24        90
5 601       F5D   CB00  2018-01-11 17:20:31        10
6 351       RUP   MOS1  2018-01-22 12:00:54        88

这个结果是可以的。 然后我需要删除timestamp并按数量summarise 。
我的最后一次尝试看起来像这样：

df3  <- df2 %>%
  dplyr::group_by( movmnt_id, plant, loc,date) %>%
  dplyr::summarise(total_qty = sum(total_qty)) %>%
  dplyr::ungroup()

df3

  movmnt_id plant loc   date       total_qty
  <fct>     <fct> <fct> <fct>          <dbl>
1 101       F5D   CB00  2018-01-05       100
2 101       F5P   CB00  2018-01-05       100
3 351       F5P   CB00  2018-01-05       100
4 351       RUP   MOS1  2018-01-22        88
5 601       F5D   CB00  2018-01-11       100

这不行 - 我失去了之前的订单。

我需要的是movmnt_id = 601的一行，并且与 df2 中的顺序相同，日期为 2018-01-05 的movmnt_id = 351应该在同一日期的移动 101 之间：

  movmnt_id plant loc   date       time     total_qty
  <fct>     <fct> <fct> <fct>      <fct>        <dbl>
1 101       F5P   CB00  2018-01-05 10:38:38       100
2 351       F5P   CB00  2018-01-05 10:47:09       100
3 101       F5D   CB00  2018-01-05 10:47:17       100
4 601       F5D   CB00  2018-01-11 17:20:24       100
5 351       RUP   MOS1  2018-01-22 12:00:54        88

基本上，如果分组条件中的所有值都相同，除了 qty - 这些行可以相加，但如果不是 - 必须保持顺序。

我该怎么做？

Answer 1

要保持与df2相同的顺序，您可以创建唯一键并match 。

cols <- c('movmnt_id', 'plant', 'loc', 'date')
df3 <- df3[order(match(do.call(paste, df3[cols]), do.call(paste, df2[cols]))), ]
df3

# movmnt_id plant loc   date       total_qty
#  <chr>     <chr> <chr> <chr>          <dbl>
#1 101       F5P   CB00  2018-01-05       100
#2 351       F5P   CB00  2018-01-05       100
#3 101       F5D   CB00  2018-01-05       100
#4 601       F5D   CB00  2018-01-11       100
#5 351       RUP   MOS1  2018-01-22        88

Answer 2

在这里，我按时间顺序为 id / plant / loc 组合创建了一个有序因子，这里称为“key”。 然后当我们通过它聚合时（使用 count 代替group_by %>% summarize的快捷方式），并且 count 使用它来订购 output。

library(forcats)  # alternatively, load with library(tidyverse)
df %>%
  arrange(date, time) %>%
  mutate(key = paste(movmnt_id, plant, loc) %>% as_factor %>% fct_inorder()) %>%
  count(key, date, movmnt_id, plant, loc, wt = qty, name = "total_qty")

           key       date movmnt_id plant  loc total_qty
1 101 F5P CB00 2018-01-05       101   F5P CB00       100
2 351 F5P CB00 2018-01-05       351   F5P CB00       100
3 101 F5D CB00 2018-01-05       101   F5D CB00       100
4 601 F5D CB00 2018-01-11       601   F5D CB00       100
5 351 RUP MOS1 2018-01-22       351   RUP MOS1        88

Answer 3

隐含地，您希望维护由 date 变量给出的顺序。 在group_by arguments 中首先列出date ，以确保summarise命令使用date作为主键。

df %>%
  group_by(date, movmnt_id, plant, loc) %>%
  summarise(total_qty = sum(qty)) %>%
  ungroup()
#> `summarise()` has grouped output by 'date', 'movmnt_id', 'plant'. You can override using the `.groups` argument.
#> # A tibble: 5 x 5
#>   date       movmnt_id plant loc   total_qty
#>   <chr>      <chr>     <chr> <chr>     <dbl>
#> 1 2018-01-05 101       F5D   CB00        100
#> 2 2018-01-05 101       F5P   CB00        100
#> 3 2018-01-05 351       F5P   CB00        100
#> 4 2018-01-11 601       F5D   CB00        100
#> 5 2018-01-22 351       RUP   MOS1         88