dcast和彙總到函數中 - 參數丟失

Question

我試圖將以下代碼正常工作轉換爲函數。

result_check <- data %>% 
    group_by(column, target) %>% 
    summarise(Unique_Elements = n()) %>% 
    dcast(column_code ~ target, value.var="Unique_Elements") 

例如，如果我們採取以下數據集：

column1 target 
    AA  YES 
    BB  NO 
    BC  NO 
    AA  YES 

的代碼會做總數據集按目標變量，就像這樣：

column1 YES NO 
    AA  2 0 
    BB  0 1 
    BC  0 1 

這是我如何構建功能：

aggregate_per_group <- function(column) { 
data %>% 
    group_by(column, target) %>% 
    summarise(Unique_Elements = n()) %>% 
    dcast(column ~ target, value.var="Unique_Elements")} 

但我得到 - 錯誤：未知變量按分組：列。我知道它的一個基本問題，但是爲什麼我放棄了group_by中的論點的任何線索？

我曾嘗試使用以下imlementation「group_by_」以及「require（」dplyr「）」，但它們似乎無關。

Answer 1

我們可以使用table從base R

table(data) 

---

如果我們有興趣在一個函數，然後使用與spread沿group_by_從tidyr

aggregate_per_group <- function(column) { 
    data %>% 
     group_by_(column, "target") %>% 
     summarise(Unique_Elements = n()) %>% 
     spread(target, Unique_Elements, fill = 0) 
} 

library(dplyr) 
library(tidyr) 
aggregate_per_group("column1") 
# column1 NO YES 
# * <chr> <dbl> <dbl> 
#1  AA  0  2 
#2  BB  1  0 
#3  BC  1  0 

如果我們需要的dcast從reshape2

library(reshape2) 
aggregate_per_group <- function(column) { 
    data %>% 
     group_by_(column, "target") %>% 
     summarise(Unique_Elements = n()) %>% 
     dcast(data = ., paste(column, '~ target'), 
       value.var="Unique_Elements", fill = 0) 
} 

aggregate_per_group("column1") 
# column1 NO YES 
#1  AA 0 2 
#2  BB 1 0 
#3  BC 1 0