library(tidyverse)

refugees <- read_csv("population.csv", skip = 14)

refugees %>% head()
Rows: 33755 Columns: 12
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (5): Country of origin, Country of origin (ISO), Country of asylum, Coun...
dbl (7): Year, Refugees under UNHCR's mandate, Asylum-seekers, IDPs of conce...

ℹ 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.
A tibble: 6 × 12
Year Country of origin Country of origin (ISO) Country of asylum Country of asylum (ISO) Refugees under UNHCR's mandate Asylum-seekers IDPs of concern to UNHCR Other people in need of international protection Stateless persons Host Community Others of concern
<dbl> <chr> <chr> <chr> <chr> <dbl> <dbl> <dbl> <chr> <dbl> <dbl> <dbl>
2018 Afghanistan AFG Afghanistan AFG 0 0 2106893 - 0 0 489854
2018 Bangladesh BGD Afghanistan AFG 0 5 0 - 0 0 0
2018 Iran (Islamic Rep. of) IRN Afghanistan AFG 34 9 0 - 0 0 0
2018 Pakistan PAK Afghanistan AFG 72194 121 0 - 0 0 0
2018 Tajikistan TJK Afghanistan AFG 0 7 0 - 0 0 0
2018 Türkiye TUR Afghanistan AFG 0 139 0 - 0 0 0 
refugees %>%
    filter(`Country of origin (ISO)` %in% c("AFG", "SYR")) %>%
    filter(Year == max(Year)) %>%
    group_by(`Country of origin (ISO)`) %>%
    slice_max(`Refugees under UNHCR's mandate`, n = 3)
A grouped_df: 6 × 12
Year Country of origin Country of origin (ISO) Country of asylum Country of asylum (ISO) Refugees under UNHCR's mandate Asylum-seekers IDPs of concern to UNHCR Other people in need of international protection Stateless persons Host Community Others of concern
<dbl> <chr> <chr> <chr> <chr> <dbl> <dbl> <dbl> <chr> <dbl> <dbl> <dbl>
2023 Afghanistan AFG Iran (Islamic Rep. of) IRN 3752317 0 0 - 0 0 0
2023 Afghanistan AFG Pakistan PAK 1987717 61451 0 - 0 0 49
2023 Afghanistan AFG Germany DEU 255077 44781 0 - 0 0 0
2023 Syrian Arab Rep. SYR Türkiye TUR 3214780 0 0 - 0 0 0
2023 Syrian Arab Rep. SYR Lebanon LBN 784884 0 0 - 0 0 3026
2023 Syrian Arab Rep. SYR Germany DEU 705812 72642 0 - 0 0 0