Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/Nicolas-Schmidt/puy
Políticos Uruguayos
https://github.com/Nicolas-Schmidt/puy
Last synced: about 2 months ago
JSON representation
Políticos Uruguayos
- Host: GitHub
- URL: https://github.com/Nicolas-Schmidt/puy
- Owner: Nicolas-Schmidt
- Created: 2020-09-16T19:19:35.000Z (about 4 years ago)
- Default Branch: master
- Last Pushed: 2021-09-20T20:33:23.000Z (about 3 years ago)
- Last Synced: 2024-05-19T23:37:25.790Z (4 months ago)
- Language: R
- Homepage: https://nicolas-schmidt.github.io/puy/
- Size: 17.3 MB
- Stars: 2
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
Awesome Lists containing this project
README
---
output: github_document
---
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "100%"
)
```
## `puy`: políticos uruguayos 
*Nicolás Schmidt, Daniel Chasquetti, Antonio Cardarello, Alfonso Castiglia, Fabricio Carneiro, Diego Luján, Felipe Monestier, UMAD1.*
[](https://CRAN.R-project.org/package=puy)
[](https://www.repostatus.org/#active)
[](https://lifecycle.r-lib.org/articles/stages.html)
`r badger::badge_devel("Nicolas-Schmidt/puy", "orange")`
[](https://github.com/Nicolas-Schmidt/puy/actions)
### Descripción
Contiene un conjunto de datos original de políticos uruguayos que ocuparon diversos cargos públicos: Presidentes, Ministros, Intendentes, Senadores, Diputados, Alcaldes, Concejales Municipales, Ministros de Corte Electoral entre otros. Esta base de datos permite seguir la trayectoria de un político a lo largo de su carrera y los distintos cargos que fue ocupando. Asimismo, es de gran utilidad para tener la identificación partidaria de los políticos en el tiempo para poder empalmar con otros conjuntos de datos en donde la unidad de análisis sea el político. El ejemplo inmediato de esto último es la base de datos que se genera a partir de los diarios de sesión del parlamento con el paquete [`speech()`](https://nicolas-schmidt.github.io/speech/).
El manual del paquete se puede encontrar [__aquí__](https://github.com/Nicolas-Schmidt/puy/blob/master/man/figures/Manual_puy.pdf).
> En la foto del logo aparece José Batlle y Ordóñez hablando desde la plataforma del vagón de un tren durante una gira política en el departamento de Treinta y Tres en 19192.
### Instalación
``` r
remotes::install_github("Nicolas-Schmidt/puy")
```
### Contenido del paquete
#### Conjuntos de datos
##### `politicos`
| Variable | Descripción |
| ----------------- | ------------------------------------------------------------------------------------------ |
| `politico` | Nombre completo del politico en el formato: 'APELLIDO, Nombre' |
| `partido` | Partido al que pertenece el político en el cargo. |
| `fecha_inicio` | Fecha de inicio en el que comienza la gestión en el cargo. |
| `fecha_inicio` | Fecha de fin en la que finaliza la gestión en el cargo. |
| `legislatura` | Legislatura en la que ocupa el cargo el político. Esta variable es para los cargos que tienen secuencia legislativa (Legisladores, Ministros, Presidente, Vicepresidente...). |
| `cargo` | Tipo de cargo. |
| `status` | Si es Titular, Suplente, Nominal... |
| `circunscripcion` | Distrito al que pertenece el legislador (esto aplica a los Diputados). |
| `sexo` | Sexo. |
Actualmente la base cuenta con la siguiente informacion:
| Políticos | Periodo |
| -----------------------------------------| ------------- |
| Presidentes y Vicepresidentes | 1830 - 2020 |
| Legisladores | 1830 - 2020 |
| Ministros de Estado | 1904 - 2020 |
| Intendentes | 1925 - 2020 |
| Candidato Presidente y Vicepresidente3 | 1958 - 2020 |
| Ministros Corte Electoral | 1985 - 2020 |
| Alcaldes y Concejales | 2010 - 2020 |
##### `legislaturas`
| Variable | Descripción |
| ----------- | ------------------------------------------------------ |
| `legislatura` | Número de la legislatura. |
| `inicio` | Fecha de inicio de la legislatura. |
| `fin` | Fecha de cierre de la legislatura |
| `dias` | Cantidad de días que estuvo abierta la legislatura. |
| `periodo` | Años de la legislatura, ejemplo: 2005-2010 |
#### Funciones
| Función | Descripción |
| -------------- | ---------------------------------------------------- |
| `buscar_puy()` | Permite buscar políticos en la base `puy::politicos`.|
| `add_party()` | Permite agregar la etiqueta partidaria de cada legislador a un diario de sesión en el formato que devuelve la función [`speech_build()`](https://nicolas-schmidt.github.io/speech/reference/speech_build.html) del paquete de R [`speech()`](https://nicolas-schmidt.github.io/speech/).|
## Ejemplos
```{r}
library(puy)
buscar_puy(nombre = "Mujica")
buscar_puy(nombre = "Mujica Cordano")
buscar_puy("roballo")
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Legisladores que tienen apellido iniciado por la letra 'W'
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
legis_W <- buscar_puy(nombre = "W")
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# legisladores que tienen la expresion lacalle en alguna parte del nombre
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
lacalle <- buscar_puy(nombre = "lacalle", contiene = TRUE)
```
##### Ejemplo con `speech::speech_build()`
```{r, echo = F, message=FALSE}
library(tidyverse)
```
```{r}
library(speech)
url <- "http://bit.ly/35AUVF4"
text1 <- speech::speech_build(file = url, compiler = TRUE)
text1
floor_speech <- add_party(speech = text1)
dplyr::glimpse(floor_speech)
floor_speech[c(1,2,7:12)]
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## Diario de sesión NO compilado
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
url %>%
speech::speech_build() %>%
puy::add_party() %>%
subset(select = c(1,2,7:12)) %>% # se seleccionan variables que se agregan con add_party()
print(n = Inf)
```
### Exploración de base de datos `puy::politicos`
¿Cuántas mujeres ocuparon cargos políticos?
```{r}
politicos %>%
select(politico, legislatura, cargo, sexo) %>%
unique() %>%
mutate(cargo = ifelse(str_detect(cargo, "^Ministro"), "Ministro", cargo)) %>%
group_by(cargo) %>%
summarise(Hombres = sum(sexo),
Mujeres = n() - sum(sexo),
Prop_mujeres = paste0(round(Mujeres / n() *100), "%")) %>%
print(n = Inf)
```
¿En qué legislatura las mujeres ocuparon más cargos legislativos?
```{r, fig.width=12, fig.height=4}
library(tidyverse)
legis_mujeres <-
politicos %>%
filter(cargo %in% c("Diputado", "Senador")) %>%
select(politico, cargo, legislatura, sexo) %>%
distinct() %>%
group_by(legislatura) %>%
summarise(Hombres = round(sum(sexo)/length(sexo) * 100),
Mujeres = round(100 - Hombres)) %>%
merge(., legislaturas[, c("legislatura", "periodo")], by = "legislatura") %>%
select(4,2,3) %>%
pivot_longer(cols = 2:3, names_to = "Sexo", values_to = "Porcentaje")
ggplot(data = legis_mujeres, aes(x = periodo , y = Porcentaje, fill = Sexo)) +
geom_bar(stat = "identity") +
scale_fill_manual(values = c("#FDDDA0", "purple")) +
theme_minimal() +
guides(x = guide_axis(angle = 60)) +
labs(x = "", y = "")
```
#### Citar
Para citar el paquete `puy` en publicaciones use:
Schmidt N., Chasquetti, D., Cardarello A., Castiglia A., Carneiro F., Lujan D., Monestier F., UMAD (2021). puy: politicos uruguayos 1830-2020. R package, version 0.1.0, https://nicolas-schmidt.github.io/puy/.
```{r, echo = FALSE, message = FALSE}
manual <- function(){
old <- here::here()
path <- here::here('man', 'figures')
sink('noise.txt')
devtools::build_manual(path = path)
sink()
setwd(path)
invisible(file.rename(list.files(pattern="^puy"), 'Manual_puy.pdf'))
setwd(old)
invisible(file.remove('noise.txt'))
}
manual()
```
#### Notas
---
1 Unidad de Métodos y Acceso a Datos, Facultad de Ciencias Sociales, Universidad de la República (UMAD-FCS-UdelaR)
2 Foto extraida de _"Crónica General del Uruguay"_, Washington Reyes Abadie, Andrés Vázquez Romero, Banda Oriental, Montevideo, Uruguay, 2000, p.399. La diagramación del logo es obra de Nadia Repetto ([email protected])
3 Se incorporó a la base los datos de candidaturas presidenciales y de precandidaturas presidenciales (elecciones internas) a los efectos de tener información más precisa sobre las carreras políticas. Estos políticos son la única excepción en la base que en esas instancias no ocuparon ningún cargo sino que se postularon.