зоопарк и tapply для сезонного среднего значения для переменного города

Question

древесины моего dataframe

town date prec  TP  TC 
TR 1/10/1983 NaN  NaN 11.34 
CR 2/12/1983 NaN  NaN 4.3 
TR 3/12/1983 11.22 11.36 NAN 
SP 5/6/1985 NaN  NaN 3.2 
BM 6/7/1994 6.33  6.23 1.2 
BM 5/6/1995 5.81  5.9 NAN 
BM 1/11/2005 5.9  5.9 6.2 

Я хочу, чтобы получить сезонное среднее (среднее) мои данных для каждого города в отдельности. Раньше я использовал функцию зоопарка, чтобы найти сезонное среднее значение в год. Но зоопарк с трудом принимает другую переменную города. Теперь я хочу, чтобы расширить его, чтобы найти сезонную среднее значение для «PrEC, ТП, ТС» по городу на год Так Ян февралем марш в среднем за 1983 и

май, июнь, июль в среднем за 1985

Результат должен выглядеть так. Также «R не должен принимать NAN как нули». Это просто отсутствие данных.

town date  prec TP  TC 
TR 1983 11.22 11.36 7.82 
SP 1985  6.07 6.07 2.2 

Answer 1

library(data.table) 
library(lubridate)  
setDT(dat) 
dat[ , .(prec = mean(prec, na.rm = T), TP = mean(TP, na.rm = T), TC = mean(TC, na.rm = T))., by = .(town, year(date))]