1st Markdown

library(ggplot2)
# install.packages("tidyverse")
library(tidyverse)

## ── Attaching packages ───────────────────────────────────────── tidyverse 1.3.0 ──

## ✓ tibble  3.0.1     ✓ dplyr   1.0.0
## ✓ tidyr   1.1.0     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.5.0
## ✓ purrr   0.3.4

## ── Conflicts ──────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

Plot 1

p1 <- qplot(data = airquality,Temp,fill = Month,geom = "histogram", bins = 20)
p1

##Plot 2

p2 <- airquality %>%
     ggplot(aes(x=Temp, fill=Month)) +
     geom_histogram(position="identity", alpha=0.5, binwidth = 5, color = "white")+
     scale_fill_discrete(name = "Month", labels = c("May", "June","July", "August", "September"))
p2

Plot 3

p3 <- airquality %>%
     ggplot(aes(Month, Temp, fill = Month)) + 
     ggtitle("Temperatures") +
     xlab("Months") +
     ylab("Frequency") +
     geom_boxplot() +
     scale_fill_discrete(name = "Month", labels = c("May", "June","July", "August", "September"))
p3

## Warning: Continuous x aesthetic -- did you forget aes(group=...)?

Plot 4

p4 <- airquality %>%
     ggplot(aes(Month, Temp, fill = Month)) + 
     ggtitle("Temperatures") +
     xlab("Temperatures") +
     ylab("Frequency") +
     geom_boxplot()+
     scale_fill_grey(name = "Month", labels = c("May", "June","July", "August", "September"))
p4

## Warning: Continuous x aesthetic -- did you forget aes(group=...)?

Plot 5

p5 <- qplot(data = airquality,Ozone,fill = Month,geom = "histogram", bins = 20)
p5

## Warning: Removed 37 rows containing non-finite values (stat_bin).

```

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.