一年后,我用上了 data.table
,写在这里给自己当做笔记,这是一个添加旬并且根据平闰年修改旬的日天数的代码:
time_seq <- qxun_sby[, c(1:3, 5)] %>%
.[, days := rep(c(10, 10, 11, 10, 10, 10, 10, 10, 11, 10, 10, 11, 10, 10, 10, 10, 10, 11,
10, 10, 10, 10, 10, 11, 10, 10, 11, 10, 10, 8, 10, 10, 11, 10, 10, 10),
times = iter / 36)] %>%
.[((y %% 100 == 0 & y %% 400 == 0) | (y %% 4 == 0 & y %% 100 != 0)) & t == 30, days := 9]