如何计算20年来每个拉长的平均降雨量

Question

我有一个大量的降雨数据集，有1048575行和四列(时间，lat，长，降雨毫米)。该数据集包含每一个独特的拉特-长组合(共81个这样的长组合)20年的日降雨量。我想计算每一个独特的拉特长组合的20年平均降雨量。

我是R的新手，有人能帮我处理R中的代码吗？

我正在给出我准备的代码和数据集的一瞥。

library(dplyr)
data <-read.csv('IMD_Precip.csv')
data$rain[data$rain==-999]<-NA

data_latlon <-data.frame(Lat =data$lat,
                     Long = data$lon,
                     PlotCode = data$rain,
                     date=as.POSIXct(data$time, "%Y %m %d"))
data_latlon %>% 
  group_by(date, Lat, Long) %>%
  mean(PlotCodeGrouped =paste(PlotCode, date, collapse = ''))

在这里输入图像描述

Answer 1

如果你想要一场平均的雨，试试这个：

 data_latlon %>% 
      mutate(year = lubridate::year(date)) %>%
      group_by(year, Lat, Long) %>%
      summarise(mean = mean(PlotCode, na.rm = T))

如果你想要所有数据的平均值，这是：

data_latlon %>% 
      group_by(Lat, Long) %>%
      summarise(mean = mean(PlotCode, na.rm = T))