Busca dados do censo sobre acesso a abastecimento de água na rede central

agua_domicilios.r

domicilio_municipios_tipo_abastecimento_agua<-
  get_sidra(x = 6804,
            variable = c(1000381),
            #period = c("last" = 12),
            geo =  "City",
            #geo.filter = "RS",
            classific = "c301",
            category =  list(c(31471)), 
            header = FALSE,
            format = 3)


domicilio_municipios_tipo_abastecimento_agua %>%
  mutate(tipo_municipio = ifelse(str_detect( str_to_lower(D1N),"água"), 
                                 "Município com água no nome",
                                 "Município sem água no nome")) %>%
  ggplot(aes(x=tipo_municipio, y= V)) +
  geom_boxplot() +
  theme_light() +
  theme(
    panel.background = element_rect(fill = "lightblue"),
    panel.grid =  element_blank()
  ) +
  labs(title = "Abastecimento de água da rede geral de distribuição ",
       subtitle =  "Proporção de residências por cidade",
       y= "%",
       x="",
       caption= "Fonte: Censo 2022 - IBGE")