R：基於dyplr中的多個條件進行匯總

Question

我正在嘗試總結一個數據框以創建兩個總結：

1. 統計訂單數量只出現QUOT或QUOG
2. 計算QUOT或QUOG出現的訂單數量以及出現其他Holds

下面是代碼的開頭：

library(dplyr)


dat <- data.frame(Order = c(123,123,123,145,145,189,210,210,123,123,164), 
                  Location = c("Chicago","Chicago","Chicago","Chicago","Chicago","Chicago","Chicago","Chicago","Charlotte","Charlotte","Charlotte"),
                  Hold = c("QUOT","ENGR","VEND","QUOG","ENGR","QUOT","ENGR","VEND","QUOT","CUST","QUOT")
)


test <- dat %>%
  group_by(Order, Location) %>%

  .....

我一直在試圖找出特定訂單是否只有QUOT或QUOG ，然后它是否有QUOT或QUOG以及其他。

預期輸出：

   Location Only Multiple
1   Chicago    1        2
2 Charlotte    1        1

所以對於預期的輸出：

• 訂單 123，芝加哥：其中包含QUOT和另一個保留（ ENGR和VEND ），因此這將被視為芝加哥的倍數
• 芝加哥 145 號訂單：其中包含QUOG和另一個持有 ( ENGR )，因此這將被視為芝加哥的倍數
• 芝加哥 189 號訂單：其中有QUOT且沒有其他保留，因此這將被視為僅適用於芝加哥
• 訂購210，芝加哥：既沒有QUOT或QUOG所以這個順序被排除在計數
• 訂單 123，夏洛特：其中包含QUOT和另一個保留 ( CUST )，因此這將被視為夏洛特的倍數
• 夏洛特 164 號訂單：其中有QUOT且沒有其他保留，因此這將被視為僅適用於夏洛特

Answer 1

我認為這應該有效——你可能想用其他一些訂單來測試這個：

library(dplyr)
library(tidyr)

dat <- data.frame(
  Order = c(123,123,123,145,145,189,210,210,123,123,164), 
  Location = c("Chicago","Chicago","Chicago","Chicago","Chicago","Chicago","Chicago","Chicago","Charlotte","Charlotte","Charlotte"),
  Hold = c("QUOT","ENGR","VEND","QUOG","ENGR","QUOT","ENGR","VEND","QUOT","CUST","QUOT")
)

dat %>% 
    group_by(Order, Location) %>% 
    mutate(
        quot_or_quog = Hold %in% c("QUOT", "QUOG"),
        distinct_quot_or_quog = n_distinct(quot_or_quog)
    ) %>% 
    # Remove those that do not have "QUOT" or "QUOG"
    filter(quot_or_quog) %>% 
    mutate(
        label = if_else(distinct_quot_or_quog == 1, "Only", "Multiple")
    ) %>% 
    group_by(label, add = TRUE) %>%
    summarise(num_label = n_distinct(label)) %>% 
    group_by(Location, label) %>%
    count(num_label) %>% 
    pivot_wider(
        names_from = label,
        values_from = n
    ) %>% 
    select(-num_label)
#> # A tibble: 2 x 3
#> # Groups:   Location [2]
#>   Location  Multiple  Only
#>   <fct>        <int> <int>
#> 1 Charlotte        1     1
#> 2 Chicago          2     1

^{由reprex 包(v0.3.0) 於 2020 年 2 月 24 日創建}

Answer 2

這是使用dplyr和tidyr另一個解決方案。 這次首先進行旋轉，然后進行過濾和匯總以得出您的解決方案。

library(dplyr)
library(tidyr)

dat.summary <- dat %>%
  mutate(hold_count = 1) %>% 
  pivot_wider(names_from = Hold, values_from = hold_count) %>% 
  mutate(only = if_else((QUOT == 1 | QUOG == 1) & is.na(ENGR) & is.na(VEND) & is.na(CUST), 1, 0),
         multiple = if_else((QUOT == 1 | QUOG == 1) & (ENGR == 1 | VEND == 1 | CUST ==1), 1, 0)) %>% 
  group_by(Location) %>% 
  summarise(only = sum(only, na.rm = T), multiple = sum(multiple, na.rm = T))

dat.summary

給你：

# A tibble: 2 x 3
  Location   only multiple
  <fct>     <dbl>    <dbl>
1 Charlotte     1        1
2 Chicago       1        2

數據

dat <- data.frame(
  Order = c(123,123,123,145,145,189,210,210,123,123,164), 
  Location = c("Chicago","Chicago","Chicago","Chicago","Chicago","Chicago","Chicago","Chicago","Charlotte","Charlotte","Charlotte"),
  Hold = c("QUOT","ENGR","VEND","QUOG","ENGR","QUOT","ENGR","VEND","QUOT","CUST","QUOT")
)