r - 用户应该能够指定产品（黄金）和时间段（每年或每月），并且该功能应该自动接受这些输入

Question

func_cust<-function(res) {
   res <-
      cust_repay%>%
      group_by(Customer,
               Year=lubridate::year(Month),
               Month=lubridate::month(Month),
               Product) %>%
      summarise(tot_amt = sum(Amount))%>%
      arrange(desc(tot_amt))%>%
      filter(row_number()<= 10)
   print(res)
}

View(func_cust("Gold"))

标签： r