R：将时间序列拆分为自定义季节

Question

我有一个时间序列数据框：

[https://www.dropbox.com/s/elaxfuvqyip1eq8/SampleDF.csv?dl=0][1]

我的目的是根据以下条件将该数据框划分为不同的季节：

1. 冬季：12月1月2月
2. 季风前：3月4月5月6月15日（即直到6月15日）
3. 季风：15Jun Jul 8 月 9 月（即从 6 月 15 日开始）
4. 季风后：10 月 11 月。

我尝试使用 openair 包函数

selectByDate()

但还没有运气。 作为 R 新手。 任何帮助将不胜感激。

谢谢！

Answer 1

请参阅 lubridate 包，它使日期/时间的处理变得更加容易。

对于你的问题，我想你可以使用 sapply:

df["season"] = sapply(df["date"], assign_season)

where, assign_season:

assign_season <- function(date){
    # return a season based on date 

}

一旦你有季节，那么你可以轻松地划分数据帧：

winter = subset(df, season == "winter")
# and so on

抱歉，我现在必须赶时间，但如果其他人还没有回答，可以回来完成这个。

编辑：

所以，R 确实有一个内置函数 cut，它可以处理日期并根据日期范围分割向量。

对于您的数据，我这样做了：

library(lubridate)
library(dplyr)

df = read.csv('SampleDF.csv')

## reformat date into POSIXct
df <- df %>%
         mutate(date_reformat = as.POSIXct(date(mdy_hm(date))))

## define breaks & labels
breaks = c("2014-12-01", "2015-03-01", "2015-06-15", "2015-10-01", "2015-12-01", "2016-03-01", "2016-06-15", "2016-10-01", "2016-12-01", "2017-03-01")
labels = c("winter", "pre_monsoon", "monsoon", "post_monsoon", "winter", "pre_monsoon", "monsoon", "post_monsoon", "winter")
df["season"] = cut(df$date_reformat, breaks=as.POSIXct(breaks), labels=labels)

splits = list()

for (s in c("winter", "pre_monsoon", "monsoon", "post_monsoon")){
  splits[[s]] = subset(df, season == s)[c("date", "value")]
}

现在，拆分列表应该包含您需要的所有数据