DoY праздники: китайский Новый год, Песах, Синко де Майо

Question

Есть ли простой способ получить день года для вышеуказанных праздников? На Пасху я бы сделал:

dayOfYear(holiday(1992:2011, "Easter"))

но chron & timeDate не предлагайте много вне христианских / западных праздников. Мне нужен DoY через 20 лет (1992-2011) на эти 3 отпуска. Прямо сейчас я смотрю на необходимость искать и вводить дату каждого праздника для каждого из 20 лет. Должен быть лучший способ!

Answer 1

Вот мое предложение. По крайней мере, вы можете вычеркнуть даты этих праздников из Интернета. Я создал два кадра данных здесь. Один на китайский Новый год, другой на Синко де Майо. Если у вас есть такие данные, вы можете обрабатывать их так, как вам удобно. Я оставляю некоторую работу для вас.

library(XML)

### Scrape Chinese new year

url = "http://www.chinesenewyears.info/chinese-new-year-calendar.php"

table = readHTMLTable(url)
#print(table)

chinese <- as.data.frame(table)
names(chinese) <- c("Year", "CNYD", "Animal Sign")


### Cinco de mayo

url2 <- "http://www.timeanddate.com/holidays/us/cinco-de-mayo"

table2 = readHTMLTable(url2)
table3 = table2[2]
print(table3)

cinco <- as.data.frame(table3)