Parented | R Documentation |
Data for Exercise 1.32
Parented
A data frame/tibble with 200 observations on two variables
a factor with levels 4yr college
degree
, Doctoral degree
, Grad degree
, H.S grad or less
,
Some college
, and Some grad school
a factor with levels mother
and father
Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.
T1 <- xtabs(~education + parent, data = Parented)
T1
barplot(t(T1), beside = TRUE, legend = TRUE, col = c("blue", "red"))
rm(T1)
## Not run:
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 = "")
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.