Average teacher's salaries across the states in the 70s 80s and 90s
Data for Exercise 5.114
Teacher
A data frame/tibble with 51 observations on three variables
U.S. state
academic year
avaerage salary (in dollars)
National Education Association.
Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.
par(mfrow = c(3, 1))
hist(Teacher$salary[Teacher$year == "1973-74"],
main = "Teacher salary 1973-74", xlab = "salary",
xlim = range(Teacher$salary, na.rm = TRUE))
hist(Teacher$salary[Teacher$year == "1983-84"],
main = "Teacher salary 1983-84", xlab = "salary",
xlim = range(Teacher$salary, na.rm = TRUE))
hist(Teacher$salary[Teacher$year == "1993-94"],
main = "Teacher salary 1993-94", xlab = "salary",
xlim = range(Teacher$salary, na.rm = TRUE))
par(mfrow = c(1, 1))
## Not run:
library(ggplot2)
ggplot2::ggplot(data = Teacher, aes(x = salary)) +
geom_histogram(fill = "purple", color = "black") +
facet_grid(year ~ .) +
theme_bw()
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.