plot(weather.data$date,weather.data$ah1,ylim=c(0,30),type='l',col="red")
par(new=TRUE)
plot(weather.data$date,weather.data$ah2,ylim=c(0,30),type='l',col="green")
par(new=TRUE)
plot(weather.data$date,weather.data$mtemp,ylim=c(0,30),type='l',col="orange")
par(new=TRUE)
plot(weather.data$date,weather.data$mrhumidity,ylim=c(0,100),type='l',col="blue")
par(new=TRUE)
plot(weather.data$date,weather.data$vaporpressure,ylim=c(0,30),type='l',col="grey")
points(hkdata$onset.secondary,rep(0,length(hkdata$onset.secondary)),col="#ff333322",pch=19)