Codigo:

Librerias Empleadas 

library(dplyr)

library(descriptr)

library(ggplot2)

library(datos)

Recoleccion de Datos 

datos.e <- encuesta

set.seed(2548) # Sembrar una semilla

datos.m <- sample_n(tbl = datos.e,size = 120,replace = FALSE)

head(datos.m,15) # muestra los 15 Primeros
## # A tibble: 15 × 9
##     anio estado_civil  edad raza  ingreso partido religion denominacion horas_tv
##    <int> <fct>        <int> <fct> <fct>   <fct>   <fct>    <fct>           <int>
##  1  2002 Viudo           88 Blan… No apl… Fuerte… Ninguna  No aplica           4
##  2  2000 Casado          26 Blan… 25000 … Fuerte… Protest… Iglesia met…        2
##  3  2012 Casado          43 Otra  No sabe Indepe… Católica No aplica           0
##  4  2004 Divorciado      67 Blan… No apl… Ind, p… Católica No aplica          NA
##  5  2008 Casado          55 Negra 25000 … Fuerte… Protest… Otra                7
##  6  2008 Separado        58 Otra  10000 … No fue… Católica No aplica           1
##  7  2002 Nunca se ha…    38 Blan… 1000 -… No fue… Católica No aplica           1
##  8  2012 Nunca se ha…    23 Negra 20000 … Fuerte… Ninguna  No aplica           1
##  9  2000 Casado          57 Blan… 1000 -… Indepe… Ninguna  No aplica           5
## 10  2002 Viudo           71 Blan… 1000 -… No fue… Protest… Otra               NA
## 11  2006 Casado          47 Blan… 25000 … Ind, p… Protest… Bautista, n…       NA
## 12  2012 Nunca se ha…    23 Blan… 5000 -… Indepe… Cristia… No aplica          NA
## 13  2012 Casado          62 Blan… No apl… Fuerte… Católica No aplica          NA
## 14  2006 Divorciado      61 Blan… 15000 … No fue… Protest… Bautista, n…       NA
## 15  2006 Casado          29 Otra  No apl… Indepe… Católica No aplica           4
tail(datos.m,15) # muestra los 15 últimos
## # A tibble: 15 × 9
##     anio estado_civil  edad raza  ingreso partido religion denominacion horas_tv
##    <int> <fct>        <int> <fct> <fct>   <fct>   <fct>    <fct>           <int>
##  1  2004 Casado          28 Blan… No apl… No fue… Ninguna  No aplica          NA
##  2  2008 Viudo           69 Negra No apl… Fuerte… Protest… Bautista, n…        2
##  3  2012 Viudo           66 Negra 25000 … Fuerte… Católica No aplica           1
##  4  2014 Casado          57 Blan… 25000 … No fue… Protest… Otra               NA
##  5  2012 Viudo           77 Blan… No apl… Fuerte… Protest… Otra               NA
##  6  2004 Casado          51 Blan… 25000 … No fue… Católica No aplica          NA
##  7  2010 Divorciado      60 Blan… 25000 … Indepe… Ninguna  No aplica          NA
##  8  2002 Casado          51 Blan… 25000 … Fuerte… Protest… No denomina…       NA
##  9  2014 Separado        46 Negra No apl… Indepe… Ninguna  No aplica           7
## 10  2006 Casado          33 Blan… 15000 … Indepe… Protest… Bautista, n…       NA
## 11  2012 Casado          41 Blan… 25000 … No fue… Ninguna  No aplica          NA
## 12  2008 Casado          71 Blan… No apl… Indepe… Otra     No aplica           4
## 13  2008 Nunca se ha…    36 Blan… 20000 … Otro p… Ninguna  No aplica           1
## 14  2000 Nunca se ha…    18 Blan… No apl… No fue… Ninguna  No aplica          NA
## 15  2000 Viudo           38 Negra 8000 -… Ind, p… Protest… Bautista, n…       NA

Graficas 

frec1 <- table(datos.m$raza) # tabula la frecuencia

barplot(frec1 , col = c("#CD950C","#2F4F4F","#9ACD32","#FFD700"),
        horiz = FALSE, ylab = "Absolute Frecuency" , border = TRUE, ylim = c(0,150),xlab="Razas", main = " Razas presentes dentro de la poblacion ")