Son estadísticas con datos provenientes de la encuesta y datos del SIIT para proceso de Acreditación de carrera ISC
Las librerias necesarias
library(readxl)
## Warning: package 'readxl' was built under R version 3.4.2
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
Los datos
datos <- read_excel("~/RE-ACREDITACIÓN/CURRICULUM DOCENTE. Re-acreditación de carreras. (Respuestas) CON nombres de TITULOS Y PERFILES.xlsx")
Las carreras que tienen TODOS docentes que imparten clases en ISC
carreras <- table (datos$`Nombre Profesional`)
carreras <- transform(carreras)
carreras <- cbind(carreras, porc = round(carreras$Freq / sum(carreras$Freq) * 100, 2))
carreras
## Var1 Freq porc
## 1 INGENIERO EN ELECTRÓNICA 4 7.55
## 2 INGENIERO EN SISTEMAS COMPUTACIONALES 14 26.42
## 3 INGENIERO INDUSTRIAL 3 5.66
## 4 INGENIERO INDUSTRIAL EN ELECTRÓNICA 6 11.32
## 5 INGENIERO INDUSTRIAL QUÍMICO 1 1.89
## 6 LICECIATURA EN INFORMÁTICA 24 45.28
## 7 LICENCIADO EN DISEÑO GRÁFICO 1 1.89
pie(carreras$porc, labels = paste(carreras$porc, '%'), main = "Carreras de TODOS los Docentes que dan clases en la carrera de ISC")
Frecuencia de Perfiles profesionales
perfilprof <- table (datos$`Perfil profesional general`)
perfilprof <- transform(perfilprof)
perfilprof <- cbind(perfilprof, porc = round(perfilprof$Freq / sum(perfilprof$Freq) * 100, 2))
perfilprof
## Var1 Freq porc
## 1 DISEÑO GRÁFICO 1 1.89
## 2 ELECTRÓNICA 9 16.98
## 3 INDUSTRIAL 3 5.66
## 4 QUÍMICO 1 1.89
## 5 TIC 39 73.58
pie(perfilprof$porc, labels = paste(perfilprof$porc, '%'), main = "Perfiles Profesionales")
Plaza
plaza <- table (datos$`5. ¿Cual es su plaza actual?`)
plaza <- transform(plaza)
plaza <- cbind(plaza, porc = round(plaza$Freq / sum(plaza$Freq) * 100, 2))
plaza
## Var1
## 1 PROFESOR ASOCIADO MEDIO TIEMPO A, B, C. E3607, E3609, E3611
## 2 PROFESOR ASOCIADO TRES CUARTOS DE TIEMPO A, B, C. E3707, E3709, E3711
## 3 PROFESOR DE ASIGNATURA A, B, C. E3519, E3521, E3525
## 4 PROFESOR INTERINATO SIN BASE
## 5 PROFESOR INVESTIGADOR E3839, E3861, E3863
## 6 PROFESOR POR CONTRATO HONORARIOS
## 7 PROFESOR TITULAR MEDIO TIEMPO A, B, C. E3613, E3615, E3617
## 8 PROFESOR TITULAR TIEMPO COMPLETO A, B, C. E3813, E3815, E3817
## 9 PROFESOR TITULAR TRES CUARTOS A, B, C. E3713, E3715, E3717
## 10 TECNICO DOCENTE ASOCIADO E3617, E3637 Y E3639
## Freq porc
## 1 1 1.85
## 2 2 3.70
## 3 4 7.41
## 4 3 5.56
## 5 1 1.85
## 6 2 3.70
## 7 5 9.26
## 8 32 59.26
## 9 2 3.70
## 10 2 3.70
pie(plaza$porc, labels = paste(plaza$porc, '%'), main = "Plazas")
Los datos de docentes que imparte especialidad
datos <- read_excel("~/RE-ACREDITACIÓN/relacion plaza docenrte con materias de especialidad.xlsx")
# datos
espe <- table (datos$PLAZA)
espe <- transform(espe)
espe <- cbind(espe, porc = round(espe$Freq / sum(espe$Freq) * 100, 2))
espe
## Var1
## 1 PROFESOR ASOCIADO TRES CUARTOS DE TIEMPO A, B, C. E3707, E3709, E3711
## 2 PROFESOR DE ASIGNATURA A, B, C. E3519, E3521, E3525
## 3 PROFESOR INTERINATO SIN BASE
## 4 PROFESOR TITULAR MEDIO TIEMPO A, B, C. E3613, E3615, E3617
## 5 PROFESOR TITULAR TIEMPO COMPLETO A, B, C. E3813, E3815, E3817
## 6 PROFESOR TITULAR TRES CUARTOS A, B, C. E3713, E3715, E3717
## Freq porc
## 1 2 13.33
## 2 2 13.33
## 3 4 26.67
## 4 1 6.67
## 5 5 33.33
## 6 1 6.67
pie(espe$porc, labels = paste(espe$porc, '%'), main = "Plaza que tienen docentes que imparten Especialidad")
Años de servicio de tiempo completo docentes con especialidad
agnios <- table (datos$TIEMPO)
# agnios
agnios <- transform(agnios)
agnios <- cbind(agnios, porc = round(agnios$Freq / sum(agnios$Freq) * 100, 2))
agnios
## Var1 Freq porc
## 1 1-5 años 5 33.33
## 2 11-15 años 2 13.33
## 3 16-20 años 1 6.67
## 4 21-25 años 3 20.00
## 5 31-35 años 1 6.67
## 6 6-10 años 3 20.00
pie(agnios$porc, labels = paste(agnios$porc, '%'), main = "Años de Servicio")
sum(agnios$porc[which(agnios$Var1 != '1-5 años')])
## [1] 66.67
Nuevamente los datos para estudios de posgrado
datos <- NULL
datos <- read_excel("~/RE-ACREDITACIÓN/CURRICULUM DOCENTE. Re-acreditación de carreras. (Respuestas) CON nombres de TITULOS Y PERFILES.xlsx")
# Hacerlo data.frame para tratar mejor su nombres de variables
datos <- data.frame(datos)
Las docentes de tiempo COMPLETO y cuántos tienen maestría
# datos
completos <- filter(datos, datos$X5...Cual.es.su.plaza.actual. == 'PROFESOR INVESTIGADOR E3839, E3861, E3863' | datos$X5...Cual.es.su.plaza.actual. == 'PROFESOR TITULAR TIEMPO COMPLETO A, B, C. E3813, E3815, E3817')
cuantoscompletos <- length(completos$X1...Cuál.es.el.nombre.del.docente.)
maestria <- filter(completos, is.na(completos$Perfil.Maestría) == FALSE)
cuantosmaestriacompletos <-length(maestria$X1...Cuál.es.el.nombre.del.docente.)
cuantoscompletos
## [1] 33
cuantosmaestriacompletos
## [1] 20
porcentaje1 <- round(cuantosmaestriacompletos / cuantoscompletos * 100, 2)
paste('Porcentaje de docentes con tiempo completo y maestria =', porcentaje1)
## [1] "Porcentaje de docentes con tiempo completo y maestria = 60.61"
Las docentes de tiempo PARCIAL y cuántos tienen maestría
# datos
parcial <- filter(datos, datos$X5...Cual.es.su.plaza.actual. != 'PROFESOR INVESTIGADOR E3839, E3861, E3863' & datos$X5...Cual.es.su.plaza.actual. != 'PROFESOR TITULAR TIEMPO COMPLETO A, B, C. E3813, E3815, E3817')
cuantosparcial <- length(parcial$X1...Cuál.es.el.nombre.del.docente.)
maestria <- filter(parcial, is.na(parcial$Perfil.Maestría) == FALSE)
cuantosmaestriaparcial <-length(maestria$X1...Cuál.es.el.nombre.del.docente.)
cuantosparcial
## [1] 21
cuantosmaestriaparcial
## [1] 12
porcentaje2 <- round(cuantosmaestriaparcial / cuantosparcial * 100, 2)
paste('Porcentaje de docentes con tiempo parcial y maestria =', porcentaje2)
## [1] "Porcentaje de docentes con tiempo parcial y maestria = 57.14"
Docentes con maestría, tiempos completos y parciales
total <- length(datos$Marca.temporal)
leyenda <- rbind(paste("Total:", total, " es ", 100, "%"))
leyenda <- rbind(leyenda, paste("Completo:", cuantosmaestriacompletos, " de ", cuantoscompletos, " es: ", porcentaje1, "%"))
leyenda <- rbind(leyenda, paste("Parcial:", cuantosmaestriaparcial, " de ", cuantosparcial, " es: ", porcentaje2, "%"))
barplot(c(total, cuantoscompletos, cuantosmaestriacompletos, cuantosparcial, cuantosmaestriaparcial), col = c("darkblue", "lightblue", "lightblue", "lightblue1",
"lightblue1"), main = "Docentes con maestría", legend.text = leyenda)
