Education backgrounds of parents of entering freshmen at a state university

Data for Exercise 1.32

Parented

Format

A data frame/tibble with 200 observations on two variables

education

a factor with levels 4yr college degree, Doctoral degree, Grad degree, H.S grad or less, Some college, and Some grad school

parent

a factor with levels mother and father

References

Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.

Examples

T1 <- xtabs(~education + parent, data = Parented)
T1
#>                     parent
#> education            mother father
#>   H.S grad or less       23     20
#>   Some college           33     25
#>   4yr college degree     25     28
#>   Some grad school        5      4
#>   Grad degree            13     17
#>   Doctoral degree         1      6
barplot(t(T1), beside = TRUE, legend = TRUE, col = c("blue", "red"))

rm(T1)
if (FALSE) {
library(ggplot2)
ggplot2::ggplot(data = Parented, aes(x = education, fill = parent)) + 
    geom_bar(position = "dodge") + 
    theme_bw() +
    theme(axis.text.x  = element_text(angle = 85, vjust = 0.5)) + 
    scale_fill_manual(values = c("pink", "blue")) + 
    labs(x = "", y = "") 
}