Commit 067259d9 authored by Bakaniko's avatar Bakaniko

Clarification du code de création des graphes

- stockage des libellés de variables dans un .rds
- appel du .rds contenant les libelles
parent 499a0ce1
This diff is collapsed.
---
title: "Etiquettes de légendes variables"
author: "Nicolas"
date: "6 janvier 2018"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
# Variables de VIVIENDA
```{r}
libelle_vars <- list() # création d'un liste contenant les étiquettes
## CLAVIVP
libelle_vars[['CLAVIVP']][['etiquettes']] <- c( # remplissage de la liste des étiquettes
"Casa única en el terreno",
"Casa que comparte terreno con otra(s)",
"Casa dúplex, triple o cuádruple",
"Departamento en edificio",
"Vivienda en vecindad o cuartería",
"Cuarto en la azotea de un edificio",
"Local no construido para habitación",
"Vivienda móvil",
"Refugio",
"No especificado")
libelle_vars[['CLAVIVP']][['libelle']] <- c("Types d'habitations") # libellé de la légende
## PISOS
libelle_vars[['PISOS']][['etiquettes']] <- c('Tierra'
, 'Cemento o firme'
, 'Mosaico, madera u otro recubrimiento'
, 'No especificado'
, 'Blanco por pase')
libelle_vars[['PISOS']][['libelle']] <- c("Types de sols")
## Combustible
libelle_vars[['COMBUSTIBLE']][['etiquettes']] <- c('leña o carbón?',
'gas?',
'electricidad?',
'¿Otro combustible?',
'¿No cocinan?',
'No especificado',
'Blanco por pase')
libelle_vars[['COMBUSTIBLE']][['libelle']] <- c("Type de combustible utilisé au sein du logement")
## ELECTRICIDAD
libelle_vars[['ELECTRICIDAD']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
)
libelle_vars[['ELECTRICIDAD']][['libelle']] <- c("Accès à l'électricité")
## AGUA_ENTUBADA
libelle_vars[['AGUA_ENTUBADA']][['etiquettes']] <- c(
'dentro de la vivienda?'
, 'sólo en el patio o terreno?'
, '¿No tienen agua entubada?'
, 'No especificado'
)
libelle_vars[['AGUA_ENTUBADA']][['libelle']] <- c("Accès à l'eau courante")
## ABA_AGUA_ENTU
libelle_vars[['ABA_AGUA_ENTU']][['etiquettes']] <- c(
'del servicio público de agua?'
, 'de un pozo comunitario?'
, 'de un pozo particular?'
, 'de una pipa?'
, 'de otra vivienda?'
, 'de otro lugar?'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['ABA_AGUA_ENTU']][['libelle']] <- c("Type d'accès à l'eau courante")
## ABA_AGUA_NO_ENTU
libelle_vars[['ABA_AGUA_NO_ENTU']][['etiquettes']] <- c(
'un pozo?'
, 'una llave comunitaria?'
, 'otra vivienda?'
, 'un río, arroyo o lago?'
, '¿La trae una pipa?'
, '¿La captan de la lluvia?'
, 'No especificado'
#, 'Blanco por pase'
)
libelle_vars[['ABA_AGUA_NO_ENTU']][['libelle']] <- c("Accès à l'eau (hors eau courante)")
## AIRE_ACON
libelle_vars[['AIRE_ACON']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
)
libelle_vars[['AIRE_ACON']][['libelle']] <- c("Air conditionné")
## SERSAN
libelle_vars[['SERSAN']][['etiquettes']] <- c(
'taza de baño (excusado, sanitario)?'
, 'letrina (pozo u hoyo)?'
, '¿No tienen taza de baño ni letrina?'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['SERSAN']][['libelle']] <- c("Sanitaires")
## USOEXC
libelle_vars[['USOEXC']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['USOEXC']][['libelle']] <- c("Toilettes")
## DRENAJE
libelle_vars[['DRENAJE']][['etiquettes']] <- c(
'la red pública?'
, 'una fosa séptica o tanque séptico (biodigestor)?'
, 'una tubería que va a dar a una barranca o grieta?'
, 'una tubería que va a dar a un río, lago o mar?'
, '¿No tiene drenaje?'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['DRENAJE']][['libelle']] <- c("Evacuation des eaux usées")
## DESTINO_BASURA
libelle_vars[['DESTINO_BASURA']][['etiquettes']] <- c(
'se la dan a un camión o carrito de basura?'
, 'la dejan en un contenedor o depósito?'
, 'la queman?'
, 'la entierran?'
, 'la llevan al basurero público?'
, 'la tiran en otro lugar? (Calle, baldío, río)'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['DESTINO_BASURA']][['libelle']] <- c("Evacuation des eaux usées")
## REFRIGERADOR
libelle_vars[['REFRIGERADOR']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['REFRIGERADOR']][['libelle']] <- c("Réfrigérateur")
##LAVADORA
libelle_vars[['LAVADORA']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['LAVADORA']][['libelle']] <- c("Lavabo")
##HORNO
libelle_vars[['HORNO']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['HORNO']][['libelle']] <- c("Four")
##AUTOPROP
libelle_vars[['AUTOPROP']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['AUTOPROP']][['libelle']] <- c("Véhicule automobile")
##RADIO
libelle_vars[['RADIO']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['RADIO']][['libelle']] <- c("Radio")
##R TELEVISOR
libelle_vars[['TELEVISOR']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['TELEVISOR']][['libelle']] <- c("Télévision")
## TELEVISOR_PP
libelle_vars[['TELEVISOR_PP']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['TELEVISOR_PP']][['libelle']] <- c("Télévision à écran plat")
## COMPUTADORA
libelle_vars[['COMPUTADORA']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['COMPUTADORA']][['libelle']] <- c("Ordinateur")
## TELEFONO
libelle_vars[['TELEFONO']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['TELEFONO']][['libelle']] <- c("Téléphone")
## CELULAR
libelle_vars[['CELULAR']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['CELULAR']][['libelle']] <- c("Téléphone portable")
## INTERNET
libelle_vars[['INTERNET']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['INTERNET']][['libelle']] <- c("Accès à internet")
## TENENCIA
libelle_vars[['TENENCIA']][['etiquettes']] <- c(
'vive la dueña o dueño?'
, 'se paga renta?'
, '¿Es de un familiar o les prestan la vivienda?'
, '¿La ocupan en otra situación?'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['TENENCIA']][['libelle']] <- c("Propriétaire de l'habitation")
## TIPOHOG
libelle_vars[['TIPOHOG']][['etiquettes']] <- c(
'Hogar Nuclear (Familiar)'
, 'Hogar Ampliado (Familiar)'
, 'Hogar Compuesto (Familiar)'
, 'Hogar no especificado (Familiar)'
, 'Hogar unipersonal (No familiar)'
, 'Hogar corresidente (No familiar)'
, 'No se sabe la composición'
)
libelle_vars[['TIPOHOG']][['libelle']] <- c("Type de ménage")
## PERTE_INDIGENA
libelle_vars[['PERTE_INDIGENA']][['etiquettes']] <- c(
'Sí'
, 'Sí, en parte'
, 'No'
, 'No sabe'
, 'No especificado'
)
libelle_vars[['PERTE_INDIGENA']][['libelle']] <- c("Part indigène")
## HLENGUA
libelle_vars[['HLENGUA']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['HLENGUA']][['libelle']] <- c("Parlant une langue indigène")
## HESPANOL
libelle_vars[['HESPANOL']][['etiquettes']] <- c(
'Sí'
, 'No'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['HESPANOL']][['libelle']] <- c("Niveau d'espagnol correct")
## ALFABET
libelle_vars[['ALFABET']][['etiquettes']] <- c(
'Sí'
, 'Sí, en parte'
, 'No'
, 'No sabe'
, 'No especificado'
)
libelle_vars[['ALFABET']][['libelle']] <- c("¿(NOMBRE) sabe leer y escribir un recado?")
## NIVACAD
libelle_vars[['NIVACAD']][['etiquettes']] <- c(
'Ninguno'
, 'Preescolar o kínder'
, 'Primaria'
, 'Secundaria'
, 'Preparatoria o bachillerato general'
, 'Bachillerato tecnológico'
, 'Estudios técnicos o comerciales con primaria terminada'
, 'Estudios técnicos o comerciales con secundaria terminada'
, 'Estudios técnicos o comerciales con preparatoria terminada'
, 'Normal con primaria o secundaria terminada'
, 'Normal de licenciatura'
, 'Licenciatura'
, 'Especialidad'
, 'Maestría'
, 'Doctorado'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['NIVACAD']][['libelle']] <- c("Niveau d'études")
## CONACT
libelle_vars[['CONACT']][['etiquettes']] <- c(
'trabajó?'
, 'hizo o vendió algún producto?'
, 'ayudó en algún negocio? (familiar o de otra persona)'
, 'crio animales o cultivó algo? (en el terreno o en casa, para autoconsumo o venta)'
, 'ofreció algún servicio por un pago? (cargó bolsas, lavó autos, cuidó niñas(os), etcétera'
, 'atendió su propio negocio?'
, 'tenía trabajo, pero no trabajó? (por licencia, incapacidad o vacaciones)'
, 'buscó trabajo?'
, '¿Es estudiante?'
, '¿Es jubilada(o) o pensionada(o)?'
, '¿Se dedica a los quehaceres de su hogar?'
, '¿Tiene alguna limitación física o mental que le impide trabajar?'
, '¿No trabajó?'
, 'No especificado'
, 'Blanco por pase'
)
libelle_vars[['CONACT']][['libelle']] <- c("Entonces, ¿la semana pasada:")
## TOTCUART
libelle_vars[['TOTCUART']][['etiquettes']] <- c(
'Número de cuartos en la vivienda'
,'No especificado'
)
libelle_vars[['TOTCUART']][['libelle']] <- c("Nombre de pièces dans l'habitation")
##CUADORM
libelle_vars[['CUADORM']][['etiquettes']] <- c(
'Número de cuartos dormitorio'
, 'No especificado'
)
libelle_vars[['CUADORM']][['libelle']] <- c("Nombre de chambres dans l'habitation")
## NUMPERS
libelle_vars[['NUMPERS']][['etiquettes']] <- c(
'Número de cuartos dormitorio'
, 'No especificado'
)
libelle_vars[['NUMPERS']][['libelle']] <- c("Nombre de personnes résidants dans l'habitation")
## Sauvegarde dans un fichier rds
saveRDS(libelle_vars,"../data/traitees/libelles_variables.rds", compress = TRUE)
```
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment