Sampling groups with 'dplyr' + 'tidyr'

sample-groups-with-dplyr-and-tidyr.R

library(dplyr)
library(tidyr)
library(survey)

# Load example data
# 'apipop' has one row per school

  data('api', package = 'survey')

# Draw a sample of school districts

  apipop |>
    nest(.by = c(dname, dnum)) |>
    slice_sample(n = 10) |>
    unnest(data)