---
title: "More Data Wrangling"
author: "Wells"
date: "2/10/2022"
output: html_document
---

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


**Step One**: Load required packages by running the code chunk above.

## Adding Annotations

**Goal**: Add comments to code




## Importing Data

**Goal**: Import the `my_starwars` dataset from the course website.

```{r}
library(readr)
my_starwars <- read_csv("https://reed-statistics.github.io/math141s22-wells-website/data/my_starwars.csv")
```


## Creating Categorical Variables

**Goal 1**: Create a new categorical variable classifying character heights as `small`, `medium`, `large` or `unknown`.



**Goal 2**: Reduce species variable to two levels: `Human`, `Non-Human`







## Recoding Levels

**Goal 1**: Change the values of `force_affiliation` to `Jedi`, `Sith`, and `None`.



**Goal 2**: Convert `force_user` to a quantitative variable.





## Renaming Variables

**Goal**: Change the name `trilogy` to `first_appearance`.




## Dealing with Missing Data

**Goal**: Remove all observations with `NA` for height


## Reset Everything

**Goal**: Undo all changes to the data.





