INTRODUCCIOÓN

Se analizo la variable raza y a apartir de ello se creo un diagrama de barras con la información encontrada

Analisis de datos

se carga los paquetes necesarios:

library(dplyr)
library(ggplot2)
library(datos)

se preparan los datos:

datos.e <- encuesta
set.seed(2778)
datos.m <- sample_n(tbl = datos.e, size = 200, replace = FALSE)

Grafica de barras para los datos de raza

frec_raza <- table(datos.m$raza)
print(frec_raza)
## 
##      Otra     Negra    Blanca No aplica 
##        14        40       146         0
df_raza <- as.data.frame(frec_raza)
colnames(df_raza) <- c("Raza", "Frecuencia")

ggplot(df_raza, aes(x = Raza, y = Frecuencia, fill = Raza)) +
  geom_col() +
  geom_text(aes(label = Frecuencia), vjust = -0.5) +
  labs(title = "Diagrama de barras para la variable raza",
       x = "Categorías de raza",
       y = "Frecuencia absoluta") +
  theme_minimal()