Как создать макеты для всех праздников (формат даты =% Y / "% M /% d") для всех лет?

Question

Я пытаюсь создать фиктивную переменную Ht, которая принимает значение 1, если эта дата (format = "%Y/%M/%D") является национальным праздником.Мой набор данных идет от 1979-07-03 до 2018-12-31, поэтому мне нужно, например, сгенерировать пустышку, которая = 1 1 января, 31 декабря ... и т. Д. Для всех лет.(Одни и те же даты каждый год в течение всех лет).

Я не могу найти коды, чтобы получить этот манекен.Может кто-нибудь помочь, пожалуйста?

data$Ht <- ifelse(data$Date > as.Date("12/01/2007", format = "%M/%d/%Y") &
                     dat$date < as.Date("06/01/2009", format = "%M/%d/%Y"), 0, 1)

Answer 1

Вы можете разработать последовательность дат и последовательность дат для праздников.

date_seq = seq(from = as.Date('1979-07-03'), to = as.Date('2018-12-31'), by= '1 day')
new_years_day = seq(from = as.Date('1980-01-01'), to = as.Date('2018-01-01'), by = '1 year' )
christmas_day = seq(from = as.Date('1980-12-25'), to = as.Date('2018-12-25'), by = '1 year' )

dummy = as.integer(date_seq %in% new_years_day | date_seq %in% christmas_day)