New in Wolfram Mathematica 7: Current & Historical Weather Data  previous | next 
Plot Recent Conditions
Weather conditions in Athens for the last two weeks.
In[1]:=

Click for copyable input
Grid[Partition[

  DateListPlot[

     WeatherData[

      "Athens", #, {DatePlus[DateList[], -14], DateList[]}], 

     Joined -> True, PlotLabel -> #] & /@ {"Temperature", "Pressure", 

    "Humidity", "WindSpeed"}, 2], Frame -> All]
Out[1]=