str(Undergrad)
attach(Undergrad)
stripchart(GPA~Class,method="stack",col=c("blue","red","green","lightblue"),
pch=19,main="GPA versus Class")
stripchart(GPA~Gender,method="stack",col=c("red","blue"),pch=19,
main="GPA versus Gender")
stripchart(SAT~Drops,method="stack",col=c("blue","red","green","lightblue"),
pch=19,main="SAT versus Drops")
stripchart(Drops~Gender,method="stack",col=c("red","blue"),pch=19,
main="Drops versus Gender")
detach(Undergrad)
Run the code above in your browser using DataLab