Over the last 50 years, there has been a dramatic decline in the number of fatalities due to lightning strikes in the United States. The file below contains a record of all lightning strike fatalaties in the USA from 1960 to 2010.
lightning = read.csv('http://people.hsc.edu/faculty-staff/blins/StatsExamples/LightningDeaths.csv')
Here is a scatterplot of the data:
plot(lightning$year,lightning$deaths,xlab='Year',ylab='# of Fatalities')