Dodgers Data-Joelyne Tocao, Tais Contreras, & Abigayl Ontiveros

data <- read.csv("DodgersData.csv")

library(ggplot2)

mean(data$attend)

## [1] 41040.07

median(data$attend)

## [1] 40284

library(ggplot2)
ggplot(data, aes(x = attend, fill = day_night)) + 
  geom_histogram(bins = 80, col = "black") + 
  scale_fill_manual(values = c("blue", "white")) +
  ggtitle("Dodgers attendees Day Vs. Night")