Week 4: Apply 3

Import data

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

## # A tibble: 271,116 × 16
##    Column1     id name  sex   age   height weight team  noc   games  year season
##      <dbl>  <dbl> <chr> <chr> <chr> <chr>  <chr>  <chr> <chr> <chr> <dbl> <chr> 
##  1  270479 135289 Zzim… M     20    NA     NA     Braz… BRA   1952…  1952 Summer
##  2  207677 104222 zzet… M     26    178    74     Turk… TUR   2016…  2016 Summer
##  3  102956  52087 zzet… M     23    172    85     Turk… TUR   2004…  2004 Summer
##  4  102957  52087 zzet… M     27    172    85     Turk… TUR   2008…  2008 Summer
##  5  106601  53910 Zyta… F     26    187    85     Pola… POL   1988…  1988 Summer
##  6  219493 110259 Zygm… M     25    185    82     Pola… POL   1932…  1932 Summer
##  7  183779  92370 Zygm… M     21    179    72     Pola… POL   1952…  1952 Summer
##  8  183780  92370 Zygm… M     26    179    72     Pola… POL   1956…  1956 Summer
##  9  152047  76313 Zygm… M     27    175    71     Pola… POL   1972…  1972 Summer
## 10  152048  76313 Zygm… M     31    175    71     Pola… POL   1976…  1976 Summer
## # ℹ 271,106 more rows
## # ℹ 4 more variables: city <chr>, sport <chr>, event <chr>, medal <chr>

Plot data

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