Commit 224e3ffd authored by Bakaniko's avatar Bakaniko

Fix erreur nombre de couleurs

parent 99c242d8
......@@ -77,7 +77,7 @@ diag_bars <- function(df,variable,poids,repertoire, labels){
face = 'bold',
size = 14),
legend.position="bottom") +
scale_fill_manual(values=alpha(rainbow(10),.75),
scale_fill_manual(values=alpha(rainbow(16),.75),
name=labels[[variable]][['libelle']],
labels= labels[[variable]][['etiquettes']])+
geom_text(stat = 'count',aes(label=..count..))
......@@ -426,6 +426,51 @@ VIV_vars[['ALFABET']][['etiquettes']] <- c(
)
VIV_vars[['ALFABET']][['libelle']] <- c("¿(NOMBRE) sabe leer y escribir un recado?")
pre_remp_diag_bars(data,"ALFABET","FACTOR_PERS")
## NIVACAD
VIV_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'
)
VIV_vars[['NIVACAD']][['libelle']] <- c("Niveau d'études")
pre_remp_diag_bars(data,"NIVACAD","FACTOR_PERS")
## CONACT
VIV_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'
)
VIV_vars[['CONACT']][['libelle']] <- c("Entonces, ¿la semana pasada:")
pre_remp_diag_bars(data,"CONACT","FACTOR_PERS")
```
```{r variable_quantitatives}
......@@ -486,53 +531,6 @@ VIV_vars[['NUMPERS']][['etiquettes']] <- c(
)
VIV_vars[['NUMPERS']][['libelle']] <- c("Nombre de personnes résidants dans l'habitation")
pre_remp_diag_histo(data,"NUMPERS","FACTOR_VIV")
```
```{r}
## Erreur : Insufficient values in manual scale. 16 needed but only 10 provided.
## NIVACAD
VIV_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'
)
VIV_vars[['NIVACAD']][['libelle']] <- c("Niveau d'études")
pre_remp_diag_bars(data,"NIVACAD","FACTOR_PERS")
## CONACT
VIV_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'
)
VIV_vars[['CONACT']][['libelle']] <- c("Entonces, ¿la semana pasada:")
pre_remp_diag_bars(data,"CONACT","FACTOR_PERS")
```
[1] "ID_PERSONA" "ID_VIV" "ENT" "NOM_ENT" "MUN" "NOM_MUN" "LOC50K" "NOM_LOC"
[9] "FACTOR_PERS" "FACTOR_VIV" "CLAVIVP" "PISOS" "TOTCUART" "CUADORM" "COMBUSTIBLE" "ELECTRICIDAD"
......
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