11 - use case: long term climate graph

link <- selectDWD("Goettingen", res="monthly", var="kl", per="h")
clim <- dataDWD(link)

clim$month <- substr(clim$MESS_DATUM_BEGINN,5,6)
temp <- tapply(clim$MO_TT, clim$month, mean, na.rm=TRUE)
prec <- tapply(clim$MO_RR, clim$month, mean, na.rm=TRUE)

berryFunctions::climateGraph(temp, prec, main="Goettingen")
mtext("Source: Deutscher Wetterdienst", adj=-0.05, line=2.8, font=3)

See also the app to visualize the weather of a given time period, compared to the measurements of the same period in other years.
This can also be run locally with rdwd::app().