## get data
data(apadbwq)
swmp1 <- apadbwq
## subset
dat <- subset(swmp1, select = 'do_mgl',
subset = c('2013-07-01 00:00', '2013-07-31 00:00'))
## plot using swmpr method, note default line plot
plot(dat)
## plot using formula method
plot(do_mgl ~ datetimestamp, dat)
## plot using default, add lines
plot(dat, type = 'n')
lines(dat, col = 'red')
Run the code above in your browser using DataLab