# load sample hydrograph data, two years worth of sim/obs
ff <- system.file("extdata","run1_Hydrographs.csv", package="RavenR")
run1 <- rvn_hyd_read(ff)
# create a hydrograph with the generic xts plotting function
rvn_xts_plot(run1$hyd[,2:5])
# add shading for the month of August
rvn_xts_plot(run1$hyd[,2:5], winter_shading=TRUE, wsdates=c(8,1,8,31))
Run the code above in your browser using DataLab