Size of tonsils collected from 1,398 children
Data for Exercise 2.78
Tonsils
A data frame/tibble with 1,398 observations on two variables
a factor with levels Normal, Large, and Very Large
a factor with levels Carrier and Non-carrier
Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.
T1 <- xtabs(~size + status, data = Tonsils)
T1
prop.table(T1, 1)
prop.table(T1, 1)[2, 1]
barplot(t(T1), legend = TRUE, beside = TRUE, col = c("red", "green"))
## Not run:
library(dplyr)
library(ggplot2)
NDF <- dplyr::count(Tonsils, size, status)
ggplot2::ggplot(data = NDF, aes(x = size, y = n, fill = status)) +
geom_bar(stat = "identity", position = "dodge") +
scale_fill_manual(values = c("red", "green")) +
theme_bw()
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.