Dynamic graphs of Meterological data

library(tidyverse)
library(lubridate)
library(dygraphs)
library(xts)

d <- read_csv("Hurn_monthly_data_long.csv")
d$date<-dmy(paste(15,d$Month,d$Year))

Dygraphs

Tmin

dygraph(xts(d$Tmin,d$date)) %>% dyRoller(rollPeriod = 12) %>% dyRangeSelector(dateWindow = c( dmy("1/1/1970"),dmy("1/6/2023")))

Tmax

dygraph(xts(d$Tmax,d$date)) %>% dyRoller(rollPeriod = 12) %>% dyRangeSelector(dateWindow = c( dmy("1/1/1970"),dmy("1/6/2023")))

Prec

dygraph(xts(d$Prec,d$date)) %>% dyRoller(rollPeriod = 12) %>% dyRangeSelector(dateWindow = c( dmy("1/1/1970"),dmy("1/6/2023")))