Enrollment and Follow-Up Monitoring Plots

r

cumulative_enrollment <- prepared_data |>
  distinct(participant_id, enrollment_date, site) |>
  arrange(enrollment_date) |>
  mutate(cumulative_participants = row_number())

cumulative_enrollment |>
  ggplot(aes(x = enrollment_date, y = cumulative_participants)) +
  geom_line() +
  labs(
    title = "Cumulative Enrollment Over Time",
    x = "Enrollment date",
    y = "Cumulative participants"
  )