Return ggplot2 styling for histogram
kobo_unhcr_style_histo()
Return UNHCR Style
Edouard Legoupil - with inspiration from bbc
kobo_unhcr_style_histo()#> List of 20 #> $ axis.title : list() #> ..- attr(*, "class")= chr [1:2] "element_blank" "element" #> $ axis.text :List of 11 #> ..$ family : chr "Lato" #> ..$ face : NULL #> ..$ colour : chr "#222222" #> ..$ size : num 11 #> ..$ hjust : NULL #> ..$ vjust : NULL #> ..$ angle : NULL #> ..$ lineheight : NULL #> ..$ margin : NULL #> ..$ debug : NULL #> ..$ inherit.blank: logi FALSE #> ..- attr(*, "class")= chr [1:2] "element_text" "element" #> $ axis.text.x :List of 11 #> ..$ family : NULL #> ..$ face : NULL #> ..$ colour : NULL #> ..$ size : NULL #> ..$ hjust : NULL #> ..$ vjust : NULL #> ..$ angle : NULL #> ..$ lineheight : NULL #> ..$ margin : 'margin' num [1:4] 5points 0points 9points 0points #> .. ..- attr(*, "unit")= int 8 #> ..$ debug : NULL #> ..$ inherit.blank: logi FALSE #> ..- attr(*, "class")= chr [1:2] "element_text" "element" #> $ axis.ticks : list() #> ..- attr(*, "class")= chr [1:2] "element_blank" "element" #> $ axis.line : list() #> ..- attr(*, "class")= chr [1:2] "element_blank" "element" #> $ legend.background : list() #> ..- attr(*, "class")= chr [1:2] "element_blank" "element" #> $ legend.key : list() #> ..- attr(*, "class")= chr [1:2] "element_blank" "element" #> $ legend.text :List of 11 #> ..$ family : chr "Lato" #> ..$ face : NULL #> ..$ colour : chr "#222222" #> ..$ size : num 9 #> ..$ hjust : NULL #> ..$ vjust : NULL #> ..$ angle : NULL #> ..$ lineheight : NULL #> ..$ margin : NULL #> ..$ debug : NULL #> ..$ inherit.blank: logi FALSE #> ..- attr(*, "class")= chr [1:2] "element_text" "element" #> $ legend.text.align : num 0 #> $ legend.title : list() #> ..- attr(*, "class")= chr [1:2] "element_blank" "element" #> $ legend.position : chr "top" #> $ panel.background : list() #> ..- attr(*, "class")= chr [1:2] "element_blank" "element" #> $ panel.grid.minor : list() #> ..- attr(*, "class")= chr [1:2] "element_blank" "element" #> $ panel.grid.major.x: list() #> ..- attr(*, "class")= chr [1:2] "element_blank" "element" #> $ panel.grid.major.y:List of 6 #> ..$ colour : chr "#cbcbcb" #> ..$ size : NULL #> ..$ linetype : NULL #> ..$ lineend : NULL #> ..$ arrow : logi FALSE #> ..$ inherit.blank: logi FALSE #> ..- attr(*, "class")= chr [1:2] "element_line" "element" #> $ plot.title :List of 11 #> ..$ family : chr "Lato" #> ..$ face : chr "bold" #> ..$ colour : chr "#222222" #> ..$ size : num 12 #> ..$ hjust : NULL #> ..$ vjust : NULL #> ..$ angle : NULL #> ..$ lineheight : NULL #> ..$ margin : NULL #> ..$ debug : NULL #> ..$ inherit.blank: logi FALSE #> ..- attr(*, "class")= chr [1:2] "element_text" "element" #> $ plot.subtitle :List of 11 #> ..$ family : chr "Lato" #> ..$ face : NULL #> ..$ colour : NULL #> ..$ size : num 11 #> ..$ hjust : NULL #> ..$ vjust : NULL #> ..$ angle : NULL #> ..$ lineheight : NULL #> ..$ margin : 'margin' num [1:4] 9points 0points 9points 0points #> .. ..- attr(*, "unit")= int 8 #> ..$ debug : NULL #> ..$ inherit.blank: logi FALSE #> ..- attr(*, "class")= chr [1:2] "element_text" "element" #> $ plot.caption :List of 11 #> ..$ family : chr "Lato" #> ..$ face : NULL #> ..$ colour : chr "#939184" #> ..$ size : num 6 #> ..$ hjust : num 0.92 #> ..$ vjust : NULL #> ..$ angle : NULL #> ..$ lineheight : NULL #> ..$ margin : 'margin' num [1:4] 0.2cm 0cm 0cm 0cm #> .. ..- attr(*, "unit")= int 1 #> ..$ debug : NULL #> ..$ inherit.blank: logi FALSE #> ..- attr(*, "class")= chr [1:2] "element_text" "element" #> $ strip.background :List of 5 #> ..$ fill : chr "white" #> ..$ colour : NULL #> ..$ size : NULL #> ..$ linetype : NULL #> ..$ inherit.blank: logi FALSE #> ..- attr(*, "class")= chr [1:2] "element_rect" "element" #> $ strip.text :List of 11 #> ..$ family : NULL #> ..$ face : NULL #> ..$ colour : NULL #> ..$ size : num 11 #> ..$ hjust : num 0 #> ..$ vjust : NULL #> ..$ angle : NULL #> ..$ lineheight : NULL #> ..$ margin : NULL #> ..$ debug : NULL #> ..$ inherit.blank: logi FALSE #> ..- attr(*, "class")= chr [1:2] "element_text" "element" #> - attr(*, "class")= chr [1:2] "theme" "gg" #> - attr(*, "complete")= logi FALSE #> - attr(*, "validate")= logi TRUE