如何合并每月汇总并在某个日期拆分数据集

Question

我正在尝试创建两个不同时间集的降水值的月平均值，但在进行聚合之前我无法将数据分成两部分。

我有一个从 2006 年 1 月 1 日到 2099 年 12 月 31 日的每日降水数据集，我想在（2015 年 1 月 1 日到 2054 年 1 月 12 日）的时间段内每月汇总和（ 01-01-2055 至 31-12-2099）。

我已经使用聚合函数来创建这样的每月平均值。但是现在我有整个数据集（2006-2100）的每月平均值，我想要两个列表（一个用于 01-01-2015 到 31-12-2054，一个用于 01-01-2055 到 31- 12-2099)。我想我需要制作一个子集或拆分数据，但我找不到如何将它与聚合函数结合起来。非常感谢！

months = Alentejo_RCP4.5_Average$Month
Alentejo_RCP4.5_Average.myma = aggregate(x = Alentejo_RCP4.5_Average, 
                            by = list(months), FUN = mean)

我也试过这个，但它只需要日期而不是日期的附加值。

df <- data.frame(date=as.Date("2015-01-01")+1:365, x=1:365)
list <- split(df,df$date<as.Date("2055-01-01"))

zz <- " Year Month Day Date Average_P
2006     1   1 2006-01-01   6.5
2007     1   2 2007-01-02   2.8
2055     3   3 2055-03-03   3.5
2058     3   4 2058-03-04   5.1
2060     5   5 2060-05-05   3.2"

Data <- read.table(text=zz, header = TRUE)

Answer 1

您可以创建一个新列来区分两个组，而不是拆分数据集，并获取每个组和每个月的mean。

Data %>%
  mutate(Date = as.Date(Date), 
         group =  ifelse(Date < as.Date("2055-01-01"), 
                        'below_2055', 'above_2055'), 
         month = format(Date, '%m-%Y'))  %>%
  group_by(group, Date) %>%
  summarise(Average_P = mean(Average_P)) -> result

或者在基础 R 中：

Data$Date <- as.Date(Data$Date)
aggregate(Average_P~group + month, 
          transform(Data, 
                    group = ifelse(Date < as.Date("2055-01-01"), 
                            'below_2055', 'above_2055'),
                    month = format(Date, '%m-%Y')), mean) -> result

如果您需要最终输出作为列表，则可以使用split。

split(result,result$group)