Promedios de alumnos

Importar librería

library(readr)

Importar y leer documento

alumnos <- read.csv("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/datos/promedios%20alumnos/datos%20alumnos%20promedios%20SEP%202020.csv")

Media de alumnos de sistemas y arquitectura a partir de 2do semestre

Sistemas

sistemas <- subset(x = alumnos, Carrera == "SISTEMAS" & Semestre > 1)
mean(sistemas$Promedio)
## [1] 85.67495

Arquitectura

arquitectura <- subset(x = alumnos, Carrera == "ARQUITECTURA" & Semestre > 1)
mean(arquitectura$Promedio)
## [1] 86.46481

Total de alumnos por carrera cursando primer semestre

Sistemas

sistemas_primero <- subset(x = alumnos, Carrera == "SISTEMAS" & Semestre == 1)

Arquitectura

arquitectura_primero <- subset(x = alumnos, Carrera == "ARQUITECTURA" & Semestre == 1)

Proceso ciencia de datos:

Cargar datos

Limpiar datos

Analizar datos

Visualizar datos

Interpretar y comunicar resultados

Gráfica de puntos: promedios de alumnos

Sistemas

plot(sistemas$Promedio, col = '#23A4DA')

Arquitectura

plot(arquitectura$Promedio, col = '#8F54D0')

Histograma: promedios de alumnos

color_hist <- colorRampPalette(c("#f6f6f6", "#ffbb91", "#ff8e6e"))

Sistemas

hist(sistemas$Promedio, col = color_hist(3))

Arquitectura

hist(arquitectura$Promedio, col = color_hist(12))

Boxplot: promedios de alumnos

color_box <- c("#e8ded2", 
               "#a3d2ca", 
               "#5eaaa8",
               "#fabea7",
               "#fbe2e5",
               "#9cada4",
               "#ffd5cd",
               "#efbbcf",
               "#c3aed6",
               "#ffdecf",
               "#ba7967",
               "#5e6f64")

Sistemas

boxplot(Promedio ~ Semestre, sistemas, col = color_box)

Arquitectura

boxplot(Promedio ~ Semestre, arquitectura, col = color_box)

Boxplot: Promedio entre carreras

boxplot(Promedio ~ Carrera, alumnos, col = color_box)