# NOT RUN {
gf_jitter(avg_drinks ~ age,
alpha = 0.2, data = mosaicData::HELPrct,
width = 0.4, height = 0.4
) %>%
gf_density_2d(avg_drinks ~ age, data = mosaicData::HELPrct)
gf_density_2d_filled(avg_drinks ~ age, data = mosaicData::HELPrct, show.legend = FALSE) %>%
gf_jitter(avg_drinks ~ age,
alpha = 0.3, data = mosaicData::HELPrct,
width = 0.4, height = 0.4,
color = "white"
)
gf_jitter(avg_drinks ~ age,
alpha = 0.2, data = mosaicData::HELPrct,
width = 0.4, height = 0.4
) %>%
gf_density2d(avg_drinks ~ age, data = mosaicData::HELPrct)
gf_density2d_filled(avg_drinks ~ age, data = mosaicData::HELPrct, show.legend = FALSE) %>%
gf_jitter(avg_drinks ~ age,
alpha = 0.4, data = mosaicData::HELPrct,
width = 0.4, height = 0.4,
color = "white"
)
# }
Run the code above in your browser using DataLab