Tutorial5-HAP.Rmd

---
title: "Learning to rebase"
author: Huyen-Anh Pham
date: "2023-03-29"
output:
  bookdown::html_document2: default
  keep_md: true
---

```{r library}
# Libraries
library(tidyverse)
library(palmerpenguins)
```

```{r}
# Examining the relationship between bill length and flipper length.

library(palmerpenguins)
data(package = 'palmerpenguins')

ggplot(penguins, aes(x = bill_depth_mm , y = flipper_length_mm, color = species)) +
geom_point()
```

```{r e1_14}
# Investigating variability accross species
ggplot(penguins, aes(x = species, y = bill_length_mm, fill=species)) +
geom_boxplot(outlier.colour = "blue", outlier.size = 2) +
geom_jitter(width=0.2, alpha = 0.5) + # 1 flower, 1 dot
labs(title="Penguin Bill Length") +
theme_light()
```