Titulo

Titulo 2

Titulo 3

En este trabajo se hace un analisis visual de los datos Enigh. y covid.Los datos Eningh son del año 2024 y los datos del covid-19 son del años . Estos datos se trabajaron con la paqueteria tidyverse.

Histograma

Gicimos un histograma simulado a partir de dos vectores de edad y sexo, despues se convirtio en un frame y se finalizo la gáfica de histograma.

sexo <- rep(c("Hombre", "Mujer"),40)
# 1) Crear una semilla set.seed()
set.seed(123)
# 2) crear la simulacion copn rnorm()

edad <- rnorm(80,30,10)
hist(edad,
     main = "Histograma de edad",
     xlab = "Edad",
     ylab = "Frecuencia",
     col = "pink")

Fuente.Elaboración propia

Gráfica de tabla de contingencia

Creamos una tabla de contigencia para la educación jefe del hogar estatus socioeconómico

Edu <- c("Sin", "Preesc", "Prim-inc", "Prim-comp", "Secu-inc","Secu-com",
         "Prep-inc", "Prep-com", "Profe-inc", "Profe-com","Posg")
# Para establecer una leyemda creamos un vector de referencia

esta_socio <- c("Bajo", "Medio bajo", "Medio alto", "Alto")

# Asignar nombres a las filas y columnas

edu_socio2 <- table(datos_enigh$educa_jefe, datos_enigh$est_socio)

rownames(edu_socio2) <- Edu
colnames(edu_socio2) <- esta_socio

# Gráfica de mosaico plot() 

plot(edu_socio2,
     xlab = "Nivel educativo del jefe del hogar ",
     ylab = "Estatus socieconómico",
     main= "Relación entre nivel educativo del jefe del hogar y estatus socieconómico",
     col= 1:4)
legend("bottomright", esta_socio, cex = 0.2, fill = 1:4, title = "Nivel socioeconómico")

Fuente.Elaboración propia con datos Enigh

Histograma del edada del jefe del hogar