Обнаружить британские праздники в данных даты

Question

Я проснулся в R, у меня есть данные за 20 лет, и я хотел бы проверить, является ли каждая дата подачи выходным днем ​​в Великобритании, создавая категориальную переменную (TRUE / FALSE).

Я использовал этот код:

library(timeDate)
c <- timeDate(data$Date)    
b <- isHoliday(c, holidays = GBBankHoliday(), wday = 1:6)

или

b <- isHoliday(c, holidays = HolidayLONDON(), wday = 1:6)

, но обнаруживает только воскресенья (не Рождество или другие праздники). У кого-нибудь есть идеи, что делать?

Answer 1

Вы можете попробовать создать в пакете функции-оболочки для различных праздников, извлечь даты праздников и дать перекрестную ссылку на эти даты для анализа:

library(timeDate)
c <- timeDate(data$Date)    
b <- isHoliday(c, holidays = GBBankHoliday(), wday = 1:6)

years <- list(Year = c(2019,2018,2017,2016))

year_fun <- function(year){timeDate::.easter(year)}

purrr::map(years, year_fun)

$Year
GMT
[1] [2019-04-21] [2018-04-01] [2017-04-16] [2016-03-27]