创建最低日期和最大基于季度，月份，年初至今的日期列

由奥巴喵发布于 2020-05-09 06:53:32

我有一个如下数据框：

Frequency  Period   Period No.  Year
Monthly    1        1           2018
Quarterly  Q1       3           2018
YTD        YTD-Feb  2           2019

基于这些列，我想添加一个分钟。日期和最大日期列，以便数据框如下所示：

Frequency  Period   Period No.  Year  Min. Date  Max. Date
Monthly    1        1           2018  1/1/2018   1/31/2018
Quarterly  Q1       3           2018  1/1/2018   3/31/2018
YTD        YTD-Feb  2           2019  1/1/2019   2/28/2019

过路人

2020-05-09 06:53:32

If we need the max, min based on the 'PeriodNo.' column, create a sequence of Dates by month from the 'Year' column, then extract the min and max`

library(dplyr)
library(purrr)
library(lubridate)
library(stringr)
df1 %>% 
   mutate(date = map2(as.Date(str_c(Year, '-01-01')), 
   PeriodNo., ~ seq(.x, length.out = .y, by = '1 month')), 
   Min.Date =   do.call(c, map(date, min)), 
   Max.Date = do.call(c, map(date, ~ceiling_date(max(.x), 'month')-1))) %>% 
   select(-date)
#  Frequency  Period PeriodNo. Year   Min.Date   Max.Date
#1   Monthly       1         1 2018 2018-01-01 2018-01-31
#2 Quarterly      Q1         3 2018 2018-01-01 2018-03-31
#3       YTD YTD-Feb         2 2019 2019-01-01 2019-02-28

数据

df1 <- structure(list(Frequency = c("Monthly", "Quarterly", "YTD"), 
    Period = c("1", "Q1", "YTD-Feb"), PeriodNo. = c(1L, 3L, 2L
    ), Year = c(2018L, 2018L, 2019L)), class = "data.frame",
    row.names = c(NA, 
-3L))

奥巴喵

这家伙很懒，什么都没留下

积分
0
话题
0
评论
3123
注册排名
1977