使用日期序列，将一个数字除以一个季度的天数

Question

一个数据框和一些变量：

library(tidyverse)
library(lubridate)

budget_2020_q4 <- 1000000
budget_2021_q1 <- 2000000
budget_2021_q2 <- 3000000
budget_2021_q3 <- 3000000
budget_2021_q4 <- 2000000


calendar <- data.frame(
  cohort = seq('2020-10-01' %>% ymd, '2021-12-31' %>% ymd, by = '1 days')) %>% 
  mutate(Quarter = quarter(cohort, with_year = T))

我现在有一个显示日期和这些日期所在季度的数据框：

calendar %>% head
      cohort Quarter
1 2020-10-01  2020.4
2 2020-10-02  2020.4
3 2020-10-03  2020.4
4 2020-10-04  2020.4
5 2020-10-05  2020.4
6 2020-10-06  2020.4

我也知道每个季度的频率：

calendar$Quarter %>% table
.
2020.4 2021.1 2021.2 2021.3 2021.4 
    92     90     91     92     92

我想修改一个新列 'daily_budget'，该列采用季度预算并将其除以该季度的日期频率。

例如，2020 年第 4 季度的预算为 1000000，第 4 季度有 92 天，因此每日预算为 1000000/92 = 10869.57

在 mutate(Quarter = quarter(cohort, with_year = T)) 之后，我能否以某种方式将此计算集成到我的 dplyr 操作管道中？

Answer 1

首先，让我们将预算放入数据框中：

budgets <- c(budget_2020_q4 = 1000000,
  budget_2021_q1 = 2000000,
  budget_2021_q2 = 3000000,
  budget_2021_q3 = 3000000,
  budget_2021_q4 = 2000000) %>% 
  enframe(name = "Quarter", value = "budget") %>% 
  mutate(Quarter = as.numeric(str_replace(str_remove(Quarter, "budget_"), "_q", ".")))

然后，这是 counting（tidyverse 的替代 table）每个 Quarter 的行数的问题，加入预算并将两者相除：

calendar %>% 
  add_count(Quarter) %>% 
  left_join(budgets, by = "Quarter") %>% 
  mutate(budget_by_day = budget / n)

给出

        cohort Quarter  n budget budget_by_day
1   2020-10-01  2020.4 92  1e+06      10869.57
2   2020-10-02  2020.4 92  1e+06      10869.57
3   2020-10-03  2020.4 92  1e+06      10869.57
4   2020-10-04  2020.4 92  1e+06      10869.57
5   2020-10-05  2020.4 92  1e+06      10869.57
6   2020-10-06  2020.4 92  1e+06      10869.57
7   2020-10-07  2020.4 92  1e+06      10869.57
8   2020-10-08  2020.4 92  1e+06      10869.57
9   2020-10-09  2020.4 92  1e+06      10869.57
10  2020-10-10  2020.4 92  1e+06      10869.57
...

使用日期序列，将一个数字除以一个季度的天数

With a date sequence, divide a number over the count of days in a quarter

r

lubridate