Nothing
gf_density( ~ age, data = HELPrct, fill = ~ sex) %>%
gf_facet_grid( substance ~ .)
gf_density( ~ age, data = HELPrct, fill = ~ sex) %>%
gf_facet_grid( substance ~ ., scales = "free_y", space = "free")
gf_density( ~ age, data = HELPrct, fill = ~ sex) %>%
gf_facet_wrap( ~ substance, ncol = 1)
HELPrct %>% select(age, mcs, i1, cesd, substance) %>%
gather(variable, value, age:cesd) %>%
gf_dens( ~ value, color = ~substance) %>%
gf_facet_wrap( ~ variable, scales = "free", ncol = 2)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.