library(dplyr)
vlabels = extract_variable_label(colon_s)
colon_s %>%
select(sex.factor, obstruct.factor) %>%
tidyr::gather() %>%
mutate(
key = forcats::fct_relabel(key, labels_to_level, vlabels)
)
Run the code above in your browser using DataLab