data(kfm, package = "ISwR")
require(sjlabelled, quietly = TRUE)
kfm <- kfm %>%
var_labels(
dl.milk = "Breast-milk intake (dl/day)",
sex = "Sex",
weight = "Child weight (kg)",
ml.suppl = "Milk substitute (ml/day)",
mat.weight = "Maternal weight (kg)",
mat.height = "Maternal height (cm)"
)
kfm %>%
gf_point(weight ~ dl.milk) %>%
gf_lm(col = 2, interval = "confidence", col = 2) %>%
axis_labs()
kfm %>%
box_plot(dl.milk ~ sex, fill = "thistle", alpha = 0.8) %>%
axis_labs() %>%
gf_star(x1 = 1, y1 = 10.9, x2 = 2, y2 = 11, y3 = 11.2)
Run the code above in your browser using DataLab