Taller de Matemática

Author

Luis Carlos Bolaños

Estadísticas del Taller de Matemática Básica 1

En el taller de Matemática se realizaron tres actividades, La nota final se calcula con estas actividades.

library(readr)
library(dplyr)
library(ggplot2)
library(kableExtra)
library(kableExtra)
####################################
read_csv("notas_taller2.csv")->notas
read_csv("notas_taller.csv")->notas2
head(notas2) %>%
  select(-3) %>% 
  kable() %>% 
  kable_material_dark()### Impresión de  algunas notas  del taller

...1	Seccion	Carnet	Actividad_1	Actividad_2	Actividad_3	nota_final
1	A	202406721	96	100.00	50.00	82.00000
2	A	202400009	100	87.50	100.00	95.83333
3	A	202403841	96	100.00	66.67	87.55667
4	A	202402587	96	74.17	66.66	78.94333
5	A	202307514	98	100.00	50.00	82.66667
6	A	202300343	100	97.50	66.67	88.05667

Estadisticas de las actividades

A continuación se calculan estadísticas de cada una de las actividades, por cada sección.

resumen<-notas %>% 
  group_by(Seccion,actividad) %>% 
  summarise(N=n(),
            Promedio=mean(Nota,na.rm=T),
            Desviacion=sd(Nota,na.rm=T),
            Notas_cero=sum(Nota==0,na.rm=T),
            Nsp=sum(is.na(Nota)),
            '%Ausentes'=Nsp/N*100)
resumen %>% 
  kable(digits = 0) %>%
  kable_material_dark()

Seccion	actividad	N	Promedio	Desviacion	Notas_cero	Nsp	%Ausentes
A	Actividad_1	62	97	3	0	0	0
A	Actividad_2	62	81	24	0	14	23
A	Actividad_3	62	70	25	1	21	34
A	Nota_Final	62	69	25	0	0	0
C	Actividad_1	66	88	14	0	17	26
C	Actividad_2	66	81	22	0	24	36
C	Actividad_3	66	62	29	2	32	48
C	Nota_Final	66	50	35	14	0	0
D	Actividad_1	66	93	6	0	6	9
D	Actividad_2	66	87	17	0	13	20
D	Actividad_3	66	74	25	1	14	21
D	Nota_Final	66	71	29	5	0	0
E	Actividad_1	69	69	36	0	13	19
E	Actividad_2	69	59	37	0	22	32
E	Actividad_3	69	44	31	0	27	39
E	Nota_Final	69	41	29	13	0	0
F	Actividad_1	57	82	20	0	16	28
F	Actividad_2	57	57	32	1	33	58
F	Actividad_3	57	65	28	0	45	79
F	Nota_Final	57	32	29	16	0	0
G	Actividad_1	64	88	16	1	10	16
G	Actividad_2	64	72	23	0	18	28
G	Actividad_3	64	68	29	0	29	45
G	Nota_Final	64	54	30	8	0	0
H	Actividad_1	65	67	36	0	19	29
H	Actividad_2	65	60	35	0	23	35
H	Actividad_3	65	46	30	0	33	51
H	Nota_Final	65	36	30	16	0	0
I	Actividad_1	63	88	13	0	3	5
I	Actividad_2	63	77	27	1	6	10
I	Actividad_3	63	65	29	3	26	41
I	Nota_Final	63	64	26	3	0	0
J	Actividad_1	55	92	9	0	7	13
J	Actividad_2	55	85	22	1	16	29
J	Actividad_3	55	60	33	2	27	49
J	Nota_Final	55	56	31	6	0	0
K	Actividad_1	50	91	13	0	9	18
K	Actividad_2	50	80	25	0	11	22
K	Actividad_3	50	60	31	3	18	36
K	Nota_Final	50	58	34	9	0	0
L	Actividad_1	60	85	20	0	14	23
L	Actividad_2	60	62	33	0	23	38
L	Actividad_3	60	45	30	0	34	57
L	Nota_Final	60	41	28	12	0	0
M	Actividad_1	40	88	9	0	8	20
M	Actividad_2	40	77	24	0	13	32
M	Actividad_3	40	65	30	2	21	52
M	Nota_Final	40	51	33	8	0	0
N	Actividad_1	32	78	18	0	15	47
N	Actividad_2	32	78	18	0	21	66
N	Actividad_3	32	63	20	0	24	75
N	Nota_Final	32	28	31	14	0	0
S	Actividad_1	34	27	36	0	18	53
S	Actividad_2	34	54	41	0	22	65
S	Actividad_3	34	32	17	0	28	82
S	Nota_Final	34	12	17	17	0	0

Ahora se muestran Las estadísticas para todas las secciones.

resumen2<-notas %>% 
  group_by(actividad) %>% 
  summarise(N=n(),
            Promedio=mean(Nota,na.rm=T),
            Desviacion=sd(Nota,na.rm=T),
            Notas_cero=sum(Nota==0,na.rm=T),
            Nsp=sum(is.na(Nota)))
resumen2 %>% 
  kable(digits=2) %>% 
  kable_material()

actividad	N	Promedio	Desviacion	Notas_cero	Nsp
Actividad_1	783	84.18	23.34	1	155
Actividad_2	783	73.76	28.87	3	259
Actividad_3	783	60.53	30.24	14	379
Nota_Final	783	49.34	32.83	141	0

Gráficos del rendimiento de los estudiantes en el taller.

En los siguientes gráficos se muestran las notas promedio para las actividades en las diferentes secciones

Rendimiento General

##### Actividades Generales#####################
ggplot(resumen2,aes(y=Promedio,x=actividad))+
  geom_col(fill="steelblue")+
  labs(title="Promedio General de  Actividades")

Rendimiento Actividad 1

### Actividad 1################################
ggplot(resumen %>% 
         filter(actividad=="Actividad_1"),
       aes(y=Promedio,x=reorder(Seccion,Promedio)))+
  geom_col(fill="steelblue")+
  labs(title="Promedio de  Actividad 1",
       x='Seccion')

Rendimiento Actividad 2

## Actividad 2#################################
ggplot(resumen %>% 
         filter(actividad=="Actividad_2"),
       aes(y=Promedio,x=reorder(Seccion,Promedio)))+
  geom_col(fill="steelblue")+
  labs(title="Promedio de  Actividad 2",
       x='Seccion')

Rendimiento Actividad 3

# Actividad 3###################################
ggplot(resumen %>% 
         filter(actividad=="Actividad_3"),
       aes(y=Promedio,x=reorder(Seccion,Promedio)))+
  geom_col(fill="steelblue")+
  labs(title="Promedio de  Actividad 3",
       x='Seccion')

Rendimiento Nota Final

## Nota Final#########################
ggplot(resumen %>% 
         filter(actividad=="Nota_Final"),
       aes(y=Promedio,x=reorder(Seccion,Promedio)))+
  geom_col(fill="steelblue")+
  labs(title="Promedio de  Nota Final",
       x='Seccion')