R Markdown
This is an R Markdown document. Markdown is a simple formatting
syntax for authoring HTML, PDF, and MS Word documents. For more details
on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be
generated that includes both content as well as the output of any
embedded R code chunks within the document. You can embed an R code
chunk like this:
#install.packages(c("haven", "dplyr", "flextable", "writexl")) # Solo si no están instaladas
library(haven) # Para leer archivos SPSS
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
ruta <-normalizePath("/Users/Jairo/Desktop/datos")
# Obtener una lista de archivos .sav en la carpeta
archivos_sav <- list.files(pattern = "\\.sav$", full.names = TRUE)
# Leer todos los archivos y guardarlos en una lista
lista_datos <- lapply(archivos_sav, read_sav)
# Opcional: Asignar nombres a cada dataset en la lista según el nombre del archivo
names(lista_datos) <- tools::file_path_sans_ext(basename(archivos_sav))
# Extraer cada elemento de la lista en un objeto individual en el entorno global
list2env(lista_datos, envir = .GlobalEnv)
## <environment: R_GlobalEnv>
setwd("/Users/Jairo/Desktop/datos") # Establecer la carpeta como directorio de trabajo
getwd() # Verificar que la ruta está bien configurada
## [1] "/Users/Jairo/Desktop/datos"
# Extraer cada elemento de la lista en un objeto individual en el entorno global
list2env(lista_datos, envir =.GlobalEnv)
## <environment: R_GlobalEnv>
#install.packages("survey")
library(survey)
## Loading required package: grid
## Loading required package: Matrix
## Loading required package: survival
##
## Attaching package: 'survey'
## The following object is masked from 'package:graphics':
##
## dotchart
library(haven)
library(dplyr)
library(tidyr)
##
## Attaching package: 'tidyr'
## The following objects are masked from 'package:Matrix':
##
## expand, pack, unpack
library(kableExtra)
##
## Attaching package: 'kableExtra'
## The following object is masked from 'package:dplyr':
##
## group_rows
library(survey)
# Ruta de la carpeta donde están los archivos
carpeta <- "/Users/Jairo/Desktop/datos/"
# Obtener la lista de archivos .sav en la carpeta
archivos_sav <- list.files(path = carpeta, pattern = "\\.sav$", full.names = TRUE)
# Leer todos los archivos .sav en una lista
lista_datos <- lapply(archivos_sav, read_sav)
names(lista_datos) <- archivos_sav # Asignar nombres a cada dataframe según el archivo
# Función para procesar cada dataset
procesar_datos <- function(data) {
column_labels <- sapply(data, function(col) attr(col, "label"))
labels_vector <- sapply(column_labels, function(x) {
if (is.null(x)) {
return(NA) # Si no hay etiqueta, asigna NA
} else {
return(x) # Devuelve la etiqueta
}
})
# Crear resumen de las variables con "gasto"
summary_table <- data %>%
summarise(across(everything(), ~ sum(!is.na(.)))) %>%
pivot_longer(cols = everything(), names_to = "Variable", values_to = "Non_Null_Count") %>%
mutate(Description = labels_vector) %>%
filter(grepl("gasto", Description, ignore.case = TRUE)) %>%
select(Variable, Description, Non_Null_Count)
return(summary_table)
}
# Aplicar la función a cada dataset en la lista
resultados <- lapply(lista_datos, procesar_datos)
`
# Convertir todas las columnas 'Description' a tipo character
resultados <- lapply(resultados, function(df) {
df %>% mutate(Description = as.character(Description))
})
# Unir todas las tablas en una sola
tabla_final <- bind_rows(resultados)
kable(tabla_final, format = "html") %>%
kable_styling(full_width = FALSE)
|
Variable
|
Description
|
Non_Null_Count
|
|
GASTOHOG
|
Gasto del Hogar
|
21166
|
|
GASPER
|
Gasto Percapita
|
0
|
|
GTMH
|
Gasto Total Miembros del Hogar
|
21166
|
|
GASTOHOG
|
Gasto del Hogar
|
21166
|
|
GASPER
|
Gasto Percapita
|
0
|
|
R2231
|
Matricula no gasto
|
26100
|
|
R223A1
|
Utiles no gasto
|
26100
|
|
R223B1
|
Uniformes no gasto
|
26100
|
|
R223C1
|
Textos no gasto
|
26100
|
|
R223D1
|
Calzado no gasto
|
26100
|
|
R223E1
|
Cuota padres de familia no gasto
|
26100
|
|
R2241
|
Cuota escolar no gasto
|
26100
|
|
R224A1
|
Transporte no gasto
|
26100
|
|
R224B1
|
Refrigerio no gasto
|
26100
|
|
R224C1
|
Otros no gasto
|
26099
|
|
R33101B
|
Gasto de agua en dolares
|
15493
|
|
R33102B
|
Gasto de electricidad en dolares
|
18065
|
|
R33103B
|
Gasto de kerosene en dolares
|
1080
|
|
R33104B
|
Gasto de gas propano en dolares
|
10880
|
|
R33105B
|
Gasto de candelas en dolares
|
1050
|
|
R33106B
|
Gasto de leña en dolares
|
753
|
|
R33107B
|
Gasto de bateria en dolares
|
145
|
|
R33108B
|
Gasto de gasolina o Diesel en dolares
|
14
|
|
R33109B
|
Gasto de teléfono fijo en dolares
|
4399
|
|
R33110B
|
Gasto de celular y/o beeper en dolares
|
16772
|
|
R33111B
|
Gasto de cable en dolares
|
3431
|
|
R33112B
|
Gastos de Internet
|
689
|
|
R33113B
|
Gasto de internet
|
1939
|
|
R33114B
|
Gastos Municipal.
|
2508
|
|
R33115B
|
Gastos de vigilancia
|
467
|
|
R33116B
|
Gasto de recolección de basura en dolares
|
441
|
|
R33117B
|
Gasto de otro en dolares
|
793
|
|
G33112C
|
Gastos de Internet y cibercafé
|
21166
|
|
R429
|
Gasto total dolares
|
8197
|
|
GASJOB
|
GASTO INDIVIDUAL (GASTOHOG * (INGRE / INGJOB))
|
0
|
|
R605
|
¿Cuanto fue el gasto en consulta?No gastos
|
7092
|
|
R605A
|
Gasto del hogar
|
927
|
|
R606
|
¿Cuanto fue el gasto en analisis de laboratorio?No gastos
|
7092
|
|
R606A
|
Gasto del hogar
|
503
|
|
R607
|
Gasto Rayos X Si/No
|
7092
|
|
R607A
|
Gasto del hogar Rayos X
|
45
|
|
R608
|
¿Otros examenes ?No gasto
|
7092
|
|
R608A
|
Gasto del hogar
|
39
|
|
R612
|
Gasto en hospitalización?
|
293
|
|
R612A
|
Gasto del Hogar
|
22
|
|
R613
|
Medicamento No gasto
|
293
|
|
R613A
|
Gasto del hogar
|
18
|
|
R614
|
Examenes no gasto
|
293
|
|
R614A
|
Examenes laboratorio rayos “x” gasto del Hogar
|
7
|
|
R615
|
Medicina No gasto
|
12335
|
|
R615A
|
Medicinas monto gasto del hogar
|
5310
|
|
R70506B
|
Gastos medicos permanentes
|
4990
|
|
R70507B
|
Gastos medicos internaci…
|
4990
|
|
R70508B
|
Otros Gastos medicos permanentes
|
4990
|
|
R70509B
|
Gastos medicos consulta eventual
|
4990
|
|
R70510B
|
Otros gastos medicos eventuales
|
4990
|
|
R70511B
|
Gastos en educaciòn
|
4990
|
|
R70506A
|
GASTOS MEDICOS PERMANENTES (R44410)
|
4990
|
|
R70507A
|
GASTOS MEDICOS INTERNACI…. (R44410)
|
4990
|
|
R70508A
|
OTROS GASTOS MEDICOS PERMANENTES (R44410)
|
4990
|
|
R70509A
|
GASTOS MEDICOS CONSULTA EVENTUAL (R44410)
|
4990
|
|
R70510A
|
OTROS GASTOS MEDICOS EVENTUALES (R44410)
|
4990
|
|
R70511A
|
GASTOS EN EDUCACION (R44410)
|
4990
|
|
R811B1
|
Valor gasto en artículos y servicios dolares
|
67802
|
|
R811C1
|
Valor gasto preg. 810 dolares
|
26291
|
|
R811D1
|
Valor gasto preg. 811 dolares
|
4474
|
#FIN DEL PUNTO 3
# Función para procesar cada dataset y crear el resumen
procesar_datos <- function(data) {
column_labels <- sapply(data, function(col) attr(col, "label"))
labels_vector <- sapply(column_labels, function(x) {
if (is.null(x)) {
return(NA) # Si no hay etiqueta, asigna NA
} else {
return(x) # Devuelve la etiqueta
}
})
# Crear resumen de las variables
summary_table <- data %>%
summarise(across(everything(), ~ sum(!is.na(.)))) %>%
pivot_longer(cols = everything(), names_to = "Variable", values_to = "Non_Null_Count") %>%
mutate(Description = labels_vector) %>%
filter(grepl("gasto", Description, ignore.case = TRUE)) %>%
select(Variable, Description, Non_Null_Count)
return(summary_table)
}
# Aplicar la función a cada dataset en la lista
resultados <- lapply(lista_datos, procesar_datos)
# Convertir todas las columnas 'Description' a tipo character
resultados <- lapply(resultados, function(df) {
df %>%
mutate(Description = as.character(Description)) # Asegurarse de que Description sea de tipo character
})
# Unir todas las tablas en una sola
tabla_final <- bind_rows(resultados)
# Presentar la tabla estilizada
kable(tabla_final, format = "html") %>%
kable_styling(full_width = FALSE)
|
Variable
|
Description
|
Non_Null_Count
|
|
GASTOHOG
|
Gasto del Hogar
|
21166
|
|
GASPER
|
Gasto Percapita
|
0
|
|
GTMH
|
Gasto Total Miembros del Hogar
|
21166
|
|
GASTOHOG
|
Gasto del Hogar
|
21166
|
|
GASPER
|
Gasto Percapita
|
0
|
|
R2231
|
Matricula no gasto
|
26100
|
|
R223A1
|
Utiles no gasto
|
26100
|
|
R223B1
|
Uniformes no gasto
|
26100
|
|
R223C1
|
Textos no gasto
|
26100
|
|
R223D1
|
Calzado no gasto
|
26100
|
|
R223E1
|
Cuota padres de familia no gasto
|
26100
|
|
R2241
|
Cuota escolar no gasto
|
26100
|
|
R224A1
|
Transporte no gasto
|
26100
|
|
R224B1
|
Refrigerio no gasto
|
26100
|
|
R224C1
|
Otros no gasto
|
26099
|
|
R33101B
|
Gasto de agua en dolares
|
15493
|
|
R33102B
|
Gasto de electricidad en dolares
|
18065
|
|
R33103B
|
Gasto de kerosene en dolares
|
1080
|
|
R33104B
|
Gasto de gas propano en dolares
|
10880
|
|
R33105B
|
Gasto de candelas en dolares
|
1050
|
|
R33106B
|
Gasto de leña en dolares
|
753
|
|
R33107B
|
Gasto de bateria en dolares
|
145
|
|
R33108B
|
Gasto de gasolina o Diesel en dolares
|
14
|
|
R33109B
|
Gasto de teléfono fijo en dolares
|
4399
|
|
R33110B
|
Gasto de celular y/o beeper en dolares
|
16772
|
|
R33111B
|
Gasto de cable en dolares
|
3431
|
|
R33112B
|
Gastos de Internet
|
689
|
|
R33113B
|
Gasto de internet
|
1939
|
|
R33114B
|
Gastos Municipal.
|
2508
|
|
R33115B
|
Gastos de vigilancia
|
467
|
|
R33116B
|
Gasto de recolección de basura en dolares
|
441
|
|
R33117B
|
Gasto de otro en dolares
|
793
|
|
G33112C
|
Gastos de Internet y cibercafé
|
21166
|
|
R429
|
Gasto total dolares
|
8197
|
|
GASJOB
|
GASTO INDIVIDUAL (GASTOHOG * (INGRE / INGJOB))
|
0
|
|
R605
|
¿Cuanto fue el gasto en consulta?No gastos
|
7092
|
|
R605A
|
Gasto del hogar
|
927
|
|
R606
|
¿Cuanto fue el gasto en analisis de laboratorio?No gastos
|
7092
|
|
R606A
|
Gasto del hogar
|
503
|
|
R607
|
Gasto Rayos X Si/No
|
7092
|
|
R607A
|
Gasto del hogar Rayos X
|
45
|
|
R608
|
¿Otros examenes ?No gasto
|
7092
|
|
R608A
|
Gasto del hogar
|
39
|
|
R612
|
Gasto en hospitalización?
|
293
|
|
R612A
|
Gasto del Hogar
|
22
|
|
R613
|
Medicamento No gasto
|
293
|
|
R613A
|
Gasto del hogar
|
18
|
|
R614
|
Examenes no gasto
|
293
|
|
R614A
|
Examenes laboratorio rayos “x” gasto del Hogar
|
7
|
|
R615
|
Medicina No gasto
|
12335
|
|
R615A
|
Medicinas monto gasto del hogar
|
5310
|
|
R70506B
|
Gastos medicos permanentes
|
4990
|
|
R70507B
|
Gastos medicos internaci…
|
4990
|
|
R70508B
|
Otros Gastos medicos permanentes
|
4990
|
|
R70509B
|
Gastos medicos consulta eventual
|
4990
|
|
R70510B
|
Otros gastos medicos eventuales
|
4990
|
|
R70511B
|
Gastos en educaciòn
|
4990
|
|
R70506A
|
GASTOS MEDICOS PERMANENTES (R44410)
|
4990
|
|
R70507A
|
GASTOS MEDICOS INTERNACI…. (R44410)
|
4990
|
|
R70508A
|
OTROS GASTOS MEDICOS PERMANENTES (R44410)
|
4990
|
|
R70509A
|
GASTOS MEDICOS CONSULTA EVENTUAL (R44410)
|
4990
|
|
R70510A
|
OTROS GASTOS MEDICOS EVENTUALES (R44410)
|
4990
|
|
R70511A
|
GASTOS EN EDUCACION (R44410)
|
4990
|
|
R811B1
|
Valor gasto en artículos y servicios dolares
|
67802
|
|
R811C1
|
Valor gasto preg. 810 dolares
|
26291
|
|
R811D1
|
Valor gasto preg. 811 dolares
|
4474
|
# Ordenar la tabla por cantidad de registros no nulos en orden descendente
tabla_final_ordenada <- tabla_final %>%
arrange(desc(Non_Null_Count))
# Presentar la tabla ordenada y estilizada
kable(tabla_final_ordenada, format = "html") %>%
kable_styling(full_width = FALSE)
|
Variable
|
Description
|
Non_Null_Count
|
|
R811B1
|
Valor gasto en artículos y servicios dolares
|
67802
|
|
R811C1
|
Valor gasto preg. 810 dolares
|
26291
|
|
R2231
|
Matricula no gasto
|
26100
|
|
R223A1
|
Utiles no gasto
|
26100
|
|
R223B1
|
Uniformes no gasto
|
26100
|
|
R223C1
|
Textos no gasto
|
26100
|
|
R223D1
|
Calzado no gasto
|
26100
|
|
R223E1
|
Cuota padres de familia no gasto
|
26100
|
|
R2241
|
Cuota escolar no gasto
|
26100
|
|
R224A1
|
Transporte no gasto
|
26100
|
|
R224B1
|
Refrigerio no gasto
|
26100
|
|
R224C1
|
Otros no gasto
|
26099
|
|
GASTOHOG
|
Gasto del Hogar
|
21166
|
|
GTMH
|
Gasto Total Miembros del Hogar
|
21166
|
|
GASTOHOG
|
Gasto del Hogar
|
21166
|
|
G33112C
|
Gastos de Internet y cibercafé
|
21166
|
|
R33102B
|
Gasto de electricidad en dolares
|
18065
|
|
R33110B
|
Gasto de celular y/o beeper en dolares
|
16772
|
|
R33101B
|
Gasto de agua en dolares
|
15493
|
|
R615
|
Medicina No gasto
|
12335
|
|
R33104B
|
Gasto de gas propano en dolares
|
10880
|
|
R429
|
Gasto total dolares
|
8197
|
|
R605
|
¿Cuanto fue el gasto en consulta?No gastos
|
7092
|
|
R606
|
¿Cuanto fue el gasto en analisis de laboratorio?No gastos
|
7092
|
|
R607
|
Gasto Rayos X Si/No
|
7092
|
|
R608
|
¿Otros examenes ?No gasto
|
7092
|
|
R615A
|
Medicinas monto gasto del hogar
|
5310
|
|
R70506B
|
Gastos medicos permanentes
|
4990
|
|
R70507B
|
Gastos medicos internaci…
|
4990
|
|
R70508B
|
Otros Gastos medicos permanentes
|
4990
|
|
R70509B
|
Gastos medicos consulta eventual
|
4990
|
|
R70510B
|
Otros gastos medicos eventuales
|
4990
|
|
R70511B
|
Gastos en educaciòn
|
4990
|
|
R70506A
|
GASTOS MEDICOS PERMANENTES (R44410)
|
4990
|
|
R70507A
|
GASTOS MEDICOS INTERNACI…. (R44410)
|
4990
|
|
R70508A
|
OTROS GASTOS MEDICOS PERMANENTES (R44410)
|
4990
|
|
R70509A
|
GASTOS MEDICOS CONSULTA EVENTUAL (R44410)
|
4990
|
|
R70510A
|
OTROS GASTOS MEDICOS EVENTUALES (R44410)
|
4990
|
|
R70511A
|
GASTOS EN EDUCACION (R44410)
|
4990
|
|
R811D1
|
Valor gasto preg. 811 dolares
|
4474
|
|
R33109B
|
Gasto de teléfono fijo en dolares
|
4399
|
|
R33111B
|
Gasto de cable en dolares
|
3431
|
|
R33114B
|
Gastos Municipal.
|
2508
|
|
R33113B
|
Gasto de internet
|
1939
|
|
R33103B
|
Gasto de kerosene en dolares
|
1080
|
|
R33105B
|
Gasto de candelas en dolares
|
1050
|
|
R605A
|
Gasto del hogar
|
927
|
|
R33117B
|
Gasto de otro en dolares
|
793
|
|
R33106B
|
Gasto de leña en dolares
|
753
|
|
R33112B
|
Gastos de Internet
|
689
|
|
R606A
|
Gasto del hogar
|
503
|
|
R33115B
|
Gastos de vigilancia
|
467
|
|
R33116B
|
Gasto de recolección de basura en dolares
|
441
|
|
R612
|
Gasto en hospitalización?
|
293
|
|
R613
|
Medicamento No gasto
|
293
|
|
R614
|
Examenes no gasto
|
293
|
|
R33107B
|
Gasto de bateria en dolares
|
145
|
|
R607A
|
Gasto del hogar Rayos X
|
45
|
|
R608A
|
Gasto del hogar
|
39
|
|
R612A
|
Gasto del Hogar
|
22
|
|
R613A
|
Gasto del hogar
|
18
|
|
R33108B
|
Gasto de gasolina o Diesel en dolares
|
14
|
|
R614A
|
Examenes laboratorio rayos “x” gasto del Hogar
|
7
|
|
GASPER
|
Gasto Percapita
|
0
|
|
GASPER
|
Gasto Percapita
|
0
|
|
GASJOB
|
GASTO INDIVIDUAL (GASTOHOG * (INGRE / INGJOB))
|
0
|
## Resumen de Variables Relacionadas con "Gasto"
# A continuación, se presenta un resumen de las variables relacionadas con "gasto" en los archivos de datos. Las variables están ordenadas por la cantidad de registros disponibles, lo que permite visualizar las variables con mayor información.
# Filtrar variables relacionadas con "gasto" en la descripción
tabla_gasto <- tabla_final_ordenada %>%
filter(grepl("gasto", Description, ignore.case = TRUE))
# Presentar la tabla de variables relacionadas con "gasto"
kable(tabla_gasto, format = "html") %>%
kable_styling(full_width = FALSE)
|
Variable
|
Description
|
Non_Null_Count
|
|
R811B1
|
Valor gasto en artículos y servicios dolares
|
67802
|
|
R811C1
|
Valor gasto preg. 810 dolares
|
26291
|
|
R2231
|
Matricula no gasto
|
26100
|
|
R223A1
|
Utiles no gasto
|
26100
|
|
R223B1
|
Uniformes no gasto
|
26100
|
|
R223C1
|
Textos no gasto
|
26100
|
|
R223D1
|
Calzado no gasto
|
26100
|
|
R223E1
|
Cuota padres de familia no gasto
|
26100
|
|
R2241
|
Cuota escolar no gasto
|
26100
|
|
R224A1
|
Transporte no gasto
|
26100
|
|
R224B1
|
Refrigerio no gasto
|
26100
|
|
R224C1
|
Otros no gasto
|
26099
|
|
GASTOHOG
|
Gasto del Hogar
|
21166
|
|
GTMH
|
Gasto Total Miembros del Hogar
|
21166
|
|
GASTOHOG
|
Gasto del Hogar
|
21166
|
|
G33112C
|
Gastos de Internet y cibercafé
|
21166
|
|
R33102B
|
Gasto de electricidad en dolares
|
18065
|
|
R33110B
|
Gasto de celular y/o beeper en dolares
|
16772
|
|
R33101B
|
Gasto de agua en dolares
|
15493
|
|
R615
|
Medicina No gasto
|
12335
|
|
R33104B
|
Gasto de gas propano en dolares
|
10880
|
|
R429
|
Gasto total dolares
|
8197
|
|
R605
|
¿Cuanto fue el gasto en consulta?No gastos
|
7092
|
|
R606
|
¿Cuanto fue el gasto en analisis de laboratorio?No gastos
|
7092
|
|
R607
|
Gasto Rayos X Si/No
|
7092
|
|
R608
|
¿Otros examenes ?No gasto
|
7092
|
|
R615A
|
Medicinas monto gasto del hogar
|
5310
|
|
R70506B
|
Gastos medicos permanentes
|
4990
|
|
R70507B
|
Gastos medicos internaci…
|
4990
|
|
R70508B
|
Otros Gastos medicos permanentes
|
4990
|
|
R70509B
|
Gastos medicos consulta eventual
|
4990
|
|
R70510B
|
Otros gastos medicos eventuales
|
4990
|
|
R70511B
|
Gastos en educaciòn
|
4990
|
|
R70506A
|
GASTOS MEDICOS PERMANENTES (R44410)
|
4990
|
|
R70507A
|
GASTOS MEDICOS INTERNACI…. (R44410)
|
4990
|
|
R70508A
|
OTROS GASTOS MEDICOS PERMANENTES (R44410)
|
4990
|
|
R70509A
|
GASTOS MEDICOS CONSULTA EVENTUAL (R44410)
|
4990
|
|
R70510A
|
OTROS GASTOS MEDICOS EVENTUALES (R44410)
|
4990
|
|
R70511A
|
GASTOS EN EDUCACION (R44410)
|
4990
|
|
R811D1
|
Valor gasto preg. 811 dolares
|
4474
|
|
R33109B
|
Gasto de teléfono fijo en dolares
|
4399
|
|
R33111B
|
Gasto de cable en dolares
|
3431
|
|
R33114B
|
Gastos Municipal.
|
2508
|
|
R33113B
|
Gasto de internet
|
1939
|
|
R33103B
|
Gasto de kerosene en dolares
|
1080
|
|
R33105B
|
Gasto de candelas en dolares
|
1050
|
|
R605A
|
Gasto del hogar
|
927
|
|
R33117B
|
Gasto de otro en dolares
|
793
|
|
R33106B
|
Gasto de leña en dolares
|
753
|
|
R33112B
|
Gastos de Internet
|
689
|
|
R606A
|
Gasto del hogar
|
503
|
|
R33115B
|
Gastos de vigilancia
|
467
|
|
R33116B
|
Gasto de recolección de basura en dolares
|
441
|
|
R612
|
Gasto en hospitalización?
|
293
|
|
R613
|
Medicamento No gasto
|
293
|
|
R614
|
Examenes no gasto
|
293
|
|
R33107B
|
Gasto de bateria en dolares
|
145
|
|
R607A
|
Gasto del hogar Rayos X
|
45
|
|
R608A
|
Gasto del hogar
|
39
|
|
R612A
|
Gasto del Hogar
|
22
|
|
R613A
|
Gasto del hogar
|
18
|
|
R33108B
|
Gasto de gasolina o Diesel en dolares
|
14
|
|
R614A
|
Examenes laboratorio rayos “x” gasto del Hogar
|
7
|
|
GASPER
|
Gasto Percapita
|
0
|
|
GASPER
|
Gasto Percapita
|
0
|
|
GASJOB
|
GASTO INDIVIDUAL (GASTOHOG * (INGRE / INGJOB))
|
0
|
# install.packages("ggplot2")
library(ggplot2)
library(ggplot2)
# Función para generar el resumen de variables con "gasto"
crear_resumen_gasto <- function(data) {
# Extraer las etiquetas de las variables
column_labels <- sapply(data, function(col) attr(col, "label"))
# Crear un vector con las etiquetas de las variables (si no tienen etiqueta, asignar NA)
labels_vector <- sapply(column_labels, function(x) {
if (is.null(x)) {
return(NA) # Si no hay etiqueta, asigna NA
} else {
return(x) # Devuelve la etiqueta
}
})
# Crear resumen de las variables con "gasto"
summary_table <- data %>%
summarise(across(everything(), ~ sum(!is.na(.)))) %>%
pivot_longer(cols = everything(), names_to = "Variable", values_to = "Cantidad_Registros") %>%
mutate(Descripcion = labels_vector) %>%
filter(grepl("gasto", Descripcion, ignore.case = TRUE)) %>%
select(Variable, Descripcion, Cantidad_Registros)
return(summary_table)
}
# Aplicar la función a cada dataset de la lista
resultados <- lapply(lista_datos, crear_resumen_gasto)
# Asegurarse de que la columna 'Descripcion' sea de tipo character en todos los dataframes
resultados <- lapply(resultados, function(df) {
df$Descripcion <- as.character(df$Descripcion) # Convertir 'Descripcion' a character
return(df)
})
# Unir todas las tablas de resultados en una sola
tabla_final <- bind_rows(resultados)
# Presentar la tabla estilizada
kable(tabla_final, format = "html") %>%
kable_styling(full_width = FALSE)
|
Variable
|
Descripcion
|
Cantidad_Registros
|
|
GASTOHOG
|
Gasto del Hogar
|
21166
|
|
GASPER
|
Gasto Percapita
|
0
|
|
GTMH
|
Gasto Total Miembros del Hogar
|
21166
|
|
GASTOHOG
|
Gasto del Hogar
|
21166
|
|
GASPER
|
Gasto Percapita
|
0
|
|
R2231
|
Matricula no gasto
|
26100
|
|
R223A1
|
Utiles no gasto
|
26100
|
|
R223B1
|
Uniformes no gasto
|
26100
|
|
R223C1
|
Textos no gasto
|
26100
|
|
R223D1
|
Calzado no gasto
|
26100
|
|
R223E1
|
Cuota padres de familia no gasto
|
26100
|
|
R2241
|
Cuota escolar no gasto
|
26100
|
|
R224A1
|
Transporte no gasto
|
26100
|
|
R224B1
|
Refrigerio no gasto
|
26100
|
|
R224C1
|
Otros no gasto
|
26099
|
|
R33101B
|
Gasto de agua en dolares
|
15493
|
|
R33102B
|
Gasto de electricidad en dolares
|
18065
|
|
R33103B
|
Gasto de kerosene en dolares
|
1080
|
|
R33104B
|
Gasto de gas propano en dolares
|
10880
|
|
R33105B
|
Gasto de candelas en dolares
|
1050
|
|
R33106B
|
Gasto de leña en dolares
|
753
|
|
R33107B
|
Gasto de bateria en dolares
|
145
|
|
R33108B
|
Gasto de gasolina o Diesel en dolares
|
14
|
|
R33109B
|
Gasto de teléfono fijo en dolares
|
4399
|
|
R33110B
|
Gasto de celular y/o beeper en dolares
|
16772
|
|
R33111B
|
Gasto de cable en dolares
|
3431
|
|
R33112B
|
Gastos de Internet
|
689
|
|
R33113B
|
Gasto de internet
|
1939
|
|
R33114B
|
Gastos Municipal.
|
2508
|
|
R33115B
|
Gastos de vigilancia
|
467
|
|
R33116B
|
Gasto de recolección de basura en dolares
|
441
|
|
R33117B
|
Gasto de otro en dolares
|
793
|
|
G33112C
|
Gastos de Internet y cibercafé
|
21166
|
|
R429
|
Gasto total dolares
|
8197
|
|
GASJOB
|
GASTO INDIVIDUAL (GASTOHOG * (INGRE / INGJOB))
|
0
|
|
R605
|
¿Cuanto fue el gasto en consulta?No gastos
|
7092
|
|
R605A
|
Gasto del hogar
|
927
|
|
R606
|
¿Cuanto fue el gasto en analisis de laboratorio?No gastos
|
7092
|
|
R606A
|
Gasto del hogar
|
503
|
|
R607
|
Gasto Rayos X Si/No
|
7092
|
|
R607A
|
Gasto del hogar Rayos X
|
45
|
|
R608
|
¿Otros examenes ?No gasto
|
7092
|
|
R608A
|
Gasto del hogar
|
39
|
|
R612
|
Gasto en hospitalización?
|
293
|
|
R612A
|
Gasto del Hogar
|
22
|
|
R613
|
Medicamento No gasto
|
293
|
|
R613A
|
Gasto del hogar
|
18
|
|
R614
|
Examenes no gasto
|
293
|
|
R614A
|
Examenes laboratorio rayos “x” gasto del Hogar
|
7
|
|
R615
|
Medicina No gasto
|
12335
|
|
R615A
|
Medicinas monto gasto del hogar
|
5310
|
|
R70506B
|
Gastos medicos permanentes
|
4990
|
|
R70507B
|
Gastos medicos internaci…
|
4990
|
|
R70508B
|
Otros Gastos medicos permanentes
|
4990
|
|
R70509B
|
Gastos medicos consulta eventual
|
4990
|
|
R70510B
|
Otros gastos medicos eventuales
|
4990
|
|
R70511B
|
Gastos en educaciòn
|
4990
|
|
R70506A
|
GASTOS MEDICOS PERMANENTES (R44410)
|
4990
|
|
R70507A
|
GASTOS MEDICOS INTERNACI…. (R44410)
|
4990
|
|
R70508A
|
OTROS GASTOS MEDICOS PERMANENTES (R44410)
|
4990
|
|
R70509A
|
GASTOS MEDICOS CONSULTA EVENTUAL (R44410)
|
4990
|
|
R70510A
|
OTROS GASTOS MEDICOS EVENTUALES (R44410)
|
4990
|
|
R70511A
|
GASTOS EN EDUCACION (R44410)
|
4990
|
|
R811B1
|
Valor gasto en artículos y servicios dolares
|
67802
|
|
R811C1
|
Valor gasto preg. 810 dolares
|
26291
|
|
R811D1
|
Valor gasto preg. 811 dolares
|
4474
|
#Resultado:
#La tabla final tendrá las siguientes columnas:
#Variable: El nombre de la variable.
#Descripción: La etiqueta o descripción asociada a la variable.
#Cantidad de Registros: El número de registros donde la variable tiene información disponible (sin NA).
# Ordenar la tabla por la cantidad de registros (de mayor a menor)
tabla_final <- tabla_final %>%
arrange(desc(Cantidad_Registros))
# Presentar la tabla estilizada con un título
kable(tabla_final, format = "html", caption = "Resumen de Variables Relacionadas con 'Gasto'") %>%
kable_styling(full_width = FALSE,
position = "center",
font_size = 12) %>%
column_spec(1, bold = TRUE) # Hacer la columna 'Variable' en negrita para resaltar
Resumen de Variables Relacionadas con ‘Gasto’
|
Variable
|
Descripcion
|
Cantidad_Registros
|
|
R811B1
|
Valor gasto en artículos y servicios dolares
|
67802
|
|
R811C1
|
Valor gasto preg. 810 dolares
|
26291
|
|
R2231
|
Matricula no gasto
|
26100
|
|
R223A1
|
Utiles no gasto
|
26100
|
|
R223B1
|
Uniformes no gasto
|
26100
|
|
R223C1
|
Textos no gasto
|
26100
|
|
R223D1
|
Calzado no gasto
|
26100
|
|
R223E1
|
Cuota padres de familia no gasto
|
26100
|
|
R2241
|
Cuota escolar no gasto
|
26100
|
|
R224A1
|
Transporte no gasto
|
26100
|
|
R224B1
|
Refrigerio no gasto
|
26100
|
|
R224C1
|
Otros no gasto
|
26099
|
|
GASTOHOG
|
Gasto del Hogar
|
21166
|
|
GTMH
|
Gasto Total Miembros del Hogar
|
21166
|
|
GASTOHOG
|
Gasto del Hogar
|
21166
|
|
G33112C
|
Gastos de Internet y cibercafé
|
21166
|
|
R33102B
|
Gasto de electricidad en dolares
|
18065
|
|
R33110B
|
Gasto de celular y/o beeper en dolares
|
16772
|
|
R33101B
|
Gasto de agua en dolares
|
15493
|
|
R615
|
Medicina No gasto
|
12335
|
|
R33104B
|
Gasto de gas propano en dolares
|
10880
|
|
R429
|
Gasto total dolares
|
8197
|
|
R605
|
¿Cuanto fue el gasto en consulta?No gastos
|
7092
|
|
R606
|
¿Cuanto fue el gasto en analisis de laboratorio?No gastos
|
7092
|
|
R607
|
Gasto Rayos X Si/No
|
7092
|
|
R608
|
¿Otros examenes ?No gasto
|
7092
|
|
R615A
|
Medicinas monto gasto del hogar
|
5310
|
|
R70506B
|
Gastos medicos permanentes
|
4990
|
|
R70507B
|
Gastos medicos internaci…
|
4990
|
|
R70508B
|
Otros Gastos medicos permanentes
|
4990
|
|
R70509B
|
Gastos medicos consulta eventual
|
4990
|
|
R70510B
|
Otros gastos medicos eventuales
|
4990
|
|
R70511B
|
Gastos en educaciòn
|
4990
|
|
R70506A
|
GASTOS MEDICOS PERMANENTES (R44410)
|
4990
|
|
R70507A
|
GASTOS MEDICOS INTERNACI…. (R44410)
|
4990
|
|
R70508A
|
OTROS GASTOS MEDICOS PERMANENTES (R44410)
|
4990
|
|
R70509A
|
GASTOS MEDICOS CONSULTA EVENTUAL (R44410)
|
4990
|
|
R70510A
|
OTROS GASTOS MEDICOS EVENTUALES (R44410)
|
4990
|
|
R70511A
|
GASTOS EN EDUCACION (R44410)
|
4990
|
|
R811D1
|
Valor gasto preg. 811 dolares
|
4474
|
|
R33109B
|
Gasto de teléfono fijo en dolares
|
4399
|
|
R33111B
|
Gasto de cable en dolares
|
3431
|
|
R33114B
|
Gastos Municipal.
|
2508
|
|
R33113B
|
Gasto de internet
|
1939
|
|
R33103B
|
Gasto de kerosene en dolares
|
1080
|
|
R33105B
|
Gasto de candelas en dolares
|
1050
|
|
R605A
|
Gasto del hogar
|
927
|
|
R33117B
|
Gasto de otro en dolares
|
793
|
|
R33106B
|
Gasto de leña en dolares
|
753
|
|
R33112B
|
Gastos de Internet
|
689
|
|
R606A
|
Gasto del hogar
|
503
|
|
R33115B
|
Gastos de vigilancia
|
467
|
|
R33116B
|
Gasto de recolección de basura en dolares
|
441
|
|
R612
|
Gasto en hospitalización?
|
293
|
|
R613
|
Medicamento No gasto
|
293
|
|
R614
|
Examenes no gasto
|
293
|
|
R33107B
|
Gasto de bateria en dolares
|
145
|
|
R607A
|
Gasto del hogar Rayos X
|
45
|
|
R608A
|
Gasto del hogar
|
39
|
|
R612A
|
Gasto del Hogar
|
22
|
|
R613A
|
Gasto del hogar
|
18
|
|
R33108B
|
Gasto de gasolina o Diesel en dolares
|
14
|
|
R614A
|
Examenes laboratorio rayos “x” gasto del Hogar
|
7
|
|
GASPER
|
Gasto Percapita
|
0
|
|
GASPER
|
Gasto Percapita
|
0
|
|
GASJOB
|
GASTO INDIVIDUAL (GASTOHOG * (INGRE / INGJOB))
|
0
|
#FIN DEL PUNTO 4