Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/DESUC/desuctools
Compilación de funciones y datos auxiliares para análisis el análisis de encuestas sociales.
https://github.com/DESUC/desuctools
Last synced: about 2 months ago
JSON representation
Compilación de funciones y datos auxiliares para análisis el análisis de encuestas sociales.
- Host: GitHub
- URL: https://github.com/DESUC/desuctools
- Owner: DESUC
- License: other
- Created: 2019-03-14T20:22:50.000Z (over 5 years ago)
- Default Branch: master
- Last Pushed: 2024-02-01T15:02:44.000Z (8 months ago)
- Last Synced: 2024-05-21T01:14:14.509Z (4 months ago)
- Language: R
- Homepage: https://desuc.github.io/desuctools/
- Size: 18.8 MB
- Stars: 3
- Watchers: 3
- Forks: 4
- Open Issues: 2
-
Metadata Files:
- Readme: README.Rmd
- License: LICENSE
Awesome Lists containing this project
README
---
output: github_document
---
```{r, include = FALSE}
library(tidyverse, warn.conflicts = FALSE)
library(desuctools)
library(labelled)
library(knitr)
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/",
out.width = "100%"
)
```
# desuctools 
[](https://github.com/DESUC/desuctools/actions)
Funciones y datos auxiliares para análisis de encuestas sociales utilizados
por la [Dirección de Estudios Sociales UC](http://sociologia.uc.cl/desuc) (DESUC).
## Instalación
Para instalar la versión en desarrollo de desuctools desde
[GitHub](https://github.com/desuc/desuctools) puedes utilizar el siguiente código:
``` r
# install.packages("devtools")
devtools::install_github("desuc/desuctools")
```
## Ejemplos
### Datos de región y comuna
Base de datos con información sobre regiones y comunas.
```{r example}
# Tabla con comunas capitales regionales.
desuctools::regiones_y_comunas %>%
filter(region_capital) %>%
arrange(region_orden) %>%
select(region, comuna, comuna_nom) %>%
desuctools::kable_desuc(align = 'rrl', font_size = 9)
```
### Recodificación de variables
```{r}
# Cargar base de encuesta Bicentenario
file <- tempfile()
download.file(url = 'https://github.com/DESUC/30diasdegraficos/raw/master/inputs/12-lollipop-df_bicen_19_30diasdegraficos_2020.rds',
destfile = file)
data <- readRDS(file)
head(data)
```
La función `desuctools::rec_cat_5a3` recodifica preguntas likert de 5 a 3 categorías, entregando la opción de agregar etiquetas a ellas.
```{r}
data <- data %>%
mutate(across(c(t01_1:t01_2),
~desuctools::rec_cat_5a3(., labels = c('Bastante' = 1,
'Algo' = 2,
'Poco' = 3,
'NA/NR' = 9))))
data %>% head()
```
### Tablas de resultados
Función `tabla_vars_segmentos`, la cual permite generar un `data.frame` *tidy* con la cantidad y proporción de respuestas para un número arbitrario de preguntas y un número arbitrario de segmentos de la población.
```{r}
data_tidy <- data %>%
desuctools::tabla_vars_segmentos(
total = TRUE, # Incluye dato total
.vars = vars(t01_1, t01_2), # Listado de variables de interés
.segmentos = vars(d07), # Listado de segmentos de interés
.wt = pond_se) # Ponderador
data_tidy %>%
glimpse()
```
### Manejo de etiquetas
Extraer el texto del ítem de una pregunta en matrices de preguntas likert.
```{r}
data_tidy %>%
mutate(pregunta_lab_short = desuctools::str_entre_parentesis(pregunta_lab),
.keep = 'used', .before = 1) %>%
distinct() %>%
kableExtra::kable()
```
```{r}
data_tidy <- data_tidy %>%
mutate(pregunta_lab = desuctools::str_entre_parentesis(pregunta_lab))
```
### Gráficos
Función `desuctools::gg_bar_3_niveles_stack` para crear gráfico que compare categorías
positivas, negativas y neutras.
```{r grafico, fig.dim=c(6, 4), fig.align='center', fig.retina = 2, out.height='100%'}
desuctools::gg_bar_3_niveles_stack(
.df = data_tidy,
x = segmento_cat,
facet_col = pregunta_lab,
missing = 'NA/NR', y_na = 1.1, x_na = -2.5,
title = '¿Cuánto temor le producen las siguientes situaciones?',
font_family = '')
```