Question

我有这样的下表。

  Invoice Date    Payable Amount 
 -------------------------------- 
  14 Sep 2015     114            
  23 Dec 2015     5153           
  28 Dec 2015     1145           
  28 Dec 2015     5500           
  28 Dec 2015     4500           
  29 Dec 2015     8359           
  30 Dec 2015     5954           
  30 Dec 2015     3017           
  30 Dec 2015     4660           
  31 Dec 2015     10500          
  31 Dec 2015     10500

所以我用下面的代码来重新格式化它，

下面的代码我使用strptime将文本列转换为日期列。

 data$`Invoice Date` = as.POSIXct(strptime(data$`Invoice Date`,format = "%d %b %Y"))

但是我只需要根据日期汇总总和（应付金额）。即我在单一日期有3个金额（在这种情况下，12月28日有3个应付金额），我需要将这三个金额总计为一。

所以我尝试了以下代码，

data %>% group_by(`Invoice Date`=cut(`Invoice Date`,breaks = "day")) %>%
summarize(`Payable Amount` = sum(`Payable Amount`))

谁不工作，谁能帮忙。

我需要的输出仅是1个日期的sum（amount）。

谢谢

Answer 1

以下代码有效，

data %>% group_by(`Invoice Date`) %>%
summarize(`Payable Amount` = sum(`Payable Amount`))

根据表格产生每日收入

1 个答案: