Base de datos

library(readxl)
Encuesta_de_conciencia_de_problemática_actual_de_los_docentes <- read_excel("C:/Users/Torres/Downloads/Encuesta de conciencia de problemática actual de los docentes.xlsx")

Gráficas de las respuestas obtenidas

Características generales de los encuestados

## pregunta 1
frecuencia1 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 1])

## Generar el gráfico de barras
barplot(frecuencia1,   
        main = "Distribución por Género del Docente",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "lightblue",  
        cex.names = 0.8)  

## pregunta 2
frecuencia2 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 2])

## Generar el gráfico de barras
barplot(frecuencia2,   
        main = "Tiempo ejerciendo la docencia en años",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "blue",  
        cex.names = 0.8)

## Ubicación y Conocimiento Legal

## pregunta 3
frecuencia3 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 3])

## Generar el gráfico de barras
barplot(frecuencia3,   
        main = "Region en la que ejerce la docencia",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "pink",  
        cex.names = 0.8)  

## pregunta 4
frecuencia4 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 4])

## Generar el gráfico de barras
barplot(frecuencia4,   
        main = "Lectura de la ley de la carrera docente por lo menos una vez",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "brown1",  
        cex.names = 0.8)

Derechos Laborales y Problemáticas

## pregunta 5
frecuencia5 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 5])

## Generar el gráfico de barras
barplot(frecuencia5,   
        main = "Importancia Percibida de los Derechos en la Ley de Carrera Docente",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "cadetblue1",  
        cex.names = 0.8)  

## pregunta 6
frecuencia6 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 6])

## Generar el gráfico de barras
barplot(frecuencia6,   
        main = "Aplicación de Medidas de Congelamiento o Reducción de Plazas",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "aliceblue",  
        cex.names = 0.8)  

## pregunta 7
frecuencia7 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 7])

## Generar el gráfico de barras
barplot(frecuencia7,   
        main = "Impacto del Congelamiento del Escalafón en Condiciones Laborales",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "aquamarine1",  
        cex.names = 0.8)  

## pregunta 8
frecuencia8 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 8])

## Generar el gráfico de barras
barplot(frecuencia8,   
        main = "Nivel de Información sobre Derechos Laborales",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "darkblue",  
        cex.names = 0.8)

Movilización social y Efectividad

## pregunta 9
frecuencia9 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 9])

## Generar el gráfico de barras
barplot(frecuencia9,   
        main = "Efectividad Percibida de las Protestas Docentes",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "coral",  
        cex.names = 0.8)  

## pregunta 10
frecuencia10 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 10])

## Generar el gráfico de barras
barplot(frecuencia10,   
        main = "Factores que Afectan los Derechos Docentes",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "darkorange",  
        cex.names = 0.8)

Satisfacción y Organización docente

## pregunta 11
frecuencia11 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 11])

## Generar el gráfico de barras
barplot(frecuencia11,   
        main = "Satisfacción con el Respeto a los Derechos Laborales",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "darkgray",  
        cex.names = 0.8)  

## pregunta 12
frecuencia12 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 12])

## Generar el gráfico de barras
barplot(frecuencia12,   
        main = "Importancia de la Organización Sindical",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "cornsilk",  
        cex.names = 0.8)

Percepción sobre el Gobierno

## pregunta 13
frecuencia13 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 13])

## Generar el gráfico de barras
barplot(frecuencia13,   
        main = "Percepción de las Acciones del Gobierno Central",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "chocolate",  
        cex.names = 0.8) 

## pregunta 14
frecuencia14 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 14])

## Generar el gráfico de barras
barplot(frecuencia14,   
        main = "Esfuerzos de las Autoridades para Garantizar Derechos Laborales",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "blueviolet",  
        cex.names = 0.8)

Recursos e Infraestructura

## pregunta 15
frecuencia15 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 15])

## Generar el gráfico de barras
barplot(frecuencia15,   
        main = "Adecuación de Recursos en Centros Educativos",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "blanchedalmond",  
        cex.names = 0.8) 

## pregunta 16
frecuencia16 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 16])

## Generar el gráfico de barras
barplot(frecuencia16,   
        main = "Satisfacción con el Apoyo para Instalaciones y Equipamiento",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "greenyellow",  
        cex.names = 0.8) 

## pregunta 17
frecuencia17 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 17])

## Generar el gráfico de barras
barplot(frecuencia17,   
        main = "Percepción sobre la Suficiencia del Presupuesto
        Público para Educación",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "honeydew",  
        cex.names = 0.8) 

## pregunta 18
frecuencia18 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 18])

## Generar el gráfico de barras
barplot(frecuencia18,   
        main = "Adecuación de los Recursos Económicos para el 
        Mantenimiento del Centro Educativo",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "ivory",  
        cex.names = 0.8) 

## pregunta 19
frecuencia19 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 19])

## Generar el gráfico de barras
barplot(frecuencia19,   
        main = "Impacto de la Falta de Inversión en Infraestructura
        en la Calidad Educativa",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "khaki",  
        cex.names = 0.8) 

## pregunta 20
frecuencia20 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 20])

## Generar el gráfico de barras
barplot(frecuencia20,   
        main = "Importancia de la Participación de la Comunidad en 
        Decisiones sobre Recursos",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "lavender",  
        cex.names = 0.8)

Motivación y Condiciones Laborales

## pregunta 21
frecuencia21 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 21])

## Generar el gráfico de barras
barplot(frecuencia21,   
        main = "Impacto del Congelamiento del Escalafón en Motivación y 
        Desempeño Docente",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "lavenderblush",  
        cex.names = 0.8) 

## pregunta 22
frecuencia22 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 22])

## Generar el gráfico de barras
barplot(frecuencia22,   
        main = "Conocimiento de Casos de Despidos o Sanciones por 
        Participar en Protestas",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "lightgray",  
        cex.names = 0.8)

## pregunta 23
frecuencia23 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 23])

## Generar el gráfico de barras
barplot(frecuencia23,   
        main = "Impacto de la Amenaza de Despido en la Participación 
        Docente en Movilizaciones",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "salmon",  
        cex.names = 0.8)

## pregunta 24
frecuencia24 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 24])

## Generar el gráfico de barras
barplot(frecuencia24,   
        main = "Efectividad de Despidos y Sanciones para 
        Desmovilizar Protestas Docentes",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "yellow",  
        cex.names = 0.8)

Percepción General y Expectativas

## pregunta 25
frecuencia25 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 25])

## Generar el gráfico de barras
barplot(frecuencia25,   
        main = "Sentimiento hacia el Año Lectivo 2025",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "limegreen",  
        cex.names = 0.8)

## pregunta 26
frecuencia26 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 26])

## Generar el gráfico de barras
barplot(frecuencia26,   
        main = "Expectativas sobre los Acuerdos entre Gremiales 
        y el Gobierno Central",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "palegoldenrod",  
        cex.names = 0.8)

## pregunta 27
# Cargar la librería necesaria  
library(treemap) 
library(RColorBrewer)  
# Obtener la frecuencia de las respuestas a la pregunta 27  
frecuencia27 <- table(Encuesta_de_conciencia_de_problemática_actual_de_los_docentes[, 27])  
# Convertir la tabla de frecuencias a un data.frame  
df_frecuencia27 <- data.frame(word = names(frecuencia27), freq = as.numeric(frecuencia27))  


# Generar el gráfico de treemap  
treemap(df_frecuencia27, index = "word", vSize = "freq",  
        title = "Frecuencia de respuestas a la pregunta 27",  
        palette = brewer.pal(8, "Dark2"))