Week 4: Apply 3

Import data

# csv file
data <- read_csv("data/myData.csv")

## Rows: 1024 Columns: 16
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (4): name, generation, type, abilities
## dbl (9): id, height, weight, hp, attack, defense, special-attack, special-de...
## lgl (3): is_baby, is_legendary, is_mythical
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

data

## # A tibble: 1,024 × 16
##    name       id height weight is_baby is_legendary is_mythical generation type 
##    <chr>   <dbl>  <dbl>  <dbl> <lgl>   <lgl>        <lgl>       <chr>      <chr>
##  1 bulbas…     1      7     69 FALSE   FALSE        FALSE       generatio… gras…
##  2 ivysaur     2     10    130 FALSE   FALSE        FALSE       generatio… gras…
##  3 venusa…     3     20   1000 FALSE   FALSE        FALSE       generatio… gras…
##  4 charma…     4      6     85 FALSE   FALSE        FALSE       generatio… fire 
##  5 charme…     5     11    190 FALSE   FALSE        FALSE       generatio… fire 
##  6 chariz…     6     17    905 FALSE   FALSE        FALSE       generatio… fire…
##  7 squirt…     7      5     90 FALSE   FALSE        FALSE       generatio… water
##  8 wartor…     8     10    225 FALSE   FALSE        FALSE       generatio… water
##  9 blasto…     9     16    855 FALSE   FALSE        FALSE       generatio… water
## 10 caterp…    10      3     29 FALSE   FALSE        FALSE       generatio… bug  
## # ℹ 1,014 more rows
## # ℹ 7 more variables: abilities <chr>, hp <dbl>, attack <dbl>, defense <dbl>,
## #   `special-attack` <dbl>, `special-defense` <dbl>, speed <dbl>

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

Plot prices

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