Week 4: Apply 3

Import data

# excel file
data <- read_excel("C:/Users/ejp14/OneDrive/Desktop/PSU_DAT3000_IntroToDA/01_module4/data/myData_charts.xlsx", skip = 1)
data

## # A tibble: 5 × 5
##   `Row Labels` `Sum of pass_yds` `Sum of rec_yds` `Sum of rush_yds`
##   <chr>                    <dbl>            <dbl>             <dbl>
## 1 QB                     2009330              296             98458
## 2 RB                         880           233271            786871
## 3 WR/TE                    13466          1790140             92290
## 4 (blank)                     NA               NA                NA
## 5 Grand Total            2023676          2023707            977619
## # ℹ 1 more variable: `Sum of Total Yards` <dbl>

data <- data %>% 
    
    janitor::clean_names()

Plot prices

data %>%
    
    ggplot(aes(sum_of_total_yards)) +
    geom_bar()

## Warning: Removed 1 row containing non-finite outside the scale range
## (`stat_count()`).