- The next four chunks contain partial code to make separate graphs to examine the distribution of the first day of a winter season that Lake Monona is at least 50% closed by ice (coded as a numerical variable which counts days after June 30for each of the four periods time periods encoded in `period50`. - Separate histograms "wrapped" to make a linear sequence of plots broken over one or more rows. - Separate histograms arranged to be stacked and using the set of axes. - Side-by-side box plots. - Density plots overlaid on the same graph. - For each chunk, complete the code to produce the desired graph. Add informative axis labels and graph titles.

```{r 9A} ## wrapped histograms ## ## change the binwidth to an appropriate value ## add axis labels and a title ## complete the argument(s) to facet_wrap() ggplot(monona, aes(x = ff_x)) + geom_histogram(center = 180, binwidth = 100, color = "black", fill = "blue") + xlab("") + ylab("") + ggtitle("") # + # facet_wrap() ```

```{r 9B, fig.height = 6} ## histograms, stacked ## ## change the binwidth to an appropriate value ## add axis labels and a title ## complete the argument(s) to facet_grid() ## ggplot(monona, aes(x = ff_x)) + geom_histogram(center = 180, binwidth = 0.1, color = "black", fill = "blue") + xlab("") + ylab("") + ggtitle("") # + # facet_grid(. ~ .) ```

```{r 9C} ## side by side boxplots ## ggplot(monona, aes(...)) + geom_boxplot() + xlab("") + ylab("") + ggtitle("") ```

```{r 9D} ## Overlapping density plots ## You want a different color for each group of period50 ## Add an appropriate aesthetic mapping ## ggplot(monona, aes(x = ff_x)) + geom_density() + geom_hline(yintercept = 0) + xlab("") + ylab("") + ggtitle("") ```