HW5.Rmd

---
title: "HW5-Q2"
author: "Jeremy Jarzab"
date: "3/18/2022"
output: html_document
---

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

## R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.

When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

```{r}
library(maps)
library(mapdata)
library(ggplot2)
library(rmarkdown)
library(dplyr)

#2(a)
states <- map_data('state')
california <- states %>% filter(region == 'california')

#2(b)
load('D:/Users/Jeremy/Desktop/Online_Assignments/Winter 2022/CSC 302/wind_turbines.rda')
wind_ca <- wind_turbines %>% filter(t_state == 'CA')

#2(c) - 2(d)
ggplot(california, aes(long, lat)) +
  geom_polygon(aes(group=group, fill=group), show.legend = FALSE) + 
  geom_point(data=wind_ca, aes(x=xlong, y=ylat))
```