大约每个季节的天数

Question

我想计算每个季节多少天算起开始日期和结束日期的持续时间。季节类别为12月1日至2月28日（冬季），3月1日至5月31日（春季），6月1日至8月31日（夏季）和9月1日至11月30日（秋季）。

df1 <- data.frame(
   ID=c(1,1,1,1,2,2,2,2) , 
  Date=as.Date(c("2011/1/1","2011/4/1","2012/3/4","2012/9/8",
                 "2013/1/4","2013/2/1"," 2013/6/1"," 2015/3/1")))  

df1 %>% 
  group_by(ID) %>% 
  mutate(diff = max(Date) - min(Date))

例如，id 1有616天。我想知道每个季节有多少天。

从2011/1 /-2012/9/8 ，id 1有616天，我想分别是冬季，春季，夏季，秋季多少天。

就像冬天（150天），春天（150天），夏天（150天），秋天（166天）一样。