# NOT RUN {
require(dplyr)
require(sjlabelled)
data(birthwt, package = "MASS")
birthwt <- birthwt %>%
mutate(
smoke = factor(smoke, labels = c("Non-smoker", "Smoker")),
Race = factor(race > 1, labels = c("White", "Non-white"))
) %>%
var_labels(
bwt = 'Birth weight (g)',
smoke = 'Smoking status'
)
birthwt %>%
bar_error(bwt ~ smoke, fill = 'plum3') %>%
axis_labs()
birthwt %>%
bar_error(bwt ~ smoke|Race, fill = 'plum3') %>%
axis_labs()
birthwt %>%
bar_error(bwt ~ smoke, fill = ~ Race) %>%
axis_labs()
birthwt %>%
bar_error(bwt ~ smoke, col = ~ Race, fill = 'white') %>%
gf_refine(ggsci::scale_color_jama()) %>%
axis_labs()
# }
Run the code above in your browser using DataLab