data-raw/Titanic-full.R

In IndrajeetPatil/ggstatplot: 'ggplot2' Based Plots with Statistical Details

# converting data frame to full length based on count information
Titanic_full <-
  tibble::as_tibble(datasets::Titanic) |>
  tibble::rowid_to_column(var = "id") |>
  dplyr::mutate(dplyr::across(dplyr::vars("id"), ~ as.factor(.x))) |>
  split(f = .$id) |>
  purrr::map_dfr(tidyr::uncount, n) |>
  dplyr::mutate(
    dplyr::across(dplyr::vars("id"), ~ as.numeric(as.character(.x))),
    dplyr::across(where(is.character), ~ droplevels(as.factor(.x)))
  ) |>
  dplyr::select(-n, -id) |>
  tibble::rownames_to_column(var = "id") |>
  dplyr::mutate(dplyr::across("id", ~ as.numeric(as.character(.x))))

# reordering the Class variables
Titanic_full$Class <- factor(Titanic_full$Class, levels = c("1st", "2nd", "3rd", "Crew", ordered = TRUE))

dplyr::glimpse(Titanic_full)

readr::write_csv(Titanic_full, file = "data-raw/Titanic_full.csv")
save(Titanic_full, file = "data/Titanic_full.rdata")