str(Abilene)
attach(Abilene)
par(mfrow=c(2,1))
barplot(X1992,names.arg=c("Murder","Rape","Robbery","Assault","Burglary",
"Larceny","V.Theft","Arson"),col="blue",main="Crime 1992")
barplot(X1999,names.arg=c("Murder","Rape","Robbery","Assault","Burglary",
"Larceny","V.Theft","Arson"),col="red",main="Crime 1999")
par(mfrow=c(1,1))
detach(Abilene)
Run the code above in your browser using DataLab