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

knitr::opts_chunk$set(echo = FALSE, fig.cap = TRUE, warning = FALSE, message = FALSE)
library(officedown)
library(unhcrthemes)
library(ggplot2)
library(rvg)
library(tidyverse)
library(scales)
library(lubridate)

##  make sure to get last version of the data
if ( packageVersion("ForcedDisplacementStat") != "0.0.1"){pak::pkg_install("edouard-legoupil/ForcedDisplacementStat")}
library(ForcedDisplacementStat)

##  make sure to get last version of the chart library
if ( packageVersion("unhcrdatapackage") != "0.1.8"){pak::pkg_install("edouard-legoupil/unhcrdatapackage")}
library(unhcrdatapackage)

# turn off the automatic use of showtext functionality, so that the dml function can works properly
showtext::showtext_auto(FALSE) 

---

plot_reg_treemap(year = params$year,  
                 region = params$region) -> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_share(year = params$year,
                region = params$region,
                             pop_type = "REF") -> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_share(year = params$year,
                region = params$region,
                             pop_type = "ASY") -> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_share(year = params$year,
                region = params$region,
                             pop_type = "OIP") -> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_share(year = params$year,
                region = params$region,
                             pop_type = "IDP") -> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_share(year = 2022,  
                region = params$region,
                             pop_type = "STA") -> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_evolution(year = params$year,  
                   region = params$region,
                   lag = 5, 
                   pop_type =  c( "REF", "IDP", "ASY", "OOC", "STA", "OIP"))-> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_population_type_per_year(year = params$year,  
                                  region = params$region,
                                  lag = 5,
                                  pop_type = c("REF",
                                       "ASY",
                                       "OIP",
                                       "OOC",
                                       "STA",
                                       "IDP" ))  -> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_population_type_abs(year = params$year,  
                             region = params$region,
                              top_n_countries = 5,
                              pop_type = "REF"
                              ) -> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_population_type_abs(year = params$year,  
                             region = params$region,
                              top_n_countries = 5,
                              pop_type = "ASY"
                              ) -> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_decrease(year = params$year,
                  region = params$region,
                  lag = 5,
                  topn = 5,
                  pop_type = c("REF", "ASY", "OIP")) -> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_increase(year = params$year,
                  region = params$region,
                  lag = params$lag,
                  topn = 5,
                  pop_type = c("REF", "ASY", "OIP")) -> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_rsd(year = 2022,
             region = "Americas" ,
                        top_n_countries = 10, 
                        measure = "Recognized")-> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_rsd(year = 2022,
             region = "Americas" ,
                        top_n_countries = 5, 
                        measure = "ComplementaryProtection")-> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_rsd(year = 2022,
             region = "Americas" ,
                        top_n_countries = 10, 
                        measure = "TotalDecided")-> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_rsd(year = 2022,
             region = "Americas" ,
                        top_n_countries = 10, 
                        measure = "RefugeeRecognitionRate")-> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_rsd(year = 2022,
             region = "Americas" ,
                        top_n_countries = 10, 
                        measure = "TotalRecognitionRate")-> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_map(  year = params$year,
                  region = params$region,
                            topn = 5,
                            pop_type =  c("REF", "ASY", "OIP"),
                            projection = "Mercator",
                            maxSymbolsize = .25)  

---

plot_reg_origin_dest(year = params$year,
                  region = params$region)  

---

plot_reg_prop_origin(year = params$year,
                  region = params$region) -> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

---

plot_reg_solution(year = params$year,
                  region = params$region,
                            lag = params$lag)-> p
dml(ggobj = p, fonts = list(serif = 'Lato'))

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