Import data
# excel file
data <- read_excel("../00_data/myData1.xlsx")
data
## # A tibble: 10,878 × 2
## team_name home
## <chr> <dbl>
## 1 49ers 550459
## 2 Bears 497954
## 3 Benglas 476364
## 4 Bills 539234
## 5 Broncos 607991
## 6 Browns 555725
## 7 Buccaneers 489756
## 8 Cardinals 452536
## 9 Chargers 466237
## 10 Cheifs 598235
## # … with 10,868 more rows
State one question
What NFL team had the highest average attendance between
2000-2020
Plot data
ggplot(data = head(data, 31)) +
geom_point(mapping = aes(x = team_name, y = home)) +
theme(axis.text.x = element_text(angle = 90))
Interpret
According to the plot the Redskins had the highest average home
attendance between 2000-2020.