Mulheres e o Mercado de Trabalho

Introdução

Este trabalho utiliza dados da tabela 4093 do SIDRA para analisar as mulheres no mercado de trabalho no segundo trimestre de 2024.

library(sidrar)
library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

library(ggplot2)
library(leaflet)
library(geobr)
library(sf)

Linking to GEOS 3.12.1, GDAL 3.8.4, PROJ 9.4.0; sf_use_s2() is TRUE

library(DT)

Dados

dados <- get_sidra( api = "/t/4093/n3/all/v/4099/p/202402/c2/6794")

All others arguments are desconsidered when 'api' is informed

dados_limpos <- dados %>%
  select(  Estado = `Unidade da Federação`, Valor )

Tabela

datatable(dados_limpos)

Gráfico

Gráfico

ggplot(
  dados_limpos,
  aes(
    x = reorder(Estado, Valor),
    y = Valor
  )
) +
  geom_col() +
  coord_flip() +
  labs(
    title = "Mulheres no mercado de trabalho",
    x = "Estado", y = "Valor" )

Mapa

mapa <- read_state(year = 2024)

dados_limpos$name_state <- dados_limpos$Estado

mapa_final <- left_join(
  mapa,
  dados_limpos,
  by = "name_state"
)

paleta <- colorNumeric(
  palette = "Purples",
  domain = mapa_final$Valor,
  na.color = "gray90"
)

leaflet(mapa_final) %>%
  addTiles() %>%
  addPolygons(
    fillColor = ~paleta(Valor),
    fillOpacity = 0.8,
    color = "white",
    weight = 1,
    popup = ~paste(
      "<b>Estado:</b>", name_state,
      "<br><b>Valor:</b>", Valor
    )
  ) %>%
  addLegend(
    pal = paleta,
    values = ~Valor,
    title = "Mulheres no mercado de trabalho"
  )

---