# NOT RUN {
gf_histogram(~ avg_drinks, data = mosaicData::HELPrct) %>%
gf_facet_grid(~ substance)
gf_histogram(~ avg_drinks, data = mosaicData::HELPrct) %>%
gf_facet_grid(~ substance, scales = "free")
gf_histogram(~ avg_drinks, data = mosaicData::HELPrct) %>%
gf_facet_grid(~ substance, scales = "free", space = "free")
gf_line(births ~ date, data = mosaicData::Births, color = ~ wday) %>%
gf_facet_wrap( ~ year, scales = "free_x", nrow = 5) %>%
gf_theme(axis.title.x = element_blank(),
axis.text.x=element_blank(), axis.ticks.x=element_blank()) %>%
gf_labs(color = "Day")
# }
Run the code above in your browser using DataLab