install.packages(“readr”) library(readr) install.packages(“tidyverse”) library(tidyverse)

College football attendance

attendance <- read.csv(“https://myxavier-my.sharepoint.com/:x:/g/personal/soethoutc_xavier_edu/ESHAV8BxfPVBg3nj8JUu2IAB5X_duQyYzEkOmFJ8BPsd9Q?download=1”)

#1 Which Conference has the highest attendance? # The SEC has the highest attendance, but the BIG 10 is close behind attendance %>% group_by(conference) %>% summarise(avg_attendance = mean(attendance)) %>% ggplot(aes(conference, avg_attendance)) + geombar()