Caso 1

Objetivo : Desarrolla tabla de frecuencia gráficos para identificar alumnos inscritos

Instalamos los paquetes

install.packages(“fdth”) install.packages(“readr”)

Cargamos Las librerias

library(fdth) library(readr)

Cargamos los datos de la direccion web

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

###Mostramos los primeros 6 datos y los ultimos 6 head(Datos) tail(Datos)

Sacamos los alumnos inscritos de primer semestre de cada carrera

alumnosPrimero <- subset(Datos, Semestre == 1) tabla.frec.Primero <- data.frame(fdt_cat(alumnosPrimero$Carrera)) tabla.frec.Primero

Generamos su grafica la grafica de barras para los alumnos de primer semestre

barplot(main = “Alumnos de Primer Semestre”, xlab = “Carreras”, ylab = “Frecuencia Absoluta”, height = tabla.frec.Primero\(f, names.arg = substr(tabla.frec.Primero\)Category,1,3))

Generamos una tabla de frecuencias para todos los alumnos inscritos

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

Creamos la grafica de barras de la frecuencia para todos los alumnos inscritos

barplot(main = “Alumnos de Todos los Semestre”, xlab = “Carreras”, ylab = “Frecuencia Absoluta”, height = Tabla.FT\(Frec.Absoluta, names.arg = substr(Tabla.FT\)Carrera,1,3))

Generar tabla de distribucion para cada Carrera

###Administracion ADMINISTRACION <- subset(Datos, Carrera == “ADMINISTRACION”) ADMINISTRACION\(Semestre <- factor(ADMINISTRACION\)Semestre)

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

###Arquitectura ARQUITECTURA <- subset(Datos, Carrera == “ARQUITECTURA”) ARQUITECTURA\(Semestre <- factor(ARQUITECTURA\)Semestre)

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

###Sistemas SISTEMAS <- subset(Datos, Carrera == “SISTEMAS”) SISTEMAS\(Semestre <- factor(SISTEMAS\)Semestre)

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

###Bioquimica BIOQUIMICA <- subset(Datos, Carrera == “BIOQUIMICA”) BIOQUIMICA\(Semestre <- factor(BIOQUIMICA\)Semestre)

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

###Civil CIVIL <- subset(Datos, Carrera == “CIVIL”) CIVIL\(Semestre <- factor(CIVIL\)Semestre)

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

###Electrica ELECTRICA <- subset(Datos, Carrera == “ELECTRICA”) ELECTRICA\(Semestre <- factor(ELECTRICA\)Semestre)

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

###Electronica ELECTRONICA <- subset(Datos, Carrera == “ELECTRONICA”) ELECTRONICA\(Semestre <- factor(ELECTRONICA\)Semestre)

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

###Industrial INDUSTRIAL <- subset(Datos, Carrera == “INDUSTRIAL”) INDUSTRIAL\(Semestre <- factor(INDUSTRIAL\)Semestre)

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

###Mecanica MECANICA <- subset(Datos, Carrera == “MECANICA”) MECANICA\(Semestre <- factor(MECANICA\)Semestre)

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

###Mecatronica MECATRONICA <- subset(Datos, Carrera == “MECATRONICA”) MECATRONICA\(Semestre <- factor(MECATRONICA\)Semestre)

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

###Quimica QUIMICA <- subset(Datos, Carrera == “QUIMICA”) QUIMICA\(Semestre <- factor(QUIMICA\)Semestre)

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

###Gestion Empresarial GESTION <- subset(Datos, Carrera == “GESTION EMPRESARIAL”) GESTION\(Semestre <- factor(GESTION\)Semestre)

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

###TICS TIC <- subset(Datos, Carrera == “TIC”) TIC\(Semestre <- factor(TIC\)Semestre)

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

###Informatica INFORMATICA <- subset(Datos, Carrera == “INFORMATICA”) INFORMATICA\(Semestre <- factor(INFORMATICA\)Semestre)

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

###Generamos grafica de barras con la frecuencia de cada carrera

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

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

###Bioquimica barplot(main = “Alumnos de BIOQUIMICA por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tabla.frec.bio\(Frec.Absoluta, names.arg = tabla.frec.bio\)Semestre)

###Civil barplot(main = “Alumnos de CIVIL por Semestres”, xlab = “Semestres”, ylab = “Frecuencia Absoluta”, height = tabla.frec.civ\(Frec.Absoluta, names.arg = tabla.frec.civ\)Semestre)

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

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

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

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

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

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

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

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

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

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

###Mi interpretacion Personalmente las tablas de frecuencia y graficas de barras en este trabajo nos ayudan mucho a ver el tamaño real de cada carrera, incluso por semestre, dandonos cuenta que las carreras con mayor demanda son Arquitectura,Civil y administracion. Esto es importante saberlo sobre todo para futuros aspirantes a ingresar al Tecnologico, ya que pueden ver que tanta demanda tendra la carrera a la que aspiran entrar, y asi preparase como es debido. Tmbien puede resultar util para sociedades de alumnos o elecciones dentro de la escuela, se puede determinar que sector es mas importante a la hora de invertir y asi tener ganada a una porcion mas grande de la escuela. en conclusion, son datos que todos deberian tener al alcance, desde futuros aspirantes a todos los alumnos, para poder estar preparados a la hora de querer realizar algo, o tomar alguna desicion.