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