ListPlot[WeatherData["KABQ", "MaxTemperature", {{#}, {#}, "Month"}, "Value"] & /@ Range[1950, 2000, 25] , Joined -> True , PlotStyle -> Thick, Mesh -> All]