Wrangle data

source("0_helpers.R")

Wrangle wrangle

data("msleep")
msleep %>% 
    mutate(eats = factor(recode(vore, "carni" = "meat", "omni" = "everything", "herbi" = "plants", "insecti" = "insects"), c("everything","plants", "insects", "meat"))) ->
msleep

Save data

saveRDS(msleep, file = "msleep_processed.rds")

LS0tCm91dHB1dDoKICBodG1sX2RvY3VtZW50OgogICAgY29kZV9mb2xkaW5nOiAic2hvdyIKLS0tCgojIFdyYW5nbGUgZGF0YSB7LnRhYnNldCAudGFic2V0LXN0aWNreX0KCmBgYHtyIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9CnNvdXJjZSgiMF9oZWxwZXJzLlIiKQpgYGAKCiMjIFdyYW5nbGUgd3JhbmdsZQoKYGBge3J9CmRhdGEoIm1zbGVlcCIpCm1zbGVlcCAlPiUgCgltdXRhdGUoZWF0cyA9IGZhY3RvcihyZWNvZGUodm9yZSwgImNhcm5pIiA9ICJtZWF0IiwgIm9tbmkiID0gImV2ZXJ5dGhpbmciLCAiaGVyYmkiID0gInBsYW50cyIsICJpbnNlY3RpIiA9ICJpbnNlY3RzIiksIGMoImV2ZXJ5dGhpbmciLCJwbGFudHMiLCAiaW5zZWN0cyIsICJtZWF0IikpKSAtPgptc2xlZXAKYGBgCgojIyBTYXZlIGRhdGEKYGBge3J9CnNhdmVSRFMobXNsZWVwLCBmaWxlID0gIm1zbGVlcF9wcm9jZXNzZWQucmRzIikKYGBgCgo=