Frecuencia Alumnos

iNSTALAR LA LIBRERIA EN CASO DE NO TENERLA

install.packages(“fdth”)

Primer Paso

CARGAR LAS LIBRERIAS

library(readr) library(fdth) #### CARGAR LOS DATOS DEL ARCHIVO URL DEL .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 para Alumnos Inscritos de primer 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))

sE HACE EL CAMBIO DE LOS NOMBRE 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”)

GENERAMOS 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)

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)

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)

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)

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)

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)

INTEPRETACION DEL CASO

En este primer caso se vieron lo que son las tablas de frecuencia o distribucion de frecuencias que es una tabla que muestra como se distribuyen los datos de acuerdo a sus frecuencias. De esta forma se interpreta que los daos que se estuvieron obteniendo son clasificacados segun su carrera para poder saber por cada semestre los datos que se van mostrando.

CASO 1

Joan Arreola

17/09/2020