Introducción

Este documento muestra los resultados de la encuesta familiar.

survey_results <- data.frame(
  Question = c("Q1: Platillo familiar","Q1: Platillo familiar","Q1: Platillo familiar","Q1: Platillo familiar",
               "Q2: Ingrediente principal","Q2: Ingrediente principal","Q2: Ingrediente principal","Q2: Ingrediente principal",
               "Q3: Comida importante","Q3: Comida importante","Q3: Comida importante","Q3: Comida importante",
               "Q4: Platillo festivo","Q4: Platillo festivo","Q4: Platillo festivo","Q4: Platillo festivo",
               "Q5: Representación de la comida","Q5: Representación de la comida","Q5: Representación de la comida","Q5: Representación de la comida"),
  
  Option = c("Tamales","Tacos","Pozole","Mole",
             "Maíz","Chiles","Frijoles","Arroz",
             "Desayuno","Almuerzo","Cena","Postre",
             "Tamales","Pozole","Barbacoa","Enchiladas",
             "Celebración","Cultura","Recuerdos","Unidad"),
  
  Votes = c(1,1,3,0,2,3,0,0,0,0,5,0,1,1,3,0,3,2,0,0)
)

survey_results
##                           Question      Option Votes
## 1            Q1: Platillo familiar     Tamales     1
## 2            Q1: Platillo familiar       Tacos     1
## 3            Q1: Platillo familiar      Pozole     3
## 4            Q1: Platillo familiar        Mole     0
## 5        Q2: Ingrediente principal        Maíz     2
## 6        Q2: Ingrediente principal      Chiles     3
## 7        Q2: Ingrediente principal    Frijoles     0
## 8        Q2: Ingrediente principal       Arroz     0
## 9            Q3: Comida importante    Desayuno     0
## 10           Q3: Comida importante    Almuerzo     0
## 11           Q3: Comida importante        Cena     5
## 12           Q3: Comida importante      Postre     0
## 13            Q4: Platillo festivo     Tamales     1
## 14            Q4: Platillo festivo      Pozole     1
## 15            Q4: Platillo festivo    Barbacoa     3
## 16            Q4: Platillo festivo  Enchiladas     0
## 17 Q5: Representación de la comida Celebración     3
## 18 Q5: Representación de la comida     Cultura     2
## 19 Q5: Representación de la comida   Recuerdos     0
## 20 Q5: Representación de la comida      Unidad     0
q1_data <- survey_results %>% filter(Question == "Q1: Platillo familiar")

ggplot(q1_data, aes(x = Option, y = Votes, fill = Option)) +
  geom_bar(stat = "identity") +
  theme_minimal() +
  labs(title = "Q1: Platillo que representa mejor la familia",
       x = "Opción",
       y = "Número de votos")

q2_data <- survey_results %>% filter(Question == "Q2: Ingrediente principal")

ggplot(q2_data, aes(x = Option, y = Votes, fill = Option)) +
  geom_bar(stat = "identity") +
  theme_minimal() +
  labs(title = "Q2: ¿Qué ingrediente asocias más con la comida de nuestra familia?",
       x = "Opción",
       y = "Número de votos")

q3_data <- survey_results %>% filter(Question == "Q3: Comida importante")

ggplot(q3_data, aes(x = Option, y = Votes, fill = Option)) +
  geom_bar(stat = "identity") +
  theme_minimal() +
  labs(title = "Q3: ¿Qué comida es la más importante durante nuestras reuniones familiares?",
       x = "Opción",
       y = "Número de votos")

q4_data <- survey_results %>% filter(Question == "Q4: Platillo festivo")

ggplot(q4_data, aes(x = Option, y = Votes, fill = Option)) +
  geom_bar(stat = "identity") +
  theme_minimal() +
  labs(title = "Q4: En días festivos o celebraciones, ¿qué platillo se prepara más comúnmente en nuestra familia?",
       x = "Opción",
       y = "Número de votos")

q5_data <- survey_results %>% filter(Question == "Q5: Representación de la comida")

ggplot(q5_data, aes(x = Option, y = Votes, fill = Option)) +
  geom_bar(stat = "identity") +
  theme_minimal() +
  labs(title = "¿Qué representa la comida para las tradiciones de nuestra familia?",
       x = "Opción",
       y = "Número de votos")