### Observations of year 1967
data(temperature)
names(temperature)
# Temperatures on 939 weather stations of year 1967
temp67 <- temperature$obs[temperature$year == 1967]
# Locations of 939 weather stations
latlon <- temperature$latlon[temperature$year == 1967, ]
# Plot of the observations
sw.plot(z = temp67, latlon=latlon, type="obs", xlab="", ylab="")
Run the code above in your browser using DataLab