Subtitle
erasmus %>% tabyl(academic_year) %>% adorn_totals()
## academic_year n percent
## 2014-2015 4966 0.0301637
## 2015-2016 26565 0.1613569
## 2016-2017 33200 0.2016582
## 2017-2018 33261 0.2020287
## 2018-2019 33645 0.2043612
## 2019-2020 32998 0.2004313
## Total 164635 1.0000000
#erasmus %>% tabyl(sending_country_code)
erasmus %>% tabyl(special_needs)
## special_needs n percent
## No 162099 0.98459623
## Yes 2536 0.01540377
#Most student sent abroad
disability_data %>% arrange(desc(total_send)) %>% select(country,total_send,special_needs_send,perc_send)
## # A tibble: 35 × 4
## country total_send special_needs_send perc_send
## <chr> <int> <int> <dbl>
## 1 Germany 17155 336 1.96
## 2 Poland 13455 169 1.26
## 3 UK 12219 386 3.16
## 4 Spain 10824 210 1.94
## 5 France 10782 51 0.473
## 6 Hungary 7761 13 0.168
## 7 Romania 7196 7 0.0973
## 8 Turkey 7193 61 0.848
## 9 Slovakia 6305 5 0.0793
## 10 Czech Republic 6086 37 0.608
## # … with 25 more rows
#Most persons with disability sent abroad
disability_data %>% arrange(desc(special_needs_send)) %>% select(country,total_send,special_needs_send,perc_send)
## # A tibble: 35 × 4
## country total_send special_needs_send perc_send
## <chr> <int> <int> <dbl>
## 1 UK 12219 386 3.16
## 2 Germany 17155 336 1.96
## 3 Spain 10824 210 1.94
## 4 Portugal 4453 206 4.63
## 5 Ireland 2765 184 6.65
## 6 Poland 13455 169 1.26
## 7 Bulgaria 4412 143 3.24
## 8 Croatia 4187 93 2.22
## 9 Lithuania 4957 85 1.71
## 10 Iceland 1047 69 6.59
## # … with 25 more rows
#highest perentage of students with disability sent abroad
disability_data %>% arrange(desc(perc_send)) %>% select(country,total_send,special_needs_send,perc_send)
## # A tibble: 35 × 4
## country total_send special_needs_send perc_send
## <chr> <int> <int> <dbl>
## 1 Moldova 108 8 7.41
## 2 Ireland 2765 184 6.65
## 3 Iceland 1047 69 6.59
## 4 Portugal 4453 206 4.63
## 5 Malta 1816 69 3.80
## 6 Bulgaria 4412 143 3.24
## 7 UK 12219 386 3.16
## 8 Armenia 127 4 3.15
## 9 Croatia 4187 93 2.22
## 10 Netherlands 2186 44 2.01
## # … with 25 more rows
#Most student received from abroad
disability_data %>% arrange(desc(total_receive)) %>% select(country,total_receive,special_needs_receive,perc_receive)
## # A tibble: 35 × 4
## country total_receive special_needs_receive perc_receive
## <chr> <int> <int> <dbl>
## 1 Germany 17000 324 1.91
## 2 Poland 13099 166 1.27
## 3 France 12402 104 0.839
## 4 UK 12059 390 3.23
## 5 Spain 11188 202 1.81
## 6 Hungary 7476 3 0.0401
## 7 Turkey 7112 59 0.830
## 8 Romania 6940 16 0.230
## 9 Czech Republic 6107 40 0.655
## 10 Slovakia 6053 4 0.0661
## # … with 25 more rows
#Most persons with disability received from abroad
disability_data %>% arrange(desc(special_needs_receive)) %>% select(country,total_receive,special_needs_receive,perc_receive)
## # A tibble: 35 × 4
## country total_receive special_needs_receive perc_receive
## <chr> <int> <int> <dbl>
## 1 UK 12059 390 3.23
## 2 Germany 17000 324 1.91
## 3 Spain 11188 202 1.81
## 4 Portugal 4351 201 4.62
## 5 Ireland 2757 183 6.64
## 6 Poland 13099 166 1.27
## 7 Bulgaria 4120 140 3.40
## 8 France 12402 104 0.839
## 9 Croatia 4274 93 2.18
## 10 Lithuania 5051 86 1.70
## # … with 25 more rows
#highest perentage of students with disability received from abroad
disability_data %>% arrange(desc(perc_receive)) %>% select(country,total_receive,special_needs_receive,perc_receive)
## # A tibble: 35 × 4
## country total_receive special_needs_receive perc_receive
## <chr> <int> <int> <dbl>
## 1 Iceland 1025 69 6.73
## 2 Ireland 2757 183 6.64
## 3 Portugal 4351 201 4.62
## 4 Malta 1910 69 3.61
## 5 Bulgaria 4120 140 3.40
## 6 UK 12059 390 3.23
## 7 Netherlands 2409 54 2.24
## 8 Croatia 4274 93 2.18
## 9 Sweden 1319 27 2.05
## 10 Germany 17000 324 1.91
## # … with 25 more rows
Combine both maps
library(patchwork)
map_disability_send + map_disability_receive
citation("tidytuesdayR")
##
## To cite package 'tidytuesdayR' in publications use:
##
## Ellis Hughes (2022). tidytuesdayR: Access the Weekly 'TidyTuesday'
## Project Dataset. R package version 1.0.2.
## https://CRAN.R-project.org/package=tidytuesdayR
##
## A BibTeX entry for LaTeX users is
##
## @Manual{,
## title = {tidytuesdayR: Access the Weekly 'TidyTuesday' Project Dataset},
## author = {Ellis Hughes},
## year = {2022},
## note = {R package version 1.0.2},
## url = {https://CRAN.R-project.org/package=tidytuesdayR},
## }
