Status Quo
library(tidyverse)
read_delim("https://www.isi-stats.com/isi/data/chap5/Gilbert.txt", "\t") |>
sample_frac(replace = T) |>
janitor::clean_names() ->
data_hospital_nurse
## Rows: 1641 Columns: 2
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: "\t"
## chr (2): GilbertWorked?, Patient
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
library(ggprop.test)
data_hospital_nurse |>
ggplot() +
aes(x = patient) +
geom_stack() +
facet_wrap(vars(gilbert_worked), ncol = 1) +
geom_prop() +
geom_prop_label()
layer_data(i = 2) |>
pull(x) |>
range()
## [1] 0.8680000 0.9813084
"https://www.isi-stats.com/isi/data/chap5/Dolphin.txt"
## [1] "https://www.isi-stats.com/isi/data/chap5/Dolphin.txt"
"https://www.isi-stats.com/isi/data/chap5/Yawning.txt"
## [1] "https://www.isi-stats.com/isi/data/chap5/Yawning.txt"
"https://www.isi-stats.com/isi/data/chap5/Smoking.txt"
## [1] "https://www.isi-stats.com/isi/data/chap5/Smoking.txt"
"https://www.isi-stats.com/isi/data/chap5/Blood.txt"
## [1] "https://www.isi-stats.com/isi/data/chap5/Blood.txt"
"https://www.isi-stats.com/isi/data/chap6/OldFaithful.txt"
## [1] "https://www.isi-stats.com/isi/data/chap6/OldFaithful.txt"
"https://www.isi-stats.com/isi/data/chap6/Haircuts.txt"
## [1] "https://www.isi-stats.com/isi/data/chap6/Haircuts.txt"