# NOT RUN {
KF <-
mosaicData::KidsFeet %>%
set_variable_labels(
length = 'foot length (cm)',
width = 'foot width (cm)',
birthmonth = 'birth month',
birthyear = 'birth year',
biggerfoot = 'bigger foot',
domhand = 'dominant hand'
)
KF %>%
gf_point(length ~ width, color = ~ domhand)
get_variable_labels(KF)
# }
Run the code above in your browser using DataLab