Week 4: Apply 3

Import data

# excel file
data <- read_excel("../00_data/My Data_charts.xlsx")

## Warning: Expecting logical in I1012 / R1012C9: got 't'

## New names:
## • `` -> `...5`
## • `` -> `...6`
## • `` -> `...7`
## • `` -> `...8`
## • `` -> `...9`

data

## # A tibble: 1,011 × 9
##    Country     Column1 Year  Age                ...5  ...6  ...7  ...8  ...9 
##    <chr>       <chr>   <chr> <chr>              <lgl> <lgl> <lgl> <lgl> <lgl>
##  1 Entity      Code    Year  LifeExpectancy     NA    NA    NA    NA    NA   
##  2 Afghanistan AFG     1950  27.727499999999999 NA    NA    NA    NA    NA   
##  3 Afghanistan AFG     1951  27.9634            NA    NA    NA    NA    NA   
##  4 Afghanistan AFG     1952  28.445599999999999 NA    NA    NA    NA    NA   
##  5 Afghanistan AFG     1953  28.930399999999999 NA    NA    NA    NA    NA   
##  6 Afghanistan AFG     1954  29.2258            NA    NA    NA    NA    NA   
##  7 Afghanistan AFG     1955  29.9206            NA    NA    NA    NA    NA   
##  8 Afghanistan AFG     1956  30.407800000000002 NA    NA    NA    NA    NA   
##  9 Afghanistan AFG     1957  30.945799999999998 NA    NA    NA    NA    NA   
## 10 Afghanistan AFG     1958  31.506599999999999 NA    NA    NA    NA    NA   
## # ℹ 1,001 more rows

Plot prices

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