path <- system.file("extdata", package = "tidyklips")
df <- getaklips(path = path, year = 2023, datatype = "stata")
df %>%
dplyr::group_by(year, activity) %>%
dplyr::summarise(count = dplyr::n()) %>%
dplyr::mutate(proportion = count / sum(count))
Run the code above in your browser using DataLab