README.md

BRAZILIAN RACIAL INEQUALITY: THE {BRI} PACKAGE

R-CMD-check lint Lifecycle:
experimental

{bri} [/brē/] is a tidy and sf-ready data package focused in facilitate plotting racial inequality in Brazilian municipalities.

Installation

You can install the development version of the package at GitHub:

# install.packages("devtools")
devtools::install_github("albersonmiranda/bri")

Examples

This is a basic example that shows how to plot income inequality between blacks and yellows in the municipalities of São Paulo, showing top 3 municipalities of highest income and bottom 3 of the lowest, labelling only the ones with sample size greater than 1000 workers of each selected ethnicity:

library(bri)

bri_plot("SP", etnia = c("PRETO", "AMARELO"), fonte = "rais", ref = "2017",
         n_nomes = 3, p_nomes = 1000, to = 7000, by = 1400,
         caption = "source: Rais/2017 | elaboração: @albersonmiranda",
         title = "RACIAL INEQUALITY",
         subtitle = "BLACK VERSUS YELLOW WAGES")

{Patchwork} can also be used to control the layout of the final plot:

library(patchwork)

bri_plot("RO", etnia = c("PRETO", "PARDO", "BRANCO", "INDIGENA"),
    tipo = "pobreza", n_nomes = 1,
    caption = "dados: censo/2010 | elaboração: @albersonmiranda",
    title = "DESIGUALDADE RACIAL",
    subtitle = "% DE POBRES EM RONDÔNIA") +
  plot_layout(ncol = 2)

It is possible to go further and combine several bri_plot() with different arguments:


library(ggplot2)

design = "
AABBCC
AABBDD
"
bri_plot("ES", etnia = c("PRETO", "BRANCO"), ref = "2010",
    caption = "dados: censo/IBGE | elaboração: @albersonmiranda",
    title =  "DESIGUALDADE RACIAL NO ESPIRITO SANTO",
    subtitle = "EVOLUÇÃO DAS RENDAS PRETA E BRANCA") *
  ggtitle("2010") +

  bri_plot("ES", etnia = c("PRETO", "BRANCO"), ref = "1991", n_nomes = 1,
      bar = FALSE) * ggtitle("1991") +

  bri_plot("ES", etnia = c("PRETO", "BRANCO"), ref = "2000", n_nomes = 1,
      bar = FALSE) * ggtitle("2000") +

  plot_layout(design = design)



albersonmiranda/bri documentation built on July 5, 2020, 11 a.m.