library(readxl)
matriz1 <- read_excel("C:/Users/Torres/Downloads/TEST DE ESTILOS DE APRENDIZAJE  (respuestas).xlsx")

Graficas de las preguntas de test de formas de aprendizaje

## pregunta 1
frecuencia1 <- table(matriz1[, 2])  
## Generar el gráfico de barras  
barplot(frecuencia1,   
        main = "Frecuencia de Valores de la realización del examen 
        con mayor facilidad",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "lightblue",  
        cex.names = 0.8)  

## Grafico de la pregunta 2
frecuencia2<- table(matriz1[, 3])
nombres_custom <- c("Visualizando", "Repitiendo rítmicamente", "Moviendose + repetir")
barplot(frecuencia2,   
        main = "Formas de Memorizar textos",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "purple",  
        cex.names = 0.8,
        names.arg = nombres_custom)  

## pregunta 4
frecuencia3 <- table(matriz1[, 4])
nombres_custom2 <- c("Leyendo", "Escuchando", "Me aburro")
## Generar el gráfico de barras  
barplot(frecuencia3,   
        main = "Formas más fáciles de seguir explicaciones",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "darkslategray1",  
        cex.names = 0.8,
        names.arg = nombres_custom2)  

library(dplyr)  
library(kableExtra)  

# pregunta 5  
frase <- names(which.max(table(matriz1[, 5])))  

## formato   
frase_df <- data.frame(Opcion_mas_elegida = frase)  

frase_df %>%  
  kable(caption = "Frase con la que se identifican mas:",  
        col.names = c("Opcion mas elegida"),  
        align = "c",  
        digits = 2) %>%  
  kable_classic(html_font = "Arial",  
                font_size = 14) %>%  
  row_spec(0, bold = T)
Frase con la que se identifican mas:
Opcion mas elegida
  1. Mis cuadernos y libretas están ordenados y bien presentados, me molestan los tachones y las correcciones 
## pregunta 6
actividad <- table(matriz1[, 6])  
## Generar el gráfico de barras  
barplot(actividad,   
        main = "Actividad preferida",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "cyan4",  
        cex.names = 0.8)  

## pregunta 7
pregunta7 <- table(matriz1[, 7])  
## Generar el gráfico de barras  
nombres_custom3 <- c("Escribiendo repetidamente", "Repetir en voz alta", "Relacionarlo")
## Generar el gráfico de barras  
barplot(pregunta7,   
        main = "Formas más fáciles de aprendizaje",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "deeppink4",  
        cex.names = 0.8,
        names.arg = nombres_custom3)    

## pregunta 8
pregunta8 <- table(matriz1[, 8])  
## Generar el gráfico de barras  
nombres_custom8 <- c("Buscar mirando", "Sacudir bolsa y oír", "Buscar con la mano sin ver")
## Generar el gráfico de barras  
barplot(pregunta8,   
        main = "Formas de encontrar una llave perdida en una bolsa",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "maroon",  
        cex.names = 0.8,
        names.arg = nombres_custom8) 

## pregunta 9
pregunta9 <- table(matriz1[, 9])  
## Generar el gráfico de barras  
nombres_custom9 <- c("escritas/orales", "orales", "actúo antes de terminar de oir")
## Generar el gráfico de barras  
barplot(pregunta9,   
        main = "Formas de seguir instrucciones",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "royalblue1",  
        cex.names = 0.8,
        names.arg = nombres_custom9) 

## pregunta 10
pregunta10 <- table(matriz1[, 10])  
## Generar el gráfico de barras  
nombres_custom10 <- c("Vista al mar", "Sonido a las olas", "Clima agradable")
## Generar el gráfico de barras  
barplot(pregunta10,   
        main = "Ambiente más atractivo",  
        xlab = "opción",  
        ylab = "Frecuencia",  
        col = "seagreen1",  
        cex.names = 0.8,
        names.arg = nombres_custom10) 

## pregunta 11  
pregunta11 <- table(matriz1[, 11])  

## Generar el gráfico de barras  
nombres_custom11 <- c("Editor de revista", "Locutor", "Director de club deportivo")  
barplot(pregunta11,  
        horiz = FALSE,  
        main = "Preferencia de empleo",  
        xlab = "Opcion",  
        ylab = "Frecuencia",  
        col = "turquoise4",  
        cex.names = 0.8,  
        names.arg = nombres_custom11)

## pregunta 12
pregunta12 <- table(matriz1[, 12])  
## Generar el gráfico de barras  
nombres_custom12 <- c("Show de magia", "Concierto", "Muestra gastronomica")
## Generar el gráfico de barras  
barplot(pregunta12,   
        main = "Opciones de eventos por asistir",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "violetred",  
        cex.names = 0.8,
        names.arg = nombres_custom12) 

## pregunta 13
pregunta13 <- table(matriz1[, 13])  
## Generar el gráfico de barras  
nombres_custom13 <- c("Viajes", "Estudio de grabacion", "comprar casa")
## Generar el gráfico de barras  
barplot(pregunta13,   
        main = "Opciones de viajar si se tuviera recursos ahora mismo",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "yellow",  
        cex.names = 0.8,
        names.arg = nombres_custom13) 

## pregunta 14  
pregunta14 <- table(matriz1[, 14])  

## Generar el gráfico de barras  
nombres_custom14 <- c("Material Visual","Actividad grupal")  
barplot(pregunta14,  
        horiz = FALSE,  
        main = "Material para aprender en el aula",  
        xlab = "Frecuencia",  
        ylab = "Opcion",  
        col = "steelblue1",  
        cex.names = 0.8,  
                names.arg = nombres_custom14)  

## pregunta 15
pregunta15 <- table(matriz1[, 15])  

## Generar el gráfico de barras  
barplot(pregunta15,   
        main = "Autopercepcion del estudiante",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "tan1",  
        cex.names = 0.8) 

## pregunta 15
pregunta15 <- table(matriz1[, 15])  
## Generar el gráfico de barras  
nombres_custom15 <- c("Libros", "Portatil", "Golosinas")
## Generar el gráfico de barras  
barplot(pregunta15,   
        main = "Opciones para llevar en una situación extrema",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "plum1",  
        cex.names = 0.8,
        names.arg = nombres_custom15) 

## pregunta 16
pregunta16 <- table(matriz1[, 16])  
## Generar el gráfico de barras  
nombres_custom16 <- c("Movimiento", "Ruido", "Explicacion larga")
## Generar el gráfico de barras  
barplot(pregunta16,   
        main = "Mayor distractor en clase",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "salmon",  
        cex.names = 0.8,
        names.arg = nombres_custom16) 

## pregunta 17
pregunta17 <- table(matriz1[, 17])  
## Generar el gráfico de barras  
nombres_custom17 <- c("Noticia", "Entretenimiento", "Reportaje")
## Generar el gráfico de barras  
barplot(pregunta17,   
        main = "Preferencia a programa televisivo",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "slategray",  
        cex.names = 0.8,
        names.arg = nombres_custom17) 

## pregunta 18
pregunta18 <- table(matriz1[, 18])  
## Generar el gráfico de barras  
nombres_custom18 <- c("ir al cine", "concierto", "Quedarse en casa")
## Generar el gráfico de barras  
barplot(pregunta18,   
        main = "Actividad para hacer en tiempo libre",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "snow",  
        cex.names = 0.8,
        names.arg = nombres_custom18) 

## pregunta 19
pregunta19 <- table(matriz1[, 19])  
## Generar el gráfico de barras  
nombres_custom19 <- c("Aspectos", "sinceridad de voz", "estrechar la mano")
## Generar el gráfico de barras  
barplot(pregunta19,   
        main = "Formas de crear una opinion de los demas",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "firebrick",  
        cex.names = 0.8,
        names.arg = nombres_custom19) 

## pregunta 20
pregunta20 <- table(matriz1[, 20])  
## Generar el gráfico de barras  
nombres_custom20 <- c("Viviendo algo juntos", "conversando", "salir/deportes")
## Generar el gráfico de barras  
barplot(pregunta20,   
        main = "Formas de pasar el tiempo con el mejor amigo/a",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "lightcyan1",  
        cex.names = 0.8,
        names.arg = nombres_custom20) 

## pregunta 22
pregunta22 <- table(matriz1[, 22])  
## Generar el gráfico de barras  
nombres_custom22 <- c("Con gusto", "Discreta", "Informal")
## Generar el gráfico de barras  
barplot(pregunta22,   
        main = "Autodefinicon de la forma de vestir",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "lightblue2",  
        cex.names = 0.8,
        names.arg = nombres_custom22) 

## pregunta 23
pregunta23 <- table(matriz1[, 23])  
## Generar el gráfico de barras  
nombres_custom23 <- c("Pintor", "Musico", "Medico")
## Generar el gráfico de barras  
barplot(pregunta23,   
        main = "Posibles eleccion de profesion para el futuro",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "lightskyblue",  
        cex.names = 0.8,
        names.arg = nombres_custom23) 

## pregunta 24
pregunta24 <- table(matriz1[, 24])  
## Generar el gráfico de barras  
nombres_custom24 <- c("limpia&ordenada", "silenciosa", "confortable")
## Generar el gráfico de barras  
barplot(pregunta24,   
        main = "Formas de tener la habitacion",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "lightpink",  
        cex.names = 0.8,
        names.arg = nombres_custom24) 

## pregunta 25
pregunta25 <- table(matriz1[, 25])  
## Generar el gráfico de barras  
nombres_custom25 <- c("conocer lugares", "cocnocer personas", "aprender costrumbres")
## Generar el gráfico de barras  
barplot(pregunta25,   
        main = "Preferencia de viajar",  
        xlab = "opcion",  
        ylab = "Frecuencia",  
        col = "magenta2",  
        cex.names = 0.8,
        names.arg = nombres_custom25)

Moda por pregunta

library(dplyr)  
library(tibble)  
library(kableExtra)  

moda_table <- matriz1 %>%  
  mutate_all(as.character) %>%  
  summarize_all(~ names(which.max(table(.))) ) %>%  
  t() %>%  
  as.data.frame() %>%  
  rownames_to_column("Pregunta") %>%  
  rename(Moda = 1)  

# Agregar el correlativo
moda_table$"No." <- rownames(moda_table)  

# formato de presentación de la tabla  
moda_table %>%  
  kable(caption = "Tabla resumen: Modas para el test de aprendizaje",  
        col.names = c(  
            "Preguntas del test",  
          "moda para las preguntas",
          "No."
        ),  
        align = "c",  
        digits = 2  
  ) %>%  
  kable_classic(html_font = "Times New Roman",  
                font_size = 14) %>%  
  row_spec(0, bold = T) %>%  
  footnote(general_title = "Fuente:",  
           general = "Elaboracion propia con datos del test de aprendizaje")
Tabla resumen: Modas para el test de aprendizaje
Preguntas del test moda para las preguntas No. 
Género biológico M 1
¿Qué tipo de examen realizas con mayor facilidad ?
  1. Examen escrito
2
Cuando tienes que aprender algo de memoria…
  1. Memorizo mejor si repito lo estudiado rítmicamente y recuerdo paso a paso
3
Cuando estás en clase y el profesor explica algo que está escrito en la pizarra o en tu libro, te es más fácil seguir las explicaciones…
  1. Escuchando al profesor
4
Marca la frase con la que te identifiques más
  1. Mis cuadernos y libretas están ordenados y bien presentados, me molestan los tachones y las correcciones
5
¿Cuál de las siguientes actividades disfrutas más?
  1. Escuchar música
6
¿De qué manera te resulta más fácil aprender algo
  1. Repitiendo en voz alta
7
Cuando no encuentras las llaves en una bolsa, ¿Qué haces para encontrarlas más rápidamente?
  1. Sacudo la bolsa para oír el ruido
8
Cuando te dan instrucciones…
  1. Me cuesta recordar las instrucciones orales, pero no hay problema si me las dan por escrito
9
¿Cuál de estos ambientes te atrae más?
  1. Uno con una hermosa vista hacía el océano
10
Si te ofrecieran uno de los siguientes empleos ¿cuál elegírias?
  1. Director de un club deportivo
11
¿A qué tipo de evento preferirías asistir?
  1. A un concierto de música
12
Si tuvieras mucho dinero ahora mismo, ¿Qué harías?
  1. Viajar y conocer el mundo
13
En clase lo que más te gusta para aprender es que…
  1. Se organicen actividades en que los alumnos tengan cosas que hacer y puedan moverse
14
Principalmente, ¿Cómo te consideras?
  1. Sociable
15
Si tuvieras que quedarte en una isla desierta, ¿Qué preferirías llevar contigo?
  1. Golosinas y comida enlatada
16
¿Qué cosas te distraen más en clase?
  1. El ruido
17
¿Qué programas de televisión prefieres ver?
  1. Programas de entretenimiento
18
¿Qué prefieres hacer en tu tarde libre ?
  1. Quedarme en casa
19
¿De qué manera te formas una opinión de otras personas?
  1. Por la sinceridad en su voz
20
¿Cómo prefieres pasar el tiempo con tu mejor amigo/a?
  1. Paseando o haciendo deporte
21
¿Cómo definirías tu forma de vestir?
  1. Con gusto y conjuntada
22
Si pudieras elegir ¿qué preferirias ser?
  1. Un gran músico
23
¿Qué es lo que más te gusta de una habitación?
  1. Que esté limpia y ordenada
24
¿Qué es lo que más te gusta de viajar?
  1. Conocer lugares nuevos
25
Elige la letra que más se repite en tus respuestas
26
Fuente:
Elaboracion propia con datos del test de aprendizaje