First, make sure you install and load the `esquisse` package using `install.packages` and `library`:

```{r, eval = FALSE}
install.packages("esquisse")
install.packages("ggplot2")
```

```{r, comment = FALSE}
library(esquisse)
library(ggplot2)
library(dplyr)
library(dasehr)
```

### 1.1

Try creating a plot in `esquisse` using the `calenviroscreen` data from the `dasehr` packaged. This dataset has a lot of variables, so first run the below code to subset it so that you're only working with these variables: `CES4.0Percentile`,  `Asthma`, and `ChildrenPercLess10`. We will also categorize `CES4.0Percentile` into three categories (high, middle, and low) to make visualization a little easier!

```{r}
ces_sub <- select(calenviroscreen, c("CES4.0Percentile", "Asthma", "ChildrenPercLess10"))

ces_sub <- ces_sub %>% 
            mutate(CES4.0Perc_cat = 
              case_when(CES4.0Percentile > 75  ~ "High", 
                        CES4.0Percentile <= 75 & CES4.0Percentile >25 ~ "Middle",
                        CES4.0Percentile <= 25 ~ "Low"))
```

-   Drag and drop the `ChildrenPercLess10` variable to be plotted on the x-axis.
-   Drag and drop the `Asthma` variable to be plotted on the y-axis.
-   What happens when you drag `CES4.0Perc_cat` to the facet region of the esquisse GUI?
-   What happens if you move this to color?
-   Copy and paste the code from both options into the chunk below:

```{r 1.1response}

```

### 1.2

Click where it says "point" (may say "auto" depending on how you did the last question) on the far left side and change the plot to a different type of plot. Copy and paste the code into the chunk below. Close Esquisse and run the chunk below to generate a ggplot.

```{r 1.2response}

```


# Practice on Your Own!

### P.1

Launch Esquisse on any selection of the following datasets we have worked with before and explore!

```{r}
covid_wastewater
CO_heat_ER
CO_heat_ER_byage
CO_heat_ER_bygender
yearly_co2_emissions
nitrate
haa5
```

```{r P.1response}

```
