Visualización de variables discretas

Objetivo

Visualizar e interpretar variables discretas con librerías lattice y mosaic

Descripción

De un conjunto de datos visualizar gráfica de barras de variables discretas.

Desarrollo

Cargar librerías

library(mosaic)
# library(lattice)

Cargar datos

Se construyen datos ejecutando el código que se encuentra en el enlace github: https://raw.githubusercontent.com/rpizarrog/CIIT.-Diplomado-en-Ciencia-de-los-Datos-e-IoT/main/M%C3%B3dulo%20I/SESI%C3%93N%206/scripts/generar%20personas.r

source("https://raw.githubusercontent.com/rpizarrog/CIIT.-Diplomado-en-Ciencia-de-los-Datos-e-IoT/main/M%C3%B3dulo%20I/SESI%C3%93N%206/scripts/generar%20personas.r", encoding = "UTF-8")

head(datos.personas)

##   edad    genero          estado    feliz
## 1   21  FEMENINO BAJA CALIFORNIA NO FELIZ
## 2   18  FEMENINO      NUEVO LEÓN NO FELIZ
## 3   30  FEMENINO      TAMAULIPAS    FELIZ
## 4   23  FEMENINO      NUEVO LEÓN NO FELIZ
## 5   47 MASCULINO      TAMAULIPAS    FELIZ
## 6   38  FEMENINO         DURANGO NO FELIZ

tail(datos.personas)

##       edad    genero          estado    feliz
## 9995    28  FEMENINO BAJA CALIFORNIA    FELIZ
## 9996    58 MASCULINO BAJA CALIFORNIA NO FELIZ
## 9997    44  FEMENINO          SONORA    FELIZ
## 9998    23  FEMENINO        COAHUILA NO FELIZ
## 9999    23  FEMENINO          SONORA NO FELIZ
## 10000   39 MASCULINO      NUEVO LEÓN    FELIZ

Descripción de los datos

summary(datos.personas)

##       edad         genero             estado             feliz          
##  Min.   :18.0   Length:10000       Length:10000       Length:10000      
##  1st Qu.:30.0   Class :character   Class :character   Class :character  
##  Median :41.0   Mode  :character   Mode  :character   Mode  :character  
##  Mean   :41.5                                                           
##  3rd Qu.:53.0                                                           
##  Max.   :65.0

str(datos.personas)

## 'data.frame':    10000 obs. of  4 variables:
##  $ edad  : int  21 18 30 23 47 38 63 56 30 54 ...
##  $ genero: chr  "FEMENINO" "FEMENINO" "FEMENINO" "FEMENINO" ...
##  $ estado: chr  "BAJA CALIFORNIA" "NUEVO LEÓN" "TAMAULIPAS" "NUEVO LEÓN" ...
##  $ feliz : chr  "NO FELIZ" "NO FELIZ" "FELIZ" "NO FELIZ" ...

Formatear datos

datos.personas$genero <- as.factor(datos.personas$genero)
datos.personas$estado <- as.factor(datos.personas$estado)
datos.personas$feliz <- as.factor(datos.personas$feliz)

summary(datos.personas)

##       edad            genero                 estado          feliz     
##  Min.   :18.0   FEMENINO :5215   DURANGO        :1278   FELIZ   :4950  
##  1st Qu.:30.0   MASCULINO:4785   NUEVO LEÓN     :1276   NO FELIZ:5050  
##  Median :41.0                    CHIHUAHUA      :1271                  
##  Mean   :41.5                    COAHUILA       :1267                  
##  3rd Qu.:53.0                    BAJA CALIFORNIA:1257                  
##  Max.   :65.0                    TAMAULIPAS     :1251                  
##                                  (Other)        :2400

Visualizar frecuencias

Variable genero

bargraph( ~ genero, data = datos.personas, 
          main = "Gráfico de Barras")

Variable estado

bargraph( ~ estado, data = datos.personas, 
          main = "Gráfico de Barras")

Variable feliz

bargraph( ~ feliz, data = datos.personas, 
          main = "Gráfico de Barras")

Combinando variables

Feliz con agrupados por genero

bargraph(~ feliz, groups=genero, data = datos.personas, type = "percent",
         main = "Gráfico de Barras combinando variables")

Feliz con agrupados por estado

bargraph(~ feliz, groups=estado, data = datos.personas, type = "percent",
         main = "Gráfico de Barras combinando variables")

Interpretación

¿Qué porcentaje de personas son del género masculino y femenino respectivamente? ¿Qué estados de la República Mexicana presentan mayor frecuencia de participantes? ¿Hay más personas felices que no felices? ¿Quien son más felices hombres o mujeres y por el conTrario quienes son más no felices hoMbres o mujeres? ¿Qué estados de la República Mexicana presentan que son m+as felices y menos felies o NO FELICES?