Data Analysis in R

Creating Report-Ready Tables in R

Code Example 2

30-45 minutes Applied Step 8 of 9

Code

Code Example 2

8 / 9

Code

Code Example 2

data_quality_table <- prepared_data |>
  group_by(site) |>
  summarise(
    participants = n_distinct(participant_id),
    missing_consent = sum(is.na(consent_date)),
    overdue_missing_day28 = sum(day28_due_date <= Sys.Date() & is.na(day28_outcome)),
    duplicate_ids = n() - n_distinct(participant_id),
    .groups = "drop"
  ) |>
  mutate(
    percent_overdue_missing_day28 = round(100 * overdue_missing_day28 / participants, 1)
  )

data_quality_table