Cross-Tabulations and Proportions

r

visit_status_by_site <- prepared_data |>
  count(site, visit_status, name = "n") |>
  group_by(site) |>
  mutate(
    site_total = sum(n),
    percent = round(100 * n / site_total, 1)
  ) |>
  ungroup()

visit_status_by_site