---
title: "Recodificar distritos"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{recodificacion}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE, echo = F}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```




```{r setup, echo=TRUE}
library(geofaceteAR)
library(patchwork)
```


Ejemplo con grilla de Argetnina. Los valores por defecto del código de provincias corresponden al `codprov` de los escrutinios provisorios de INDRA. 


```{r echo=T, message=FALSE, warning=FALSE, paged.print=FALSE}
# GRILLA POR DEFECTO
get_grid("ARGENTINA")

```


En el siguiente ejemplo podemos ver las tres opciones disponibles para el nivel provincial (*indra*, *iso*, *indec*). El primer objeto `argentina_indra` es similar al anterior, que viene con códigos por defecto. Los dos restantes corresponden a las versiones recodificadas. 

```{r echo=TRUE, message=FALSE, warning=FALSE}
# CODIGOS DE INDRA (POR DEFECTO)
argentina_indra <- get_grid("ARGENTINA") %>% 
  recode_district(type = "indra")

# CODIGOS ISO
argentina_iso <- get_grid("ARGENTINA") %>% 
  recode_district(type = "iso")

# CODIGOS DE INDEC 
argentina_indec <- get_grid("ARGENTINA") %>% 
  recode_district(type = "indec")

```

Imprimimoos los de `argentina_indec` y observamos los cambios en `code`:

```{r echo=FALSE}

argentina_indec

```



Estos comandos pueden ser utiles para *linkear* más facilmente una base de datos que estemos usando, con `id` de distrito especifico, con la grilla correspondiente para un gráfico de `ggplot2`. De esta forma podemos acomodar las funciones `facet` con una aproximación geográfica con `facet_geo`de `geofacet`. Otro ejemplo de esto puede encontrarse en este [post](https://tuqmano.github.io/2019/01/21/geofacetear/).

Todas las funciones de `geofacet` están disponibles al cargar `geofaceteAR`. Así, por ejemplo, podemos inspeccionar el diseño de las grillas con `grid_preview()`:

```{r message=FALSE, warning=FALSE, include=FALSE, paged.print=FALSE}



# TODAS LAS GRILLAS

grid_preview(argentina_indra) -> a


grid_preview(argentina_iso) -> b


grid_preview(argentina_indec) -> c


(a + b + c)





```


```{r echo=FALSE, message=FALSE, warning=FALSE, paged.print=FALSE}

(a + b + c)


```