Week 4: Apply 3

Import data

# excel file
data <- read_excel("C:/Users/ejp14/OneDrive/Desktop/PSU_DAT3000_IntroToDA/01_module4/data/Book1.xlsx")
data

## # A tibble: 3 × 2
##   NFL.Position Average.Yards
##   <chr>                <dbl>
## 1 QB                   193. 
## 2 HB                    28.9
## 3 WR/TE                 31.2

Plot Data

data %>%
    
    ggplot(aes(x = NFL.Position, y = Average.Yards)) +
    geom_col() + 
    labs(title = "Average Yards by Position 2000-2017")