如何找到R的回报率。我按月将数据分组

Question

我正在尝试查找按月在R中分组的退货订单的比率。即使在分子中应用了条件，我的比率也比正确比率高出一个。

我尝试按月分组，然后取具有特定状态的订单总数与该特定月份的订单总数之比

casper_orders <- casper_orders %>%
  mutate(dateordered=as.Date(casper_orders$dateordered, "%m/%d/%y"))%>%
  mutate(datereturned=as.Date(casper_orders$datereturned, "%m/%d/%y"))%>%
  group_by(month=floor_date(dateordered, "month")) %>%
  summarize(returnrate=sum(orders,orderstatus %in% c('returned'))/sum(orders))

预期结果应为 月回报率 十二月0.04810127

实际结果是 月回报率 十月1.04810127