title: “Bayati_Niloufar_First data product”

author: “Niloufar Bayati”

date: “9/26/2021”

output: html_document

code_folding: hide

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

```{r, message=FALSE, warning=FALSE} ggplot(data = data_to_viz) + geom_boxplot(mapping = aes(x = gender, y = proportion_earned)) + labs(title = “The proportion earned according to gender”, caption = “Which Gender are earning the highest proportion earned?”)

```