Import data

# excel file
data <- read_excel("MyData4.xlsx")
data

State one question

What is the relationship between NFL season record and attendence?

Plot data

ggplot(data = data) +
    geom_point(mapping = aes(x = W, y = Capacity), alpha = .3)

Interpret

The data does not indicate a significant coorelation between season record and attendence; some of the teams with the worst records had the best turnout.