Week 4: Apply 3

Import data

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

## # A tibble: 32 × 14
##    Team           W     L     T `W-L%`    PF    PA    PD   MoV   SoS   SRS  OSRS
##    <chr>      <dbl> <dbl> <dbl>  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
##  1 Arizona C…     5    10     1  0.344   361   442   -81  -5.1   1.8  -3.2  -0.3
##  2 Atlanta F…     7     9     0  0.438   381   399   -18  -1.1   1.1  -0.1   0.3
##  3 Baltimore…    14     2     0  0.875   531   282   249  15.6   0.1  15.6  11  
##  4 Buffalo B…    10     6     0  0.625   314   259    55   3.4  -1.3   2.2  -3.5
##  5 Carolina …     5    11     0  0.313   340   470  -130  -8.1   1.1  -7    -1.9
##  6 Chicago B…     8     8     0  0.5     280   298   -18  -1.1   0.2  -0.9  -5.4
##  7 Cincinnat…     2    14     0  0.125   279   420  -141  -8.8   1.5  -7.3  -4.4
##  8 Cleveland…     6    10     0  0.375   335   393   -58  -3.6   1.7  -1.9  -0.4
##  9 Dallas Co…     8     8     0  0.5     434   321   113   7.1  -1.8   5.3   3.8
## 10 Denver Br…     7     9     0  0.438   282   316   -34  -2.1   0    -2.1  -4.8
## # ℹ 22 more rows
## # ℹ 2 more variables: DSRS <dbl>, Playoffs <chr>

Plot data

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