data(d.river)
range(d.river$date)
t.i <- d.river$date < as.Date("2010-03-31")
plyx(~date, ~O2, data=d.river, subset=t.i & hour==14, smooth=FALSE)
d.river$Date <- gendateaxis(d.river$date, hour=d.river$hour)
plyx(O2~Date, data=d.river, subset=t.i, type="l")
plyx(O2+T+ra~Date, data=d.river, subset=t.i & hour==14,
smooth.par=0.5, smooth.xtrim=0.03, ycol=c(O2="blue",ra="red"))
Run the code above in your browser using DataLab