我怎麼翻譯這個SQL來dplyr

Question

我想要做的這個SQL代碼相當於：

SELECT Cat_1, Cat_2, Cat_3, Sum(cost), Sum(quantity) FROM tbl_of_data 
GROUP BY Cat_1, Cat_2, Cat_3; 

我該怎麼做，使用R中的dplyr包？

我想：

library(dplyr) 
tbl_of_data %>% 
    group_by(Cat_1, Cat_2, Cat_3) %>% 
    mutate(cost, quantity) 

但我結束了相同的行數。

Answer 1

我們需要或者summarise或summarise_each得到的sum一個單獨的行，這將等同於sql輸出組的每個組合。

tbl_of_data %>% 
     group_by(Cat_1, Cat_2, Cat_3) %>% 
     summarise_each(funs(sum), cost, quantity) 

或者

tbl_of_data %>% 
     group_by(Cat_1, Cat_2, Cat_3) %>% 
     summarise(cost=sum(cost), quantity=sum(quantity)) 

mutate創建一個新列。另外，在OP的mutate代碼中，它沒有包含sum。如果打算創建新的sum列，則可以使用mutate或mutate_each，即...%>% mutate(SumCost= sum(cost), SumQuantity = sum(quantity))或...%>% mutate_each(funs(sum), cost, quantity)