1 Resumen Estadístico del rendimiento

EL taller de matemática básica 1 y matemática básica 2 consta de tres cuestionarios en los que se evalúa el conocimiento de el software Geografía y Python para resolver problemas de pre calculo y calculo.

Las actividades se realizan como cuestionarios autocalificables en la plataforma moodle.

En los siguientes apartados se da un reporte estadístico de las notas obtenidas por los estudiantes en dichas actividades para las diferentes secciones de los cursos de matemática básica de la facultad de ingeniería USAC.

1.1 Taller de matemática básica 2025

En la siguientes tabla muestra el resumen estadístico general de las actividades del taller.

notas %>% 
  select(`ACTIVIDAD 1`,`ACTIVIDAD 2`,`ACTIVIDAD 3`,NOTA_FINAL,NOTA_FINAL,CURSO) %>% 
  pivot_longer(cols = `ACTIVIDAD 1`:NOTA_FINAL,names_to = 'ACTIVIDAD',
               values_to ='NOTA' ) %>% 
  group_by(CURSO,ACTIVIDAD) %>% 
  summarise(N=n(),Media=mean(NOTA), sd=sd(NOTA)) %>% 
  kable(digits = 0) %>% 
  kable_classic_2()
CURSO ACTIVIDAD N Media sd
MB1 ACTIVIDAD 1 1631 62 32
MB1 ACTIVIDAD 2 1631 52 33
MB1 ACTIVIDAD 3 1631 23 29
MB1 NOTA_FINAL 1631 43 25
MB2 ACTIVIDAD 1 516 60 37
MB2 ACTIVIDAD 2 516 37 35
MB2 ACTIVIDAD 3 516 35 43
MB2 NOTA_FINAL 516 43 31

En la siguiente Gráfico se explora la distribución de las notas obtenidas por los estudiantes en las actividades del taller de Matemática básica.

notas %>% 
  select(`ACTIVIDAD 1`,`ACTIVIDAD 2`,`ACTIVIDAD 3`,NOTA_FINAL,NOTA_FINAL,CURSO) %>% 
  pivot_longer(cols = `ACTIVIDAD 1`:NOTA_FINAL,names_to = 'ACTIVIDAD',
               values_to ='NOTA' ) %>% 
  ggplot(aes(x=ACTIVIDAD,y=NOTA,fill = CURSO))+
  geom_boxplot()+
  labs(title='Actividades del taller de Matematica')

2 Actividad 1

Se muestra el resumen de la actividad 1 por sección de matemática básica 1 y matemática básica2.

notas %>% 
  group_by(CURSO,SECCION) %>% 
  summarise(N=n(),Media=mean(`ACTIVIDAD 1`), sd=sd(`ACTIVIDAD 1`)) %>% 
  arrange(CURSO,desc(Media)) %>% 
  kable(digits = 0) %>% 
  kable_classic_2()
CURSO SECCION N Media sd
MB1 J 101 72 26
MB1 B 75 71 28
MB1 A 100 70 28
MB1 I 98 69 26
MB1 L 64 69 21
MB1 C 92 65 29
MB1 K 62 64 33
MB1 F 98 64 29
MB1 G 100 64 30
MB1 M 115 63 32
MB1 D 116 61 32
MB1 E 116 60 29
MB1 H 95 58 32
MB1 N 94 57 32
MB1 Z 66 56 37
MB1 T 69 56 36
MB1 X 65 55 37
MB1 O 39 51 38
MB1 Y 39 46 44
MB1 P 27 39 40
MB2 E 79 77 28
MB2 A 74 67 36
MB2 G 76 63 37
MB2 B 73 61 37
MB2 N 44 59 36
MB2 F 77 54 38
MB2 P 31 49 39
MB2 M 62 39 38

2.1 Gráfico de rendimiento de los estudiantes en la actividad 1

En el siguiente gráfico se observa la nota promedio de la actividad 1 para las diferentes secciones y cursos.

notas %>%
  group_by(CURSO, SECCION) %>%
  summarise(
    N = n(),
    Media = mean(`ACTIVIDAD 1`, na.rm = TRUE),
    sd = sd(`ACTIVIDAD 1`, na.rm = TRUE)
  ) %>%
  ggplot(aes(x = reorder(SECCION, Media), y = Media, fill = SECCION)) +
  geom_col() +
  geom_errorbar(
    aes(ymin = Media - sd, ymax = Media + sd),
    width = 0.3,
    color = "black"
  ) +
  geom_text(
    aes(label = round(Media, 1)),
    vjust = -0.5,
    size = 3
  ) +
  facet_grid(rows = vars(CURSO), scales = "free_x") +
  scale_fill_viridis_d(option = "D") +
  labs(
    x = "Sección",
    y = "Media de Actividad 1",
    title = "Promedio por Sección y Curso"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text( hjust = 1),
    legend.position = "none"
  )

3 Actividad 2

Se muestra el resumen de la actividad 2 por sección de matemática básica 1 y matemática básica2.

notas %>% 
  group_by(CURSO,SECCION) %>% 
  summarise(N=n(),Media=mean(`ACTIVIDAD 2`), sd=sd(`ACTIVIDAD 1`)) %>% 
  arrange(CURSO,desc(Media)) %>% 
  kable(digits = 0) %>% 
  kable_classic_2()
CURSO SECCION N Media sd
MB1 B 75 63 28
MB1 A 100 63 28
MB1 I 98 62 26
MB1 J 101 59 26
MB1 L 64 57 21
MB1 E 116 54 29
MB1 M 115 54 32
MB1 C 92 53 29
MB1 F 98 52 29
MB1 H 95 51 32
MB1 D 116 50 32
MB1 K 62 49 33
MB1 N 94 49 32
MB1 X 65 46 37
MB1 G 100 46 30
MB1 T 69 44 36
MB1 O 39 43 38
MB1 Y 39 41 44
MB1 Z 66 34 37
MB1 P 27 24 40
MB2 E 79 56 28
MB2 G 76 47 37
MB2 B 73 46 37
MB2 N 44 39 36
MB2 F 77 37 38
MB2 P 31 35 39
MB2 M 62 34 38
MB2 A 74 3 36

3.1 Gráfico de rendimiento de los estudiantes en la actividad 2

En el siguiente gráfico se observa la nota promedio de la actividad 2 para las diferentes secciones y cursos.

notas %>%
  group_by(CURSO, SECCION) %>%
  summarise(
    N = n(),
    Media = mean(`ACTIVIDAD 2`, na.rm = TRUE),
    sd = sd(`ACTIVIDAD 2`, na.rm = TRUE)
  ) %>%
  ggplot(aes(x = reorder(SECCION, Media), y = Media, fill = SECCION)) +
  geom_col() +
  geom_errorbar(
    aes(ymin = Media - sd, ymax = Media + sd),
    width = 0.3,
    color = "black"
  ) +
  geom_text(
    aes(label = round(Media, 1)),
    vjust = -0.5,
    size = 3
  ) +
  facet_grid(rows = vars(CURSO), scales = "free_x") +
  scale_fill_viridis_d(option = "D") +
  labs(
    x = "Sección",
    y = "Media de Actividad 1",
    title = "Promedio por Sección y Curso"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text( hjust = 1),
    legend.position = "none"
  )

4 Actividad 3

Se muestra el resumen de la actividad 3 por sección de matemática básica 1 y matemática básica2.

notas %>% 
  group_by(CURSO,SECCION) %>% 
  summarise(N=n(),Media=mean(`ACTIVIDAD 3`), sd=sd(`ACTIVIDAD 1`)) %>% 
  arrange(CURSO,desc(Media)) %>% 
  kable(digits = 0) %>% 
  kable_classic_2()
CURSO SECCION N Media sd
MB1 A 100 35 28
MB1 B 75 34 28
MB1 I 98 34 26
MB1 J 101 29 26
MB1 C 92 28 29
MB1 F 98 24 29
MB1 M 115 24 32
MB1 T 69 23 36
MB1 K 62 23 33
MB1 Z 66 23 37
MB1 Y 39 22 44
MB1 X 65 18 37
MB1 G 100 18 30
MB1 H 95 18 32
MB1 O 39 17 38
MB1 E 116 17 29
MB1 L 64 16 21
MB1 N 94 16 32
MB1 D 116 13 32
MB1 P 27 5 40
MB2 E 79 48 28
MB2 G 76 45 37
MB2 B 73 39 37
MB2 N 44 38 36
MB2 A 74 36 36
MB2 P 31 27 39
MB2 F 77 24 38
MB2 M 62 19 38

4.1 Grafico de rendimiento de los estudiantes en la actividad 3

En el siguiente gráfico se observa la nota promedio de la actividad 3 para las diferentes secciones y cursos.

notas %>%
  group_by(CURSO, SECCION) %>%
  summarise(
    N = n(),
    Media = mean(`ACTIVIDAD 3`, na.rm = TRUE),
    sd = sd(`ACTIVIDAD 3`, na.rm = TRUE)
  ) %>%
  ggplot(aes(x = reorder(SECCION, Media), y = Media, fill = SECCION)) +
  geom_col() +
  geom_errorbar(
    aes(ymin = Media - sd, ymax = Media + sd),
    width = 0.3,
    color = "black"
  ) +
  geom_text(
    aes(label = round(Media, 1)),
    vjust = -0.5,
    size = 3
  ) +
  facet_grid(rows = vars(CURSO), scales = "free_x") +
  scale_fill_viridis_d(option = "D") +
  labs(
    x = "Sección",
    y = "Media de Actividad 1",
    title = "Promedio por Sección y Curso"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text( hjust = 1),
    legend.position = "none"
  )