Percent of vehicles passing inspection by type inspection station
Data for Exercise 8.59
Inspect
A data frame/tibble with 174 observations on two variables
a factor with levels auto inspection,
auto repair, car care center, gas station, new car
dealer, and tire store
a factor with levels less than 70%, between 70% and 84%, and more than 85%
The Charlotte Observer, December 13, 1992.
Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.
T1 <- xtabs(~ station + passed, data = Inspect)
T1
barplot(T1, beside = TRUE, legend = TRUE)
chisq.test(T1)
rm(T1)
## Not run:
library(ggplot2)
ggplot2::ggplot(data = Inspect, aes(x = passed, fill = station)) +
geom_bar(position = "dodge") +
theme_bw()
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.