ToothGrowth.qmd

---
title: "Tooth Growth"
author: "Thomas Reinke"
format: html
theme: flatly
code-fold: show
highlight-style: a11y
editor: source
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  comment = "#", 
  cache = FALSE,  
  collapse = TRUE,
  error = TRUE,
  tidy.opts=list(width.cutoff=65),
  echo = TRUE,
  message = FALSE,
  warning = FALSE
)
library(scales)
library(tidyverse)
theme_set(theme_minimal())
theme_update(panel.grid.minor = element_blank())
theme_update(plot.title = element_text(hjust = 0.5))
```

```{r}
c("lm", "glm", "gam", "loess") |>
  map(.x = _, .f = \(method){
    ggplot(data = ToothGrowth, mapping = aes(x = len, y = dose, color = supp)) + 
      geom_point(position = "jitter") +
      geom_smooth(se = FALSE, method = method) + 
      labs(title = method) + 
      facet_wrap(~ supp, ncol = 1, scales = "fixed") + 
      scale_color_brewer(type = "qual", palette = "Dark2")
      }
    )
```