У меня есть фрейм данных (с креативным названием data1), который содержит ежедневные данные.Мне нужна колонка праздников, если этот ряд (день) - выходной.Дата столбца форматируется как дата, а столбец и ГОД - это фактор;
> str(data1$date)
Date[1:3645], format: "2007-09-06" "2007-09-07"
Я загрузил пакет timeDate и надеялся его использовать.В качестве примера я попробовал следующее:
data1$holiday[data1$date == USDecorationMemorialDay(year = data1$YEAR)] <- "memday"
Однако я получаю это сообщение об ошибке;
Error in `==.default`(data1$date, USDecorationMemorialDay(year = data1$YEAR)) :
comparison (1) is possible only for atomic and list types
In addition: Warning messages:
1: In `[<-.factor`(`*tmp*`, data1$date == USDecorationMemorialDay(year = data1$YEAR), :
invalid factor level, NA generated
2: In Ops.factor(year, 10000) : ‘*’ not meaningful for factors
Любая помощь приветствуется, спасибо.
edit:
Вот dput моего фрейма данных;
> dput(droplevels(head(data1[c("date", "holiday", "YEAR")])))
structure(list(date = structure(c(13762, 13763, 13764, 13765,
13766, 13767), class = "Date"), holiday = c("NO", "NO", "NO",
"NO", "NO", "NO"), YEAR = c(1, 1, 1, 1, 1, 1)), .Names = c("date",
"holiday", "YEAR"), row.names = 6:11, class = "data.frame")