Week 4: Apply 3

Import data

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

## # A tibble: 4,340 × 12
##    iso3c country     region income  year population overall_score data_use_score
##    <chr> <chr>       <chr>  <chr>  <dbl>      <dbl> <chr>                  <dbl>
##  1 DNK   Denmark     Europ… High …  2023    5946952 95.255833333…            100
##  2 FIN   Finland     Europ… High …  2023    5584264 95.115416666…            100
##  3 POL   Poland      Europ… High …  2023   36685849 94.65375                 100
##  4 SWE   Sweden      Europ… High …  2023   10536632 94.41                    100
##  5 ESP   Spain       Europ… High …  2023   48373336 94.325                   100
##  6 NLD   Netherlands Europ… High …  2023   17879488 94.3225                  100
##  7 SVN   Slovenia    Europ… High …  2023    2120937 94.220416666…            100
##  8 PRT   Portugal    Europ… High …  2023   10525347 93.778333333…            100
##  9 ITA   Italy       Europ… High …  2023   58761146 93.638750000…            100
## 10 NOR   Norway      Europ… High …  2023    5519594 93.556666666…            100
## # ℹ 4,330 more rows
## # ℹ 4 more variables: data_services_score <chr>, data_products_score <chr>,
## #   data_sources_score <chr>, data_infrastructure_score <chr>

Plot region

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