Caso I

Primer paso:

Cargar librearias

library(readr) library(fdth) # Cargar los datos del archivo URL .csv read.csv(“https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/datos/promedios%20alumnos/datos%20alumnos%20promedios%20SEP%202020.csv”)

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

Generar tabla de alumnos inscritos de 1er semestre

View(datosdeAlumnos) AlumnosPrimerS <- subset(datosdeAlumnos, Semestre == 1) TablaAlumnPrimerS<- data.frame(AlumnosPrimerS) head(datosdeAlumnos) tail(datosdeAlumnos) # COMO VEN YA ESTAN EXTRAIDOS LOS DATOS DE LOS ALUMNOS DE TODAS LAS CARRERRAS QUE ESTAN EN PRIMER SEMESTRE

Lo Siguiente vamos a generar una grafica de barras para los alumnos de primer semestre

alumnosPrimersem <- subset(datosdeAlumnos, Semestre == 1) head(alumnosPrimersem) tail(alumnosPrimersem) TodosLosAlumnos <- data.frame(fdt_cat(alumnosPrimersem$Carrera))

Hacer el cambio de nombres de la tabla

names(TodosLosAlumnos) <- c(“Carrera”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

barplot(main = “Todos los Alumnos de Primer Semestre”, xlab = “Carreras”, ylab = “Frecuencia Absoluta”, height = TodosLosAlumnos\(Frec.Absoluta, names.arg = substr(TodosLosAlumnos\)Carrera,1,3)) # GENERAREMOS UNA TABLA DE FRECUENCIAS PERO AHORA DE TODOS LOS ALUMNOS Y A SU VEZ TAMBIEN LA GRAFICA DE TODOS Generar la dicha tabla Cambiar los nombres a las columnas

TablatodoslosAlumnos <- data.frame(fdt_cat(datosdeAlumnos$Carrera)) names(TablatodoslosAlumnos) <- c(“Carrera”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

#CONTINUAMOS CON GENERAR LA GRAFICA DE DICHOS DATOS barplot(main = “Todos los Alumnos”, xlab = “Carreras”, ylab = “Frecuencia Absoluta”, height = TablatodoslosAlumnos\(Frec.Absoluta, names.arg = substr(TablatodoslosAlumnos\)Carrera,1,3))

Ahora toca Generar tabla de distribución de frecuencias de alumnos inscritos por carreras por semestre

SISTEMAS <- subset(datos.alumnos, Carrera == “SISTEMAS”) SISTEMAS\(Semestre <- factor(SISTEMAS\)Semestre)

tablasis <- data.frame(fdt_cat(SISTEMAS$Semestre)) names(tablasis) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

ARQUITECTURA <- subset(datos.alumnos, Carrera == “ARQUITECTURA”) ARQUITECTURA\(Semestre <- factor(ARQUITECTURA\)Semestre)

tablaarq <- data.frame(fdt_cat(ARQUITECTURA$Semestre)) names(tablaarq) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

BIOQUIMICA <- subset(datos.alumnos, Carrera == “BIOQUIMICA”) BIOQUIMICA\(Semestre <- factor(BIOQUIMICA\)Semestre)

tablabio <- data.frame(fdt_cat(BIOQUIMICA$Semestre)) names(tablabio) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

CIVIL <- subset(datos.alumnos, Carrera == “CIVIL”) CIVIL\(Semestre <- factor(CIVIL\)Semestre)

tablaciv <- data.frame(fdt_cat(CIVIL$Semestre)) names(tablaciv) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

ELECTRICA <- subset(datos.alumnos, Carrera == “ELECTRICA”) ELECTRICA\(Semestre <- factor(ELECTRICA\)Semestre)

tablaelec <- data.frame(fdt_cat(ELECTRICA$Semestre)) names(tablaelec) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

ELECTRONICA <- subset(datos.alumnos, Carrera == “ELECTRONICA”) ELECTRONICA\(Semestre <- factor(ELECTRONICA\)Semestre)

tablaelect <- data.frame(fdt_cat(ELECTRONICA$Semestre)) names(tablaelect) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

INDUSTRIAL <- subset(datos.alumnos, Carrera == “INDUSTRIAL”) INDUSTRIAL\(Semestre <- factor(INDUSTRIAL\)Semestre)

tablaind <- data.frame(fdt_cat(INDUSTRIAL$Semestre)) names(tablaind) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

MECANICA <- subset(datos.alumnos, Carrera == “MECANICA”) MECANICA\(Semestre <- factor(MECANICA\)Semestre)

tablameca <- data.frame(fdt_cat(MECANICA$Semestre)) names(tablameca) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

MECATRONICA <- subset(datos.alumnos, Carrera == “MECATRONICA”) MECATRONICA\(Semestre <- factor(MECATRONICA\)Semestre)

tablamec <- data.frame(fdt_cat(MECATRONICA$Semestre)) names(tablamec) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

QUIMICA <- subset(datos.alumnos, Carrera == “QUIMICA”) QUIMICA\(Semestre <- factor(QUIMICA\)Semestre)

tablaquim <- data.frame(fdt_cat(QUIMICA$Semestre)) names(tablaquim) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

GESTION<- subset(datos.alumnos, Carrera == “GESTION EMPRESARIAL”) GESTION\(Semestre <- factor(GESTION\)Semestre)

tablagest <- data.frame(fdt_cat(GESTION$Semestre)) names(tablagest) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

TIC <- subset(datos.alumnos, Carrera == “TIC”) TIC\(Semestre <- factor(TIC\)Semestre)

tablatic <- data.frame(fdt_cat(TIC$Semestre)) names(tablatic) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

INFORMATICA <- subset(datos.alumnos, Carrera == “INFORMATICA”) INFORMATICA\(Semestre <- factor(INFORMATICA\)Semestre)

tablainf <- data.frame(fdt_cat(INFORMATICA$Semestre)) names(tablainf) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

ADMINISTRACION <- subset(datos.alumnos, Carrera == “ADMINISTRACION”) ADMINISTRACION\(Semestre <- factor(ADMINISTRACION\)Semestre)

tablaadm <- data.frame(fdt_cat(ADMINISTRACION$Semestre)) names(tablaadm) <- c(“Semestre”,“Frec.Absoluta”,“Frec.Relativa”,“Frec.Porc”,“Frec.Acum”,“Frec.Acum.Porc”)

Genera una gráfica de barra de alumnos inscritos por carreras por semestre

#SISTEMAS barplot(main = “Alumnos de SISTEMAS por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablasis\(Frec.Absoluta, names.arg = tablasis\)Semestre)

#ARQUITECTURA barplot(main = “Alumnos de ARQUITECTURA por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablaarq\(Frec.Absoluta, names.arg = tablaarq\)Semestre)

#BIOQUIMICA barplot(main = “Alumnos de BIOQUIMICA por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablabio\(Frec.Absoluta, names.arg = tablabio\)Semestre) #CIVIL barplot(main = “Alumnos de CIVIL por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablaciv\(Frec.Absoluta, names.arg = tablaciv\)Semestre)

#ELECTRICA barplot(main = “Alumnos de ELECTRICA por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablaelec\(Frec.Absoluta, names.arg = tablaelec\)Semestre)

#ELECTRONICA barplot(main = “Alumnos de ELECTRONICA por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablaelect\(Frec.Absoluta, names.arg = tablaelect\)Semestre)

#INDUSTRIAL barplot(main = “Alumnos de INDUSTRIAL por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablaind\(Frec.Absoluta, names.arg = tablaind\)Semestre)

#MECANICA barplot(main = “Alumnos de MECANICA por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablameca\(Frec.Absoluta, names.arg = tablameca\)Semestre)

#MECATRONICA barplot(main = “Alumnos de MECATRONICA por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablamec\(Frec.Absoluta, names.arg = tablamec\)Semestre)

#QUIMICA barplot(main = “Alumnos de QUIMICA por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablaquim\(Frec.Absoluta, names.arg = tablaquim\)Semestre)

#GESTION EMPRESARIAL barplot(main = “Alumnos de GESTION EMPRESARIAL por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablagest\(Frec.Absoluta, names.arg = tablagest\)Semestre)

#TIC barplot(main = “Alumnos de TIC por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablatic\(Frec.Absoluta, names.arg = tablatic\)Semestre)

#INFORMATICA barplot(main = “Alumnos de INFORMATICA por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablainf\(Frec.Absoluta, names.arg = tablainf\)Semestre)

#ADMINISTRACION barplot(main = “Alumnos de ADMINISTRACION por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tablaadm\(Frec.Absoluta, names.arg = tablaadm\)Semestre)