```{r}
#make sure the package is installed on your computer or this won't run! 
library(tidyverse)
```

```{r}
#load the gapminder data for this lab
library(gapminder)
data('gapminder')
```

# 1.

Pick a year. Create a dataset which only contains that data for that year and is appropriately labeled. For example, if you choose the year `2007`, you might choose to call this new dataset `gapminder2007`. You will use this dataset for the rest of the assignment.

```{r}

```

# 2.

Using your dataset you created in 1, create a barplot which displays the GDP per capita of the ten countries with the highest GDP per capita that year. Be sure your axes are appropriately labeled.

```{r}

```

# 3.

Pick a continent. Using your dataset you created in 1, create a barplot which displays the life expectancy of all the countries in that continent in that year. You should sort the countries from highest life expectancy to lowest life expectancy. Be sure your axes are appropriately labeled.

```{r}

```

# 4.

```{r}
#Load Penguins Data
library(palmerpenguins)
data("penguins")
```

To the best of your ability, recreate the following plot from the `penguins` dataset. Focus your efforts on getting the content correct. If you have time at the end, as a bonus, you can try to match the styling as closely as you can. 

![](https://github.com/emalcolmwhite/STAT0118/blob/main/penguins_scatterplot.png?raw=true) 

This image will also be available on the Canvas assignment (in case this link/preview don't work for you).

```{r}

```

