Practice Day2 - Afternoon.Rmd

---
title: "Penguins"
author: "Javier Patron"
date: "2022-08-02"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(tidyverse)
library(palmerpenguins)
```



```{r}
head(penguins)
```

Scatterplot of body mass versus flipper length:

```{r}
ggplot(data=penguins, aes(x=body_mass_g, y=flipper_length_mm)) +
  geom_point(aes(color = species), size = 0.8) + 
  facet_wrap(~island) + 
  theme_minimal() + 
  labs(x = "Body mass (g)", 
  y = "Flipper lenght(mm)")
```