lyt <- basic_table() %>%
split_rows_by("COUNTRY", split_fun = keep_split_levels(c("CHN", "USA"))) %>%
analyze("AGE")
tbl <- build_table(lyt, DM)
label_at_path(tbl, c("COUNTRY", "CHN"))
label_at_path(tbl, c("COUNTRY", "USA")) <- "United States"
tbl
Run the code above in your browser using DataLab