# NOT RUN {
stripplot(year ~ time, data = Commute, jitter = TRUE)
dotplot(year ~ time, data = Commute)
bwplot(year ~ time, data = Commute)
stripchart(time ~ year, data = Commute, method = "stack", pch = 1,
cex = 2, col = c("red", "blue"),
group.names = c("1980", "1990"),
main = "", xlab = "minutes")
title(main = "Commute Time")
boxplot(time ~ year, data = Commute, names=c("1980", "1990"),
horizontal = TRUE, las = 1)
# }
Run the code above in your browser using DataLab