fake_survey_people(10)
answers <- fake_sondage_answers()
if (FALSE){
ggplot(answers) +
aes(age, log(distance_km), colour = type) +
geom_point() +
geom_smooth() +
facet_wrap(~type, scales = "free_y")
}
Run the code above in your browser using DataLab