Week 4: Apply 3

Import data

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

## # A tibble: 949 × 22
##       id pokemon    species_id height weight base_experience type_1 type_2    hp
##    <dbl> <chr>           <dbl>  <dbl>  <dbl>           <dbl> <chr>  <chr>  <dbl>
##  1     1 bulbasaur           1    0.7    6.9              64 grass  poison    45
##  2     2 ivysaur             2    1     13               142 grass  poison    60
##  3     3 venusaur            3    2    100               236 grass  poison    80
##  4     4 charmander          4    0.6    8.5              62 fire   NA        39
##  5     5 charmeleon          5    1.1   19               142 fire   NA        58
##  6     6 charizard           6    1.7   90.5             240 fire   flying    78
##  7     7 squirtle            7    0.5    9                63 water  NA        44
##  8     8 wartortle           8    1     22.5             142 water  NA        59
##  9     9 blastoise           9    1.6   85.5             239 water  NA        79
## 10    10 caterpie           10    0.3    2.9              39 bug    NA        45
## # ℹ 939 more rows
## # ℹ 13 more variables: attack <dbl>, defense <dbl>, special_attack <dbl>,
## #   special_defense <dbl>, speed <dbl>, color_1 <chr>, color_2 <chr>,
## #   color_f <chr>, egg_group_1 <chr>, egg_group_2 <chr>, url_icon <chr>,
## #   generation_id <dbl>, url_image <chr>

Plot Data

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