Question 1

The mean attendance was 41,040.07, and the median attendance was 40,284. I would use the median to describe typical attendance because it is less affected by unusually high or low attendance values. The mean and median are fairly close, which suggests that the attendance data is relatively balanced.

Question 2

library(ggplot2)

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

ggplot(data, aes(x = attend)) +
  geom_histogram(binwidth = 5000, fill = "blue", color = "white") +
  labs(
    title = "Dodgers Game Attendance",
    x = "Attendance",
    y = "Number of Games"
  ) +
  theme_minimal()