# Writing Tidyverse Functions (Functions)

1. Copy the following vectors into R and combine them into a data frame named `count_data` with columns named `state`, `count`, `area`, and `site`.

``````state_vector <- c("FL", "FL", "FL", "FL", "GA", "GA", "GA", "GA", "SC", "SC", "SC", "SC")
site_vector <- c("A", "B", "C", "D", "A", "B", "C", "D", "A", "B", "C", "D")
count_vector <- c(9, 16, 3, 10, 2, 26, 5, 8, 17, 8, 2, 6)
area_vector <- c(3, 5, 1.9, 2.7, 2, 2.6, 6.2, 4.5, 8, 4, 1, 3)
``````

2. Write a function takes takes two arguments: 1) a data frame with a `count` column and an `area` column; and 2) a column in that data frame to color the points by. Have the function make a plot with `area` on the x-axis and `count` on the y-axis and the points colored by the column you provided as an argument. Set the size of the points to 3. Use the function to make a scatter plot of count as a function of area for the `count_data` data frame with the points colored by the `state` column.

3. Use the function from (2) to make a scatter plot of count as a function of area for the `count_data` data frame with the points colored by the `site` column.

Expected outputs for Writing Tidyverse Functions: 1 2 3