---
title: "Descripción y ejemplos de uso del paquete `presentes`"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Descripción y ejemplos de uso del paquete `presentes`}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

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

```{r setup, include=FALSE}
library(presentes)
library(tidyverse)
library(lubridate)
library(sf)
library(leaflet)
```
<style>
body {
text-align: justify}
</style>

## El paquete `presentes` para R

El paquete `presentes` tiene por objetivo facilitar el acceso a los datos que figuran en los registros estatales sobre las víctimas de la dictadura militar que tuvo lugar entre el 24 de marzo de 1976 y el 10 de diciembre de 1983 en Argentina. 

Las fuentes principales de los datasets incluidos en el paquete son --en primer lugar-- el Registro Único de Víctimas del Terrorismo de Estado (RUVTE) dependiente de la Secretaría de Derechos Humanos y Pluralismo Cultural del Ministerio de Justicia y Derechos Humanos de la Nación, creado por Resolución 1261/2014 de dicho Ministerio (https://datos.gob.ar/dataset/justicia-registro-unificado-victimas-terrorismo-estado--ruvte-). En segundo lugar, el Monumento a las Víctimas del Terrorismo de Estado, realizado por el Consejo de Gestión del Parque de la Memoria y del Monumento a las Víctimas del Terrorismo de Estado, creado por la ley 3078 de la Ciudad de Buenos Aires (http://basededatos.parquedelamemoria.org.ar/). Ambos registros recogen información de víctimas asesinadas o detenidas/desaparecidas aún antes de la fecha del inicio formal del golpe de estado militar. 

En estos listados figuran las víctimas que pudieron identificarse hasta la actualidad. Ambos registros son actualizados periódicamente con la nueva información que pueda recopilarse, tanto espontáneamente o como fruto de los juicios en trámite, como parte de una política pública de Verdad, Memoria y Justicia. Hay que aclarar que estos listados no están completos, y que los organismos de derechos humanos del país (que son parte del órgano de gestión del Monumento del Parque de la Memoria, por ejemplo) estiman que la cantidad de víctimas es de 30.000 detenidos desaparecidos. 

Compartimos esta última apreciación, y por ello decimos que estos 30.000 compañeres detenidos desaparecidos, aún están `presentes` entre nosotros, ahora y siempre.


## Los datasets

En el paquete se encuentran los siguientes datasets

- `apodos`: contiene la información de los apodos que utilizaron las víctimas, clasificado por el número identificador único del ruvte, nombre completo y apellido materno.

- `centros_clandestinos_de_detención`: Contiene el listado de los 762 centros clandestinos de detención (CCD) que se usaron en todo el país, con variables sobre el propietario del lugar de emplazamiento, la denominación, si hoy funciona allí un espacio de memoria, la ubicación completa, y la longitud y la latitud, lo que permite georreferenciarlos.

- `victimas_accionar_represivo_ilegal`: El listado de víctimas con denuncia formal del RUVTE. Incluye 8753 registros al día de la fecha, con datos sobre el año de la denuncia, la tipificación del RUVTE, datos personales, edad al momento del hecho, fecha de la detención o asesinato, lugar de la detención o secuestro, lugar de hallazgo de los restos, provincia y país de nacimiento, y si tiene fotografía, entre otros.

- `victimas_accionar_represivo_ilegal_sin_denuncia_formal`: El listado de víctimas sin denuncia formal del RUVTE. Incluye 784 registros al día de la fecha, con datos sobre el año de la denuncia, la tipificación del RUVTE, datos personales, edad al momento del hecho, fecha del secuestro o asesinato, lugar de la detención o secuestro, lugar de hallazgo de los restos,provincia y país de nacimiento, y si tiene fotografía, y la fuente de la información.

- `parque_de_la_memoria`: Esta es la base de datos del Monumento a las Víctimas del Terrorismo de Estado. Incluye 8751 víctimas al día de la fecha, con variables sobre el nombre, edad, si estaba embarazada, el estado (detenido/a desaparecido/a o asesinado/a), el año del secuestro o asesinato, el domicilio, estado civil, estudios cursados, fecha de nacimiento, lugar del secuestro o asesinato, ocupaciones, apodos, cantidad de hijos, victimas relacionadas, casos relacionados, militancia en organizaciones, artículos en diarios que hablen sobre ella, entre otras. Asimismo, se incluye un link a la página del Monumento.

## Algunos Ejemplos

Con estos datos se pueden hacer numerosos análisis sobre el accionar del terrorismo de Estado en la Argentina. Por ejemplo, puede verse que fueron los primeros años de la dictadura militar aquellos en donde se produjeron mayor cantidad de violaciones a los derechos humanos. O también se puede analizar la edad de las víctimas al momento del secuestro/asesinato.

```{r, warning=FALSE, message=FALSE, fig.show='hold'}
ggplot(data = presentes::parque_de_la_memoria)+
  geom_histogram(aes(x = as.numeric(ano_en_monumento)), stat = "count")+
  labs(subtitle= "Víctimas por año",
       x = "", y = "",
       caption = "Fuente: Monumento del Parque de la Memoria")+
    theme_minimal()

ggplot(data = presentes::parque_de_la_memoria)+
  geom_freqpoly(aes(x = as.numeric(edad), 
                    color = factor(sexo, labels = c("Fem", "Masc", "NA"))), stat = "count", size = 1)+
  labs(subtitle= "Edad al momento del hecho",
       x = "edad", y = "cant",
       caption = "Fuente: Monumento del Parque de la Memoria",
       color = "Sexo")+
  theme_minimal()

```

## Geolocalización

El dataset `centros_clandestinos_de_detención` incluye la longitud y la latitud de los CCD. Con ello pueden graficarse sobre un mapa de nuesto país.

```{r, message=FALSE, warning=FALSE, fig.width=7, fig.height=10}
argentina <- st_read("https://github.com/Demzayat/varios/raw/master/provinciasND.geojson")

ccd <- presentes::centros_clandestinos_detencion %>% 
  filter(!is.na(lon)) %>% 
  st_as_sf(coords = c("lon", "lat"), crs = 4326, remove = FALSE)

ggplot()+
  geom_sf(data = argentina)+
  geom_sf(data = ccd, color = "red")+
  coord_sf(xlim = c(-52, -74), ylim = c(-20, -56), expand = FALSE)+
  labs(title = "Centros Clandestinos de Detención",
       subtitle = "Argentina 1976-1983",
       caption = "Fuente: RUVTE + Presentes")+
  theme_void()
```


También utilizando [leaflet](https://rstudio.github.io/leaflet/) podemos realizar un mapa interactivo que muestre las características de cada CCD

```{r, warning=FALSE, message=FALSE, fig.width=7, fig.height=7}
# Parámetros para usar el mapa base Argenmap del IGN 
# ver https://www.ign.gob.ar/NuestrasActividades/InformacionGeoespacial/ServiciosOGC/Leaflet

am_url = "https://wms.ign.gob.ar/geoserver/gwc/service/tms/1.0.0/mapabase_gris@EPSG%3A3857@png/{z}/{x}/{-y}.png"
am_attribution = '<a href="http://www.ign.gob.ar/AreaServicios/Argenmap/IntroduccionV2" target="_blank">Instituto Geográfico Nacional</a> + <a href="http://www.osm.org/copyright" target="_blank">OpenStreetMap</a>'


labs <- lapply(seq(nrow(centros_clandestinos_detencion)), function(i) {
  paste0( '<p>', centros_clandestinos_detencion[i, "lugar_emplazamiento_propiedad"], '<p></p>', 
          'denominacion: ',centros_clandestinos_detencion[i, "denominacion"], ', ', 
          'espacio_de_memoria: ',centros_clandestinos_detencion[i, "espacio_de_memoria"],'</p><p>', 
          'ubicacion: ',centros_clandestinos_detencion[i, "ubicacion"], '</p>' ) 
})

leaflet(data = centros_clandestinos_detencion) %>% 
  addTiles(urlTemplate = am_url,
           attribution = am_attribution) %>% 
  addMarkers(clusterOptions = markerClusterOptions(),
             lng = ~lon, lat = ~lat, 
             label = lapply(labs, htmltools::HTML))
```

Este mismo dataset contiene la variable `lugar_emplazamiento_propiedad`, sobre la titularidad de la propiedad donde se instaló el CCD. La mayoría son estatales (policía y fuerzas militares), pero también hay unos cincuenta en propiedades no estatales. Podemos ver cuáles son en el siguiente mapa navegable (e interactivo).

```{r, warning=FALSE, message=FALSE, fig.width=7, fig.height=7}
# Establecimientos no estatales
establecimientos <- presentes::centros_clandestinos_detencion %>% 
  filter(lugar_emplazamiento_propiedad %in% c("ESTABLECIMIENTO PRIVADO","PARTICULAR (VIVIENDA O SIMILAR)","SIN ESTABLECER PROPIEDAD","EJÉRCITO / ESTABLECIMIENTO PRIVADO","PARTICULAR (LOCAL)"))


labs <- lapply(seq(nrow(establecimientos)), function(i) {
  paste0( '<p>', establecimientos[i, "lugar_emplazamiento_propiedad"], '<p></p>', 
          'denominacion: ',establecimientos[i, "denominacion"], ', ', 
          'espacio_de_memoria: ',establecimientos[i, "espacio_de_memoria"],'</p><p>', 
          'ubicacion: ',establecimientos[i, "ubicacion"], '</p>' ) 
})


leaflet(data = establecimientos) %>% 
  addTiles(urlTemplate = am_url,
           attribution = am_attribution) %>% 
  addMarkers(clusterOptions = markerClusterOptions(),
             lng = ~lon, lat = ~lat, 
             label = lapply(labs, htmltools::HTML))
```




## Militancia

La base de `parque_de_la_memoria` también tiene, para los casos con datos, la pertenencia de la víctima a alguna organización militante. Puede armarse un cuadro con las primeras 50 organizaciones.

```{r, warning=FALSE}
orga <- unnest(presentes::parque_de_la_memoria, militancia) %>% 
  separate(listado, into = c("orga1", "orga2", "orga3"), sep =" - ")

orga %>% 
  select(orga1,orga2,orga3) %>% 
  gather(value = Organización) %>% 
  group_by(Organización) %>%
  filter(!is.na(Organización)) %>% 
  summarise(Proporción = n()/nrow(.)) %>%
  arrange(desc(Proporción)) %>% 
  mutate(Proporción = scales::percent(Proporción)) %>% 
  top_n(50) %>% 
  knitr::kable()

```