library(oce)
data(sealevel.hal)
# Overall plot
plot(sealevel.hal)
# Illustrate storm surge during Hurricane Juan
plot(sealevel.hal,which=1,xlim=as.POSIXct(c("2003-09-24","2003-10-05"), tz="UTC"))
abline(v=as.POSIXct("2003-09-29 04:00:00", tz="UTC"), col="red")
mtext("Hurricane
Juan", at=as.POSIXct("2003-09-29 04:00:00", tz="UTC"), col="red")
Run the code above in your browser using DataLab