timeseries_month.jl

using Gadfly, DataArrays, RDatasets

if VERSION < v"0.4-dev"
    using Datetime
else
    date = Date
end

y = 1973
airquality = dataset("datasets", "airquality")

dates = Date[date(1973, m, d)
             for (m, d) in zip(airquality[:Month], airquality[:Day])]
airquality[:Date] = dates

p = plot(airquality, x=:Date, y=:Temp, Geom.line)