Блог

Я хотел бы подсчитать, сколько дней в каждом сезоне приходится на продолжительность даты начала и даты окончания. Категориями сезона будут декабрь / 1-февраль / 28 (зима), март / 1-май / 31 (весна), июнь / 1-август / 31 (лето) и сентябрь / 1-ноябрь / 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))
  

Например, идентификатор 1 имеет 616 дней. Я хотел бы знать, сколько дней в каждом сезоне.

Начиная с 2011/1 / — 2012/9/8 годов, идентификатор 1 имеет 616 дней, я хотел бы узнать, сколько дней приходится на зимний сезон, весну, лето, осень соответственно.

Например, зима (150 дней) весна (150 дней) лето (150 дней) осень (166 дней).