# NOT RUN {
par(las = 1)
stripchart(deaths ~ decade, data = Airdisasters,
subset = decade != "1930s" & decade != "1940s",
method = "stack", pch = 19, cex = 0.5, col = "red",
main = "Aircraft Disasters 1950 - 1990",
xlab = "Number of fatalities")
par(las = 0)
# }
Run the code above in your browser using DataLab