attach(Airdisasters)
STA <- stack(Airdisasters[,3:7])
library(lattice)
dotplot(ind~values,data=STA)
stripchart(x=list(X1950,X1960,X1970,X1980,X1990),method="stack",main="",pch=1,
col="red",group.names=c("1950","1960","1970","1980","1990"),
xlab="Number of Fatalities")
title(main="Aircraft Disasters 1950-1990")
detach(Airdisasters)
Run the code above in your browser using DataLab