> tutorial.helpers::show_file("quarto-2.qmd")
---
title: "Quarto 2"
author: "David Kane"
format: html
execute: 
  echo: false
---

```{r}
#| message: false

library(tidyverse)
library(palmerpenguins)
```

```{r}
penguins |> 
  ggplot(aes(x = body_mass_g, y = flipper_length_mm, color = species)) +
    geom_point() +
    labs(title = "Penguins Body Mass compared to Flipper Length", 
         x = "Body Mass", 
         y = "Flipper Length")
```
