Untitled
Fausto Villa
2024-01-08
# Cargar los datos
# file.choose()
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# Para transformar la base de datos
library(readxl)
diabetes2 <- read_excel("C:/Users/CIENCIAS/Downloads/DATA_PARCIAL2.xlsx")
View(diabetes2)
## mybayes , maquina de vector soportes
# numero de cedula sumado los dias,años,los primeros digitos se elimina Introduccion
La alimentación es un aspecto fundamental en la vida de las personas, ya que no solo influye en nuestra salud física, sino también en nuestra calidad de vida en general. Con el fin de comprender mejor los hábitos alimenticios de la población y su relación con su situación socioeconómica, se ha llevado a cabo una encuesta socioeconómica que busca arrojar luz sobre este tema tan relevante.
Esta encuesta tiene como objetivo recopilar información valiosa sobre los alimentos que consumen las personas en diferentes contextos socioeconómicos, para así identificar posibles diferencias en los patrones de alimentación y determinar cómo influyen estos factores en la elección de los alimentos.
Es importante destacar que el acceso a una alimentación adecuada puede estar influenciado por diversos factores, como el nivel de ingresos, la ubicación geográfica, la disponibilidad de recursos y la educación alimentaria. Por lo tanto, esta encuesta se enfoca en comprender cómo estos elementos interactúan y se reflejan en los hábitos alimentarios de las personas.
Los resultados obtenidos a través de esta encuesta nos permitirán obtener una visión más completa de la realidad socioeconómica y alimentaria de la población, lo que a su vez nos brindará la oportunidad de desarrollar estrategias y políticas que promuevan una alimentación saludable y equitativa para todos.
A medida que profundizamos en el análisis de la encuesta, descubriremos patrones interesantes y tendencias que nos ayudarán a comprender mejor cómo influyen los factores socioeconómicos en la alimentación de las personas. Además, podremos generar conciencia sobre la importancia de una alimentación balanceada y accesible para todos, sin importar su situación económica.
En resumen, esta encuesta socioeconómica sobre alimentación nos brinda una valiosa oportunidad para explorar y comprender la relación entre los factores socioeconómicos y los hábitos alimentarios de la población. A través de esta investigación, esperamos contribuir al desarrollo de políticas y acciones que promuevan una alimentación saludable y equitativa para todos.
str(diabetes2)## tibble [577 × 38] (S3: tbl_df/tbl/data.frame)
## $ UBICACIÓN : chr [1:577] "Velasco" "Velasco" "Yaruquíes" "Velasco" ...
## $ ¿En qué cantón de la provincia de Chimborazo vive? : chr [1:577] "Riobamba" "Riobamba" "Riobamba" "Riobamba" ...
## $ Edad del encuestado : num [1:577] 58 28 40 15 36 23 19 23 48 24 ...
## $ Sexo : chr [1:577] "Masculino" "Masculino" "Masculino" "Masculino" ...
## $ Estado civil : chr [1:577] "Casado" "Casado" "Casado" "Soltero" ...
## $ Cantidad de personas que conforman el hogar : num [1:577] 6 3 4 4 6 7 4 6 5 5 ...
## $ ¿Qué parentesco tiene con el representante del hogar? : chr [1:577] "Yo soy el representante del Hogar" "Yo soy el representante del Hogar" "Yo soy el representante del Hogar" "Yerno o nuera" ...
## $ ¿Cuál es el tipo de vivienda? : chr [1:577] "Casa/Villa" "Departamento en casa o edificio" "Casa/Villa" "Casa/Villa" ...
## $ El material predominante de las paredes exteriores de la vivienda es de: : chr [1:577] "Ladrillo o bloque" "Caña revestida o bahareque/Madera" "Ladrillo o bloque" "Ladrillo o bloque" ...
## $ EL material predominante del piso de la vivienda es de: : chr [1:577] "Cerámica, baldosa, vinil o marmetón" "Cerámica, baldosa, vinil o marmetón" "Cerámica, baldosa, vinil o marmetón" "Duela, parquet, tablón o piso flotante" ...
## $ ¿Cuántos cuartos de baño con ducha de uso exclusivo tiene este hogar? : chr [1:577] "Tiene 3 o más cuartos de baño exclusivos con ducha" "Tiene 3 o más cuartos de baño exclusivos con ducha" "Tiene 2 cuartos de baño exclusivos con ducha" "Tiene 1 cuarto de baño exclusivo con ducha" ...
## $ Tipo de servicio higiénico con que cuenta este hogar : chr [1:577] "Conectado a red pública de alcantarillado" "Conectado a red pública de alcantarillado" "Conectado a red pública de alcantarillado" "Conectado a red pública de alcantarillado" ...
## $ ¿Cuenta con servicio de internet? : chr [1:577] "Si" "Si" "Si" "Si" ...
## $ ¿Cuenta con computadora de escritorio? : chr [1:577] "Si" "Si" "No" "Si" ...
## $ ¿Cuenta con computadora portátil? : chr [1:577] "Si" "Si" "Si" "Si" ...
## $ ¿Cuántos celulares activados tiene en este hogar? : chr [1:577] "Tiene 4 ó más celulares" "Tiene 2 celulares" "Tiene 3 celulares" "Tiene 3 celulares" ...
## $ ¿Tiene su hogar servicio de teléfono convencional? : chr [1:577] "Si" "Si" "Si" "Si" ...
## $ ¿Tiene en su hogar cocina con horno? : chr [1:577] "Si" "No" "Si" "Si" ...
## $ ¿Tiene refrigeradora? : chr [1:577] "Si" "Si" "Si" "Si" ...
## $ ¿Tiene lavadora? : chr [1:577] "Si" "Si" "No" "No" ...
## $ ¿Tiene equipo de sonido? : chr [1:577] "Si" "Si" "Si" "Si" ...
## $ ¿Cuántas TV a color tienen en este hogar? : chr [1:577] "Tiene 3 ó más TV a color" "Tiene 1 TV a color" "Tiene 1 TV a color" "Tiene 2 TV a color" ...
## $ ¿Cuántos vehículos de uso exclusivo tiene este hogar? : chr [1:577] "Tiene 2 vehículo exclusivo" "No tiene vehículo exclusivo para el hogar" "No tiene vehículo exclusivo para el hogar" "Tiene 2 vehículo exclusivo" ...
## $ ¿Alguien en el hogar compra vestimenta en centros comerciales? : chr [1:577] "Si" "Si" "Si" "Si" ...
## $ ¿En el hogar alguien ha usado internet en los últimos 6 meses? : chr [1:577] "Si" "Si" "Si" "Si" ...
## $ ¿En el hogar alguien utiliza correo electrónico que no es del trabajo? : chr [1:577] "Si" "Si" "Si" "Si" ...
## $ ¿En el hogar alguien está registrado en una red social? : chr [1:577] "Si" "Si" "Si" "Si" ...
## $ Exceptuando los libros de texto o manuales de estudio y lecturas de trabajo¿Alguien del hogar ha leído algún libro completo en los últimos 3 meses? : chr [1:577] "Si" "Si" "No" "Si" ...
## $ ¿Cuál es el nivel de instrucción del Jefe del hogar? : chr [1:577] "4 ó más años de educación superior (completa sin postgrado)" "Secundaria incompleta" "Hasta 3 años de educación superior (incompleta)" "Postgrado" ...
## $ ¿Alguien en el hogar está afiliado o cubierto por el seguro del IESS (general, voluntario o campesino) y/o seguro del ISSFA o ISSPOL? : chr [1:577] "Si" "Si" "Si" "Si" ...
## $ ¿Alguien en el hogar tiene seguro de salud privada con hospitalización, seguro de salud privada sin hospitalización, seguro internacional,seguros municipales y de Consejos Provinciales y/o seguro de vida?: chr [1:577] "No" "Si" "No" "No" ...
## $ ¿Cuál es la ocupación del Representante del hogar? : chr [1:577] "Fuerzas Armadas" "Fuerzas Armadas" "Trabajador de los servicios y comerciantes" "Oficiales operarios y artesanos" ...
## $ NSE_2023_CUALI : chr [1:577] "Alto" "Medio Alto" "Medio Alto" "Alto" ...
## $ ¿Para qué sector trabaja? : chr [1:577] "Sector público" "Sector público" "Sector público" "Sector privado" ...
## $ ¿Consume usted arroz? : chr [1:577] "Si" "Si" "Si" "Si" ...
## $ ¿Consume usted queso industrial (CON MARCA) : chr [1:577] "Si" "Si" "Si" "Si" ...
## $ ¿Consume usted huevos? : chr [1:577] "Si" "Si" "Si" "No" ...
## $ ¿Consume frutas? : chr [1:577] "Si" "Si" "Si" "Si" ...descripcion de varibles
#DATA
podemos observar una data con 38 variables de las cuales representan el censo que se ha hecho en una poblacion se podria decir censo basico como tipo de alimentacion tipos de vivienda si tiene cantidad de personas que habitan el hogar etc
#INTERPRETACION DE LAS VARIABLES
UBICACION lugar o parroquia de la provincia de chimborazo
EN QUE CANTON VIVE DE LA PROVINCIA DE CHIMBORAZO lugar en donde vive la persona censada en la provincia
EDAD edad de la persona encuestada
SEXO sexo de la persona encuestada
ESTADO CIVIL estado civil de la persona encuestada
CANTIDAD DE PERSONAS DEL HOGAR cantidad de personas que conforma la familia censada
PARENTEZCO CON LA PERSONA CENSADA tipo de familiar que es con la persona censada
TIPO DE VIVIENDA de que tipo esta construida la vivienda
QUE MATERIAL PREDOMINA EN LA VIVIENDA material del cual es construido la vivienda
CUANTOS CUARTOS DE BAÑO CON DUCHA TIENE se refiere a los baños con ducha que tiene la familia
CUENTA CON INTERNET se refiere a que si la familia dispone del servicio de internet
CUENTA CON COMPUTADORA PORTATIL se refiere a si la familia dispone de una laptop
CUANTOS CELULARES TIENE se refiere a cuantos telefonos celulares dispone la familia encuestada
TIENE SU HOGAR TELEFONO CONVENCIONAL se refiere a que si dispone del servicio de linea telefonica
Nombres de las varibales que tiene nuestra base de datos
classes<-sapply(diabetes2,class);classes## UBICACIÓN
## "character"
## ¿En qué cantón de la provincia de Chimborazo vive?
## "character"
## Edad del encuestado
## "numeric"
## Sexo
## "character"
## Estado civil
## "character"
## Cantidad de personas que conforman el hogar
## "numeric"
## ¿Qué parentesco tiene con el representante del hogar?
## "character"
## ¿Cuál es el tipo de vivienda?
## "character"
## El material predominante de las paredes exteriores de la vivienda es de:
## "character"
## EL material predominante del piso de la vivienda es de:
## "character"
## ¿Cuántos cuartos de baño con ducha de uso exclusivo tiene este hogar?
## "character"
## Tipo de servicio higiénico con que cuenta este hogar
## "character"
## ¿Cuenta con servicio de internet?
## "character"
## ¿Cuenta con computadora de escritorio?
## "character"
## ¿Cuenta con computadora portátil?
## "character"
## ¿Cuántos celulares activados tiene en este hogar?
## "character"
## ¿Tiene su hogar servicio de teléfono convencional?
## "character"
## ¿Tiene en su hogar cocina con horno?
## "character"
## ¿Tiene refrigeradora?
## "character"
## ¿Tiene lavadora?
## "character"
## ¿Tiene equipo de sonido?
## "character"
## ¿Cuántas TV a color tienen en este hogar?
## "character"
## ¿Cuántos vehículos de uso exclusivo tiene este hogar?
## "character"
## ¿Alguien en el hogar compra vestimenta en centros comerciales?
## "character"
## ¿En el hogar alguien ha usado internet en los últimos 6 meses?
## "character"
## ¿En el hogar alguien utiliza correo electrónico que no es del trabajo?
## "character"
## ¿En el hogar alguien está registrado en una red social?
## "character"
## Exceptuando los libros de texto o manuales de estudio y lecturas de trabajo¿Alguien del hogar ha leído algún libro completo en los últimos 3 meses?
## "character"
## ¿Cuál es el nivel de instrucción del Jefe del hogar?
## "character"
## ¿Alguien en el hogar está afiliado o cubierto por el seguro del IESS (general, voluntario o campesino) y/o seguro del ISSFA o ISSPOL?
## "character"
## ¿Alguien en el hogar tiene seguro de salud privada con hospitalización, seguro de salud privada sin hospitalización, seguro internacional,seguros municipales y de Consejos Provinciales y/o seguro de vida?
## "character"
## ¿Cuál es la ocupación del Representante del hogar?
## "character"
## NSE_2023_CUALI
## "character"
## ¿Para qué sector trabaja?
## "character"
## ¿Consume usted arroz?
## "character"
## ¿Consume usted queso industrial (CON MARCA)
## "character"
## ¿Consume usted huevos?
## "character"
## ¿Consume frutas?
## "character"convertir la varibale genero a factor
convertir la varibale sexo a factor
sexofactor<-factor(diabetes2$Sexo)
levels(sexofactor)=c("Masculino","Femenino")
class(sexofactor)## [1] "factor"convertir la varibale estadocivila factor
estadofactor<-factor(diabetes2$`Estado civil`)
levels(estadofactor)=c("Casado","Soltero","Divorciado","Otros","Viudo")
class(estadofactor)## [1] "factor"convertir la varibale ¿Qué parentesco tiene con el representante del hogar? factor
parentescofactor<-factor(diabetes2$`¿Qué parentesco tiene con el representante del hogar?`)
levels(parentescofactor)=c("Yo soy el representante del Hogar","Hijo o hija","Yerno o nuera","Padres o suegros","Otros no parientes","Otros parientes","Cónyugue o conviviente")
class(parentescofactor)## [1] "factor"convertir la varibale vivienda factor
trsnformar las variables
diabetes<- as.data.frame(lapply(diabetes2, function(x) if(is.character(x))
as.factor(x) else x))
str(diabetes)## 'data.frame': 577 obs. of 38 variables:
## $ UBICACIÓN : Factor w/ 25 levels "Alausí","Cacha",..: 23 23 25 23 6 11 10 24 24 23 ...
## $ X.En.qué.cantón.de.la.provincia.de.Chimborazo.vive. : Factor w/ 10 levels "Alausí","Chambo",..: 10 10 10 10 4 7 6 10 10 10 ...
## $ Edad.del.encuestado : num 58 28 40 15 36 23 19 23 48 24 ...
## $ Sexo : Factor w/ 2 levels "Femenino","Masculino": 2 2 2 2 2 1 2 2 2 1 ...
## $ Estado.civil : Factor w/ 5 levels "Casado","Divorciado",..: 1 1 1 4 1 4 4 4 1 4 ...
## $ Cantidad.de.personas.que.conforman.el.hogar : num 6 3 4 4 6 7 4 6 5 5 ...
## $ X.Qué.parentesco.tiene.con.el.representante.del.hogar. : Factor w/ 7 levels "Cónyugue o conviviente",..: 7 7 7 6 7 2 2 6 7 2 ...
## $ X.Cuál.es.el.tipo.de.vivienda. : Factor w/ 7 levels "Casa/Villa","Choza/Covacha/Otro",..: 1 4 1 1 1 1 4 4 1 3 ...
## $ El.material.predominante.de.las.paredes.exteriores.de.la.vivienda.es.de. : Factor w/ 5 levels "Adobe/Tapia",..: 5 3 5 5 5 5 5 5 5 5 ...
## $ EL.material.predominante.del.piso.de.la.vivienda.es.de. : Factor w/ 5 levels "Cerámica, baldosa, vinil o marmetón",..: 1 1 1 2 3 3 1 4 2 3 ...
## $ X.Cuántos.cuartos.de.baño.con.ducha.de.uso.exclusivo.tiene.este.hogar. : Factor w/ 4 levels "No tiene cuarto de baño exclusivo con ducha en el hogar",..: 4 4 3 2 3 3 4 2 3 2 ...
## $ Tipo.de.servicio.higiénico.con.que.cuenta.este.hogar : Factor w/ 6 levels "Con descarga directa al mar, río, lago o quebrada",..: 4 4 4 4 4 4 5 5 4 4 ...
## $ X.Cuenta.con.servicio.de.internet. : Factor w/ 2 levels "No","Si": 2 2 2 2 2 2 2 2 2 2 ...
## $ X.Cuenta.con.computadora.de.escritorio. : Factor w/ 2 levels "No","Si": 2 2 1 2 1 2 2 2 2 2 ...
## $ X.Cuenta.con.computadora.portátil. : Factor w/ 2 levels "No","Si": 2 2 2 2 2 1 2 2 2 1 ...
## $ X.Cuántos.celulares.activados.tiene.en.este.hogar. : Factor w/ 5 levels "No tiene celular nadie en el hogar",..: 5 3 4 4 4 3 5 3 4 4 ...
## $ X.Tiene.su.hogar.servicio.de.teléfono.convencional. : Factor w/ 2 levels "No","Si": 2 2 2 2 1 1 2 2 2 2 ...
## $ X.Tiene.en.su.hogar.cocina.con.horno. : Factor w/ 2 levels "No","Si": 2 1 2 2 1 1 2 2 2 2 ...
## $ X.Tiene.refrigeradora. : Factor w/ 2 levels "No","Si": 2 2 2 2 2 2 2 2 2 2 ...
## $ X.Tiene.lavadora. : Factor w/ 2 levels "No","Si": 2 2 1 1 1 1 2 2 2 1 ...
## $ X.Tiene.equipo.de.sonido. : Factor w/ 2 levels "No","Si": 2 2 2 2 2 1 2 2 2 1 ...
## $ X.Cuántas.TV.a.color.tienen.en.este.hogar. : Factor w/ 4 levels "No tiene TV a color en el hogar",..: 4 2 2 3 3 3 3 4 3 2 ...
## $ X.Cuántos.vehículos.de.uso.exclusivo.tiene.este.hogar. : Factor w/ 4 levels "No tiene vehículo exclusivo para el hogar",..: 2 1 1 2 1 1 4 2 4 1 ...
## $ X.Alguien.en.el.hogar.compra.vestimenta.en.centros.comerciales. : Factor w/ 2 levels "No","Si": 2 2 2 2 2 1 2 2 2 2 ...
## $ X.En.el.hogar.alguien.ha.usado.internet.en.los.últimos.6.meses. : Factor w/ 2 levels "No","Si": 2 2 2 2 2 2 2 1 2 2 ...
## $ X.En.el.hogar.alguien.utiliza.correo.electrónico.que.no.es.del.trabajo. : Factor w/ 2 levels "No","Si": 2 2 2 2 1 1 2 1 2 2 ...
## $ X.En.el.hogar.alguien.está.registrado.en.una.red.social. : Factor w/ 2 levels "No","Si": 2 2 2 2 2 2 2 2 2 2 ...
## $ Exceptuando.los.libros.de.texto.o.manuales.de.estudio.y.lecturas.de.trabajo.Alguien.del.hogar.ha.leído.algún.libro.completo.en.los.últimos.3.meses. : Factor w/ 2 levels "No","Si": 2 2 1 2 2 2 2 2 2 1 ...
## $ X.Cuál.es.el.nivel.de.instrucción.del.Jefe.del.hogar. : Factor w/ 8 levels "4 ó más años de educación superior (completa sin postgrado)",..: 1 7 2 3 6 7 6 6 1 7 ...
## $ X.Alguien.en.el.hogar.está.afiliado.o.cubierto.por.el.seguro.del.IESS..general..voluntario.o.campesino..y.o.seguro.del.ISSFA.o.ISSPOL. : Factor w/ 2 levels "No","Si": 2 2 2 2 2 1 2 1 2 1 ...
## $ X.Alguien.en.el.hogar.tiene.seguro.de.salud.privada.con.hospitalización..seguro.de.salud.privada.sin.hospitalización..seguro.internacional.seguros.municipales.y.de.Consejos.Provinciales.y.o.seguro.de.vida.: Factor w/ 2 levels "No","Si": 1 2 1 1 1 1 1 2 2 1 ...
## $ X.Cuál.es.la.ocupación.del.Representante.del.hogar. : Factor w/ 12 levels "Desempleado",..: 3 3 11 5 11 11 11 8 11 9 ...
## $ NSE_2023_CUALI : Factor w/ 5 levels "Alto","Bajo",..: 1 3 3 1 5 4 3 5 1 5 ...
## $ X.Para.qué.sector.trabaja. : Factor w/ 3 levels "Ninguno","Sector privado",..: 3 3 3 2 3 3 2 3 2 2 ...
## $ X.Consume.usted.arroz. : Factor w/ 2 levels "No","Si": 2 2 2 2 2 2 2 1 2 2 ...
## $ X.Consume.usted.queso.industrial..CON.MARCA. : Factor w/ 2 levels "No","Si": 2 2 2 2 NA NA NA 2 2 2 ...
## $ X.Consume.usted.huevos. : Factor w/ 2 levels "No","Si": 2 2 2 1 1 2 1 1 2 2 ...
## $ X.Consume.frutas. : Factor w/ 2 levels "No","Si": 2 2 2 2 1 2 1 2 2 2 ...Verificar si hay valores NA en todo el data frame
hay_na <- any(is.na(diabetes))
print(hay_na)## [1] TRUEComo se puede observar hay presencia de datos faltantes lo cual haremos la depuracion de las variables
datos <- na.omit(diabetes)
hay_na1 <- any(is.na(datos))
print(hay_na1)## [1] FALSEDescripcion de la base de datos
Media Aritmetica
La media aritmética es una medida estadística que se utiliza para calcular el valor promedio de un conjunto de datos. Se obtiene sumando todos los valores y dividiendo la suma entre la cantidad de valores en el conjunto. También se le conoce como promedio o media. La media aritmética tiene varias propiedades interesantes. Una de ellas es que si los números tienen media μ, entonces la suma de las desviaciones de los números respecto a la media es igual a cero. Esto significa que los números a la izquierda de la media están equilibrados por los números a la derecha.
\(\bar{X}=\frac{\sum_{i=1}^{n}x_{i}}{n}\)
Desviacion tipica
La desviación típica, también conocida como desviación estándar, es una medida estadística que indica cuánto tienden a alejarse los valores individuales de un conjunto de datos respecto a la media. Es una medida de dispersión que nos permite entender la variabilidad de los datos.
\(\sigma =\sqrt{\frac{\sum_{i}^{N}(x_{i}-\bar{x})^{2}}{N}}\)
Cuartiles
Los cuartiles son valores que dividen un conjunto de datos en cuatro partes iguales. Son una medida estadística utilizada para evaluar rápidamente la dispersión y la tendencia central de un conjunto de datos. Los cuartiles más comunes son:
Primer cuartil (Q1): El 25% de los datos es menor o igual a este valor.
\(Q_{1}=L+\frac{(\frac{N}{4}-F)*c}{f}\)
Donde:
Q1 es el primer cuartil. L es el límite inferior de la clase del cuartil. N es el número total de datos en el conjunto. F es la frecuencia acumulada de la clase anterior al cuartil. c es la amplitud de la clase. f es la frecuencia de la clase del cuartil.
Segundo cuartil (Q2): También conocido como la mediana, el 50% de los datos es menor o igual a este valor.
\(Q_{1}=L+\frac{(\frac{N}{2}-F)*c}{f}\)
Donde:
Q2 es el primer cuartil. L es el límite inferior de la clase del cuartil. N es el número total de datos en el conjunto. F es la frecuencia acumulada de la clase anterior al cuartil. c es la amplitud de la clase. f es la frecuencia de la clase del cuartil.
Tercer cuartil (Q3): El 75% de los datos es menor o igual a este valor.
\(Q_{1}=L+\frac{(\frac{3N}{4}-F)*c}{f}\)
Donde:
Q3 es el tercer cuartil. L es el límite inferior de la clase del cuartil. N es el número total de datos en el conjunto. F es la frecuencia acumulada de la clase anterior al cuartil. c es la amplitud de la clase. f es la frecuencia de la clase del cuartil.
Classes<- sapply(datos,class)
Classes## UBICACIÓN
## "factor"
## X.En.qué.cantón.de.la.provincia.de.Chimborazo.vive.
## "factor"
## Edad.del.encuestado
## "numeric"
## Sexo
## "factor"
## Estado.civil
## "factor"
## Cantidad.de.personas.que.conforman.el.hogar
## "numeric"
## X.Qué.parentesco.tiene.con.el.representante.del.hogar.
## "factor"
## X.Cuál.es.el.tipo.de.vivienda.
## "factor"
## El.material.predominante.de.las.paredes.exteriores.de.la.vivienda.es.de.
## "factor"
## EL.material.predominante.del.piso.de.la.vivienda.es.de.
## "factor"
## X.Cuántos.cuartos.de.baño.con.ducha.de.uso.exclusivo.tiene.este.hogar.
## "factor"
## Tipo.de.servicio.higiénico.con.que.cuenta.este.hogar
## "factor"
## X.Cuenta.con.servicio.de.internet.
## "factor"
## X.Cuenta.con.computadora.de.escritorio.
## "factor"
## X.Cuenta.con.computadora.portátil.
## "factor"
## X.Cuántos.celulares.activados.tiene.en.este.hogar.
## "factor"
## X.Tiene.su.hogar.servicio.de.teléfono.convencional.
## "factor"
## X.Tiene.en.su.hogar.cocina.con.horno.
## "factor"
## X.Tiene.refrigeradora.
## "factor"
## X.Tiene.lavadora.
## "factor"
## X.Tiene.equipo.de.sonido.
## "factor"
## X.Cuántas.TV.a.color.tienen.en.este.hogar.
## "factor"
## X.Cuántos.vehículos.de.uso.exclusivo.tiene.este.hogar.
## "factor"
## X.Alguien.en.el.hogar.compra.vestimenta.en.centros.comerciales.
## "factor"
## X.En.el.hogar.alguien.ha.usado.internet.en.los.últimos.6.meses.
## "factor"
## X.En.el.hogar.alguien.utiliza.correo.electrónico.que.no.es.del.trabajo.
## "factor"
## X.En.el.hogar.alguien.está.registrado.en.una.red.social.
## "factor"
## Exceptuando.los.libros.de.texto.o.manuales.de.estudio.y.lecturas.de.trabajo.Alguien.del.hogar.ha.leído.algún.libro.completo.en.los.últimos.3.meses.
## "factor"
## X.Cuál.es.el.nivel.de.instrucción.del.Jefe.del.hogar.
## "factor"
## X.Alguien.en.el.hogar.está.afiliado.o.cubierto.por.el.seguro.del.IESS..general..voluntario.o.campesino..y.o.seguro.del.ISSFA.o.ISSPOL.
## "factor"
## X.Alguien.en.el.hogar.tiene.seguro.de.salud.privada.con.hospitalización..seguro.de.salud.privada.sin.hospitalización..seguro.internacional.seguros.municipales.y.de.Consejos.Provinciales.y.o.seguro.de.vida.
## "factor"
## X.Cuál.es.la.ocupación.del.Representante.del.hogar.
## "factor"
## NSE_2023_CUALI
## "factor"
## X.Para.qué.sector.trabaja.
## "factor"
## X.Consume.usted.arroz.
## "factor"
## X.Consume.usted.queso.industrial..CON.MARCA.
## "factor"
## X.Consume.usted.huevos.
## "factor"
## X.Consume.frutas.
## "factor"summary(datos[,Classes=="numeric"])## Edad.del.encuestado Cantidad.de.personas.que.conforman.el.hogar
## Min. :15.00 Min. : 1.000
## 1st Qu.:26.00 1st Qu.: 3.000
## Median :37.00 Median : 4.000
## Mean :38.16 Mean : 4.319
## 3rd Qu.:47.00 3rd Qu.: 5.000
## Max. :81.00 Max. :37.000sd(datos$Edad.del.encuestado)## [1] 13.98303sd(datos$Cantidad.de.personas.que.conforman.el.hogar)## [1] 2.343052Diagrama de barras
library(ggplot2)
library(gridExtra)##
## Attaching package: 'gridExtra'## The following object is masked from 'package:dplyr':
##
## combineg1<- ggplot(datos,aes(x=Cantidad.de.personas.que.conforman.el.hogar))+ geom_bar(stat="count",width=0.7,fill="steelblue")+theme_minimal()
g2<- ggplot(datos,aes(x=Sexo))+ geom_bar(stat="count",width=0.7,fill="blue")+theme_minimal()
g3<- ggplot(datos,aes(x=X.Cuál.es.el.tipo.de.vivienda.))+ geom_bar(stat="count",width=0.7,fill="red")+theme_minimal()
g4<- ggplot(datos,aes(x=X.Cuál.es.el.nivel.de.instrucción.del.Jefe.del.hogar.))+ geom_bar(stat="count",width=0.7,fill="green")+theme_minimal()
grid.arrange(g1,g2,g3,g4,nrow=2,ncol=2)
Diagrama de dispersion
qplot(X.Qué.parentesco.tiene.con.el.representante.del.hogar.,X.Tiene.refrigeradora., data=datos,colour=X.Consume.frutas.)## Warning: `qplot()` was deprecated in ggplot2 3.4.0.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
qplot(X.Cuál.es.la.ocupación.del.Representante.del.hogar.,X.Alguien.en.el.hogar.está.afiliado.o.cubierto.por.el.seguro.del.IESS..general..voluntario.o.campesino..y.o.seguro.del.ISSFA.o.ISSPOL., data=datos,colour=X.Consume.frutas.)
Diagrama de dispersion
qplot(X.Cuál.es.el.tipo.de.vivienda.,X.Tiene.en.su.hogar.cocina.con.horno., data=datos,colour=X.Consume.frutas.)