Генерировать ежедневный доход на основе таблицы

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 суммы на одну дату (в данном случае 28 декабря 3 суммы к оплате) мне нужно сложить все три как одно.

Итак, я попытался с кодом ниже,

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

Что не работает, может кто-нибудь помочь.

Вывод, который мне нужен, это сумма (сумма) только на 1 дату.

Спасибо

Answer 1

работает следующий код,

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