Analysis.Rmd

---
title: "Penguin sizes"
output:
  html_document: default
date: "2024-07-23"
authors: Daniel Falster, Fonti Kar, Will Cornwell
---

The data have been sourced from the Palmer penguins package, and saved as a csv. 


```{r, message=FALSE}
library(tidyverse)
```


```{r}
data_penguin_sizes <- read_csv("data/penguin_sizes.csv")
```


```{r}
fit <- lm(bill_length_mm~species, data = data_penguin_sizes)

ggplot(data_penguin_sizes, aes(species, bill_length_mm, col = species)) +
  geom_jitter(show.legend = FALSE) + 
  geom_boxplot(show.legend = FALSE, col="black", fill=NA) + 
  theme_classic() +
  labs(
    title = "Palmer penguins: comparison of bill lengths",
    x = "Species", y = "Bill legnth (mm")

anova(fit)
```


There are `r data_penguin_sizes$species |> unique() |> length()` types of penguins in this dataset.

```{r}
data_penguin_sizes$species  |> unique()
```

# Code environment

```{r}
sessionInfo()
```

```{r}
library(renv)

init()
```

```{r}
library(janitor)
```