Как обнаружить последние n-ые рабочие дни месяца, используя R

Question

Я пытаюсь создать новую переменную в моей таблице данных на основе столбца даты, используя приведенное ниже правило.

Правило: если «дата» является одной из последних 3-х рабочих дней (может быть в любой день с понедельника по пятницу) месяца, тогда укажите ее как «1»; иначе введите его как «0».

Ниже приведен пример того, как мне нужно видеть результат. Третий столбец содержит объяснение для кодирования.

Заранее спасибо!

Answer 1

Как это:

library(dplyr) 

df <- data.frame(date=seq(as.Date("2017/01/01"), as.Date("2017/12/31"), "days")) 
df$day <- weekdays(x = df$date) 
df$month <- months(x = df$date) 

true_flags <- df %>% 
    arrange(date) %>% 
    filter(day!='Sunday' & day!='Saturday') %>% 
    group_by(month) %>% 
    top_n(wt = date,n = 3) %>% 
    ungroup() %>% 
    transmute(date=date,flag=T) 

df %>% left_join(y=true_flags,by = 'date')