Commit a7bdf98b authored by Bakaniko's avatar Bakaniko

Creation d'une fonction traitant les variables VIV

parent c6a7a5f9
......@@ -85,7 +85,123 @@ variables <- colnames(VIVIENDA_PERSONA_15)
size = 14))
```
```{r}
# data$fct_clavivp <- factor(data$CLAVIVP, levels = c(1,2,3,4,5,6,7,8,9,99), labels = c("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"
# ))
# str(data$fct_clavivp)
library(ggplot2)
library(scales)
library(purrr)
# figure <- ggplot(data, aes(x = factor(CLAVIVP), fill = factor(CLAVIVP)))+
# geom_bar(aes(weight = FACTOR_VIV)) +
# labs(title = "clavivp",
# subtitle = "Zone Urbaine de Mexico 2015",
# x = "clavivp",
# y = "Nombre d'habitations",
# caption = "(données pondérées INEGI Encuesta Intercensal 2015)") +
# scale_y_continuous(labels = comma) +
# theme(plot.title = element_text(family = 'Helvetica',
# color = '#666666',
# face = 'bold',
# size = 14)) +
# scale_fill_manual(values=alpha(rainbow(10),.8),
# name="Titre légende",
# labels=c("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"
# ))
# figure
# #figure
# # ggsave(filename = paste("../images/ZUM_toutes_variables/2015_ZUM_",fct_clavivp,".png", sep = ""), plot = figure, width = 150, height = 150, units = "mm")
diag_bars <- function(df,variable,poids,repertoire, labels){
## nécessite ggplot2, scales packages
#variable <- which(names(df) == variable)
figure <- ggplot(df, aes(x = factor(df[[variable]]), fill = factor(df[[variable]]))) +
geom_bar(aes(weight = df[[poids]])) +
labs(title = variable,
subtitle = "Zone Urbaine de Mexico 2015",
x = variable,
y = "Nombre d'habitations",
caption = "(données pondérées INEGI Encuesta Intercensal 2015)") +
scale_y_continuous(labels = comma) +
theme(plot.title = element_text(family = 'Helvetica',
color = '#666666',
face = 'bold',
size = 14),
legend.position="bottom") +
scale_fill_manual(values=alpha(rainbow(10),.5),
name=labels[[variable]][['libelle']],
labels= labels[[variable]][['etiquettes']])
#figure
#figure
ggsave(filename = paste(repertoire,variable,".png", sep = ""), plot = figure, width = 400, height = 200, units = "m")
}
VIV_vars <- list()
## CLAVIVP
VIV_vars[['CLAVIVP']][['etiquettes']] <- c("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")
VIV_vars[['CLAVIVP']][['libelle']] <- c("Types d'habitations")
## PISOS
VIV_vars[['PISOS']][['etiquettes']] <- c('Tierra'
, 'Cemento o firme'
, 'Mosaico, madera u otro recubrimiento'
, 'No especificado'
, 'Blanco por pase')
VIV_vars[['PISOS']][['libelle']] <- c("Types de sols")
## Combustible
VIV_vars[['PISOS']][['etiquettes']] <- c('leña o carbón?',
'gas?',
'electricidad?',
'¿Otro combustible?',
'¿No cocinan?',
'No especificado',
'Blanco por pase')
VIV_vars[['PISOS']][['libelle']] <- c("Types de combustible utilisé")
pre_remp_diag_bars <- partial(diag_bars, repertoire = "../images/distri_variables/", labels=VIV_vars)
pre_remp_diag_bars(data,"CLAVIVP","FACTOR_VIV")
pre_remp_diag_bars(data,"PISOS","FACTOR_VIV")
pre_remp_diag_bars(data,"COMBUSTIBLE","FACTOR_VIV")
```
```{r}
variables <- colnames(VIVIENDA_PERSONA_15)
......@@ -110,6 +226,7 @@ for(variable in variables[12:38]){
}
```
## CLASE DE VIVIENDA PARTICULAR (CLAVIVP)
......
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