Import data
# excel file
data <- read_excel("../00_data/myData.xlsx")
data
## # A tibble: 30 × 8
## team team_name year total home away week weekly_attendance
## <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <chr>
## 1 Arizona Cardinals 2000 893926 387475 506451 1 77434
## 2 Atlanta Falcons 2000 964579 422814 541765 1 54626
## 3 Baltimore Ravens 2000 1062373 551695 510678 1 55049
## 4 Buffalo Bills 2000 1098587 560695 537892 1 72492
## 5 Carolina Panthers 2000 1095192 583489 511703 1 80257
## 6 Chicago Bears 2000 1080684 535552 545132 1 64104
## 7 Cincinnati Bengals 2000 967434 469992 497442 1 NA
## 8 Cleveland Browns 2000 1057139 581544 475595 1 72418
## 9 Dallas Cowboys 2000 1075470 504360 571110 1 62872
## 10 Denver Broncos 2000 1140030 604042 535988 1 65956
## # ℹ 20 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.