Summarizing Categorical Variables

r

outcome_summary <- prepared_data |>
  mutate(
    outcome_status_display = replace_na(outcome_status, "Missing")
  ) |>
  count(outcome_status_display, name = "n") |>
  mutate(
    percent = round(100 * n / sum(n), 1)
  )

outcome_summary