In Edouard-Legoupil/unhcrdatapackage: UNHCR Population Statistics Database with Chart Library and Factsheet Template

knitr::opts_chunk$set(
  collapse = TRUE,
  echo=TRUE,
  comment = "#>"
)

Load Packages

library(tidyverse)

Prepare Data

thisbureau <- "Americas"
lastyear <- max(unhcrdatapackage::end_year_population_totals_long$Year)

end_year_population_totals_long.asy <- dplyr::left_join( x= unhcrdatapackage::end_year_population_totals_long, 
                                                     y= unhcrdatapackage::reference, 
                                                     by = c("CountryAsylumCode" = "iso_3"))


## Map showing the venezuelan exodus
allVene <- end_year_population_totals_long.asy %>%
  filter(  Year == lastyear &
           Population.type != "IDP"  &
           CountryOriginCode == "VEN"&
           CountryAsylumCode != "VEN") %>%
  group_by( CountryAsylumName, Latitude, Longitude) %>%
  summarise(Value2 = sum(Value) )  %>%
  mutate(Label = format(round(Value2, -3),  big.mark=","))  %>%
 # mutate(Label2 = unhcRstyle::format_si()Value2)  %>%  # unhcRstyle::format_si(100000000)
  arrange(desc(Value2)) %>%
  head(9) # %>%  
  ## Change to robinson  world projection
  #  mutate %>% 

## Getting world map for mapping
world <- 
rnaturalearth::ne_countries(scale = "small", returnclass = "sf") %>%
  filter(continent == "North America" | continent == "South America")
## Remove Antartica
world <- world[ world$sov_a3 != "ATA", ]

Generate Plot

# plot
allveneplot <- ggplot(data = world) + 
  geom_sf(fill = "antiquewhite", colour = "#7f7f7f", size = 0.2) + 
  #coord_sf(xlim = c(-25, 65), ylim = c(25, 75), expand = FALSE) + ## Clipping on Mediterranean Sea
  geom_point(data = allVene, aes(x = Longitude, y = Latitude , size = Value2 ), 
             alpha = 0.6, colour = "red") +
  scale_size_area( max_size = 20) +

  ggrepel::geom_label_repel(   data = allVene ,
    mapping = aes(x = Longitude, y = Latitude,
      label = stringr::str_glue(
        "{CountryAsylumName}\n{Label} ")  # how label displays
      ), 
    size = 3,                                              # text size in labels
    min.segment.length = 0)+                               # show all line segments  

 #   coord_sf(crs = "+proj=robin") +
  labs(title = "All Top 10 Countries hosting Venezuelans of Concern are in the Americas",
       subtitle = "As of 2020",
       x = "",
       y = "",
       caption = "Source: UNHCR.org/refugee-statistics ") + 

  unhcRstyle::unhcr_theme(base_size = 8)  + ## Insert UNHCR Style
  theme(#panel.grid.major = element_line(color = gray(.5),  linetype = "dashed", size = 0.5),
        panel.grid.major = element_blank(),
        panel.background = element_rect(fill = "aliceblue"),
        axis.text.x  = element_blank(),
        axis.text.y  = element_blank(),
        legend.position = "none"
        )

allveneplot 

Edouard-Legoupil/unhcrdatapackage documentation built on Nov. 6, 2023, 6:10 p.m.