Grafica de barras Estado civil

Grafica para datos discretos

Este documento mostrara en R las graficas para datos discretos, a saber: * Diagrama de barras

Como en variables cualitativas se debe crear primero una tabla para la variable con datos deiscretos, despues se elabora las graficas como en cualitativas

# Librerías
library(datos)
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

library(ggplot2)

# Fijamos semilla para reproducibilidad
set.seed(33) 

# Base de datos original
b.datos <- encuesta   

# Selección de muestra de 150 registros 
muestra1 <- sample_n(b.datos, 150) 

# Tabla de frecuencias
tabla1 <- table(muestra1$estado_civil)   

# Convertir a data.frame
df <- as.data.frame(tabla1)
colnames(df) <- c("Categorias", "Frecuencia")

Elaborando tabla de barras

Para elaborar una gráfica para datos discretos, primero se elabora una tabla de resumen, como a continuacion

## # A tibble: 150 × 9
##     anio estado_civil  edad raza  ingreso partido religion denominacion horas_tv
##    <int> <fct>        <int> <fct> <fct>   <fct>   <fct>    <fct>           <int>
##  1  2000 Casado          60 Blan… 20000 … Indepe… Protest… Otras bauti…       NA
##  2  2000 Separado        30 Blan… 25000 … No fue… Protest… Sin respues…        2
##  3  2004 Divorciado      28 Blan… 10000 … Indepe… Inter o… No aplica          NA
##  4  2006 Casado          35 Blan… Se nie… Indepe… Inter o… No aplica          NA
##  5  2012 Divorciado      51 Blan… 25000 … No fue… Musulma… No aplica           2
##  6  2008 Divorciado      53 Blan… 25000 … No fue… Católica No aplica          NA
##  7  2012 Casado          39 Otra  25000 … Indepe… Protest… Otra                0
##  8  2012 Divorciado      78 Blan… No apl… No fue… Protest… Iglesia met…       NA
##  9  2006 Casado          38 Blan… 8000 -… Fuerte… Protest… Episcopal           1
## 10  2002 Viudo           72 Blan… No apl… No fue… Protest… Sínodo lute…        3
## # ℹ 140 more rows

Grafica