str(Bbsalaries)
attach(Bbsalaries)
stripchart(x=list(INDIANS,WHITESOXS,REDSOXS,ORIOLES,ANGLES),xlab="Salary",
method="stack",main="",pch=1,col="blue", group.names=c("Indians","White Sox",
"Red Sox", "Orioles","Angels"))
title(main="Major League Salaries")
detach(Bbsalaries)
Run the code above in your browser using DataLab