Суммирование каждого гидрологического года в моем фрейме данных в 649 точках и 11 088 наблюдениях

Question

Может кто-нибудь, пожалуйста, помогите мне?У меня есть датафрейм с 649 различными местоположениями, и каждый из них содержит 11088 наблюдений за последние 30 лет.1 гидрологический год охватывает период с сентября.1 августа31. Датафрейм выглядит следующим образом:

То, что я хочу закончить, выглядит примерно так:

В моем исходном фрейме данных у меня также отсутствует много данных.Если в каком-либо месте (т. Е. 1.50.0) пропущено более 10% данных за один гидрологический год, я не хочу сохранять этот год в моем новом фрейме данных.

Если мой вопрос неясен, пожалуйста, спросите.:)

Answer 1

Без данных это непросто, но может быть что-то в этом роде

  df<-data.frame(d1=c(rnorm(9,5,2),NA),
                    d2=rnorm(10,15,2))
     row.names(df)<-c(seq(today()-days(9),today(),"day"))

     df%>%
       rownames_to_column("id")%>%
       gather(variable,value,-id)%>%
       mutate(yr=year(id))%>%
       group_by(yr)%>%
       mutate(is_na=sum(is.na(value))/n())%>%
       filter(is_na<.1)%>%
       group_by(yr,variable)%>%
       summarise(res=mean(value,na.rm=T))%>%
       spread(variable,res)
    # A tibble: 1 x 3
    # Groups:   yr [1]
         yr    d1    d2
      <dbl> <dbl> <dbl>
    1 2018.  4.41  14.7