CASO 1
#En Caso de no tener la libreria instalar #install.packages(“fdth”) # Primer Paso # CARGAR LAS LIBRERIAS NECESARIAS
library(readr)
library(fdth)##
## Attaching package: 'fdth'## The following objects are masked from 'package:stats':
##
## sd, varCARGAR LOS DATOS DEL ARCHIVO URL DEL .CSV
datos.alumnos<- 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
AlumnosPrimerS <- subset(datosdeAlumnos, Semestre == 1)
TablaAlumnPrimerS<- data.frame(AlumnosPrimerS)
head(datosdeAlumnos)## No..Control Alumno Semestre Cr..Apr. Carga Promedio Carrera
## 1 20190001 1 11 198 19 80.21 SISTEMAS
## 2 20190002 2 11 235 10 84.33 SISTEMAS
## 3 20190003 3 9 235 10 95.25 SISTEMAS
## 4 20190004 4 9 226 19 95.00 SISTEMAS
## 5 20190005 5 10 231 14 82.32 SISTEMAS
## 6 20190006 6 9 212 23 95.02 SISTEMAStail(datosdeAlumnos)## No..Control Alumno Semestre Cr..Apr. Carga Promedio Carrera
## 5924 20195924 5924 2 27 28 92.83 ADMINISTRACION
## 5925 20195925 5925 7 94 13 80.95 ADMINISTRACION
## 5926 20195926 5926 5 103 32 92.68 ADMINISTRACION
## 5927 20195927 5927 4 79 34 86.18 ADMINISTRACION
## 5928 20195928 5928 5 108 32 90.48 ADMINISTRACION
## 5929 20195929 5929 7 169 32 92.33 ADMINISTRACIONCOMO 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
Generar los primeros alumnos
alumnosPrimersem <- subset(datosdeAlumnos, Semestre == 1)
head(alumnosPrimersem)## No..Control Alumno Semestre Cr..Apr. Carga Promedio Carrera
## 75 20190075 75 1 NA 27 0 SISTEMAS
## 76 20190076 76 1 NA 27 0 SISTEMAS
## 77 20190077 77 1 NA 27 0 SISTEMAS
## 83 20190083 83 1 NA 27 0 SISTEMAS
## 85 20190085 85 1 NA 27 0 SISTEMAS
## 86 20190086 86 1 NA 27 0 SISTEMAStail(alumnosPrimersem)## No..Control Alumno Semestre Cr..Apr. Carga Promedio Carrera
## 5885 20195885 5885 1 NA 27 0 ADMINISTRACION
## 5893 20195893 5893 1 NA 27 0 ADMINISTRACION
## 5894 20195894 5894 1 NA 27 0 ADMINISTRACION
## 5895 20195895 5895 1 NA 27 0 ADMINISTRACION
## 5914 20195914 5914 1 NA 27 0 ADMINISTRACION
## 5915 20195915 5915 1 NA 27 0 ADMINISTRACIONHacer el cambio de nombres de la tabla
TodosLosAlumnos <- data.frame(fdt_cat(alumnosPrimersem$Carrera))
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
TablatodoslosAlumnos <- data.frame(fdt_cat(datosdeAlumnos$Carrera))
names(TablatodoslosAlumnos) <- c("Carrera","Frec.Absoluta","Frec.Relativa","Frec.Porc","Frec.Acum","Frec.Acum.Porc")
TablatodoslosAlumnos## Carrera Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum
## 1 INDUSTRIAL 707 0.11924439 11.924439 707
## 2 ARQUITECTURA 675 0.11384719 11.384719 1382
## 3 CIVIL 648 0.10929330 10.929330 2030
## 4 GESTION EMPRESARIAL 585 0.09866757 9.866757 2615
## 5 QUIMICA 568 0.09580030 9.580030 3183
## 6 ADMINISTRACION 497 0.08382527 8.382527 3680
## 7 SISTEMAS 452 0.07623545 7.623545 4132
## 8 BIOQUIMICA 441 0.07438017 7.438017 4573
## 9 MECATRONICA 432 0.07286220 7.286220 5005
## 10 MECANICA 301 0.05076741 5.076741 5306
## 11 ELECTRICA 280 0.04722550 4.722550 5586
## 12 ELECTRONICA 161 0.02715466 2.715466 5747
## 13 INFORMATICA 101 0.01703491 1.703491 5848
## 14 TIC 81 0.01366166 1.366166 5929
## Frec.Acum.Porc
## 1 11.92444
## 2 23.30916
## 3 34.23849
## 4 44.10525
## 5 53.68528
## 6 62.06780
## 7 69.69135
## 8 77.12936
## 9 84.41558
## 10 89.49233
## 11 94.21488
## 12 96.93034
## 13 98.63383
## 14 100.00000####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")
tablasis## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 78 0.172566372 17.2566372 78 17.25664
## 2 3 64 0.141592920 14.1592920 142 31.41593
## 3 7 58 0.128318584 12.8318584 200 44.24779
## 4 5 51 0.112831858 11.2831858 251 55.53097
## 5 8 46 0.101769912 10.1769912 297 65.70796
## 6 4 38 0.084070796 8.4070796 335 74.11504
## 7 9 35 0.077433628 7.7433628 370 81.85841
## 8 2 29 0.064159292 6.4159292 399 88.27434
## 9 10 15 0.033185841 3.3185841 414 91.59292
## 10 11 15 0.033185841 3.3185841 429 94.91150
## 11 6 14 0.030973451 3.0973451 443 98.00885
## 12 13 5 0.011061947 1.1061947 448 99.11504
## 13 12 4 0.008849558 0.8849558 452 100.00000ARQUITECTURA <- 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")
tablaarq## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 128 0.18962963 18.962963 128 18.96296
## 2 2 87 0.12888889 12.888889 215 31.85185
## 3 3 66 0.09777778 9.777778 281 41.62963
## 4 6 64 0.09481481 9.481481 345 51.11111
## 5 4 62 0.09185185 9.185185 407 60.29630
## 6 8 60 0.08888889 8.888889 467 69.18519
## 7 5 58 0.08592593 8.592593 525 77.77778
## 8 7 53 0.07851852 7.851852 578 85.62963
## 9 9 47 0.06962963 6.962963 625 92.59259
## 10 10 31 0.04592593 4.592593 656 97.18519
## 11 12 11 0.01629630 1.629630 667 98.81481
## 12 11 8 0.01185185 1.185185 675 100.00000BIOQUIMICA <- 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")
tablabio## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 84 0.190476190 19.0476190 84 19.04762
## 2 3 65 0.147392290 14.7392290 149 33.78685
## 3 7 55 0.124716553 12.4716553 204 46.25850
## 4 5 47 0.106575964 10.6575964 251 56.91610
## 5 4 40 0.090702948 9.0702948 291 65.98639
## 6 9 38 0.086167800 8.6167800 329 74.60317
## 7 6 36 0.081632653 8.1632653 365 82.76644
## 8 2 34 0.077097506 7.7097506 399 90.47619
## 9 8 17 0.038548753 3.8548753 416 94.33107
## 10 11 11 0.024943311 2.4943311 427 96.82540
## 11 10 10 0.022675737 2.2675737 437 99.09297
## 12 12 3 0.006802721 0.6802721 440 99.77324
## 13 13 1 0.002267574 0.2267574 441 100.00000CIVIL <- 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")
tablaciv## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 86 0.13271605 13.271605 86 13.27160
## 2 2 74 0.11419753 11.419753 160 24.69136
## 3 6 72 0.11111111 11.111111 232 35.80247
## 4 5 71 0.10956790 10.956790 303 46.75926
## 5 3 66 0.10185185 10.185185 369 56.94444
## 6 4 66 0.10185185 10.185185 435 67.12963
## 7 7 58 0.08950617 8.950617 493 76.08025
## 8 8 57 0.08796296 8.796296 550 84.87654
## 9 9 44 0.06790123 6.790123 594 91.66667
## 10 10 30 0.04629630 4.629630 624 96.29630
## 11 12 15 0.02314815 2.314815 639 98.61111
## 12 11 8 0.01234568 1.234568 647 99.84568
## 13 15 1 0.00154321 0.154321 648 100.00000ELECTRICA <- 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")
tablaelec## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 77 0.275000000 27.5000000 77 27.50000
## 2 5 54 0.192857143 19.2857143 131 46.78571
## 3 3 42 0.150000000 15.0000000 173 61.78571
## 4 7 27 0.096428571 9.6428571 200 71.42857
## 5 9 21 0.075000000 7.5000000 221 78.92857
## 6 11 15 0.053571429 5.3571429 236 84.28571
## 7 6 12 0.042857143 4.2857143 248 88.57143
## 8 10 12 0.042857143 4.2857143 260 92.85714
## 9 12 8 0.028571429 2.8571429 268 95.71429
## 10 8 6 0.021428571 2.1428571 274 97.85714
## 11 15 3 0.010714286 1.0714286 277 98.92857
## 12 2 1 0.003571429 0.3571429 278 99.28571
## 13 13 1 0.003571429 0.3571429 279 99.64286
## 14 14 1 0.003571429 0.3571429 280 100.00000ELECTRONICA <- 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")
tablaelect## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 36 0.22360248 22.360248 36 22.36025
## 2 3 32 0.19875776 19.875776 68 42.23602
## 3 5 26 0.16149068 16.149068 94 58.38509
## 4 9 22 0.13664596 13.664596 116 72.04969
## 5 7 21 0.13043478 13.043478 137 85.09317
## 6 11 10 0.06211180 6.211180 147 91.30435
## 7 6 6 0.03726708 3.726708 153 95.03106
## 8 10 5 0.03105590 3.105590 158 98.13665
## 9 8 3 0.01863354 1.863354 161 100.00000INDUSTRIAL <- 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")
tablaind## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 88 0.124469590 12.4469590 88 12.44696
## 2 3 87 0.123055163 12.3055163 175 24.75248
## 3 5 82 0.115983027 11.5983027 257 36.35078
## 4 7 77 0.108910891 10.8910891 334 47.24187
## 5 6 76 0.107496464 10.7496464 410 57.99151
## 6 2 75 0.106082037 10.6082037 485 68.59972
## 7 4 69 0.097595474 9.7595474 554 78.35926
## 8 8 69 0.097595474 9.7595474 623 88.11881
## 9 9 38 0.053748232 5.3748232 661 93.49364
## 10 10 24 0.033946252 3.3946252 685 96.88826
## 11 11 8 0.011315417 1.1315417 693 98.01980
## 12 12 6 0.008486563 0.8486563 699 98.86846
## 13 14 5 0.007072136 0.7072136 704 99.57567
## 14 13 3 0.004243281 0.4243281 707 100.00000MECANICA <- 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")
tablameca## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 76 0.252491694 25.2491694 76 25.24917
## 2 3 58 0.192691030 19.2691030 134 44.51827
## 3 5 43 0.142857143 14.2857143 177 58.80399
## 4 7 41 0.136212625 13.6212625 218 72.42525
## 5 6 21 0.069767442 6.9767442 239 79.40199
## 6 9 18 0.059800664 5.9800664 257 85.38206
## 7 8 14 0.046511628 4.6511628 271 90.03322
## 8 11 14 0.046511628 4.6511628 285 94.68439
## 9 10 11 0.036544850 3.6544850 296 98.33887
## 10 12 3 0.009966777 0.9966777 299 99.33555
## 11 4 2 0.006644518 0.6644518 301 100.00000MECATRONICA <- 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")
tablamec## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 70 0.162037037 16.2037037 70 16.20370
## 2 5 64 0.148148148 14.8148148 134 31.01852
## 3 3 61 0.141203704 14.1203704 195 45.13889
## 4 7 56 0.129629630 12.9629630 251 58.10185
## 5 4 45 0.104166667 10.4166667 296 68.51852
## 6 8 32 0.074074074 7.4074074 328 75.92593
## 7 9 28 0.064814815 6.4814815 356 82.40741
## 8 2 26 0.060185185 6.0185185 382 88.42593
## 9 6 23 0.053240741 5.3240741 405 93.75000
## 10 10 16 0.037037037 3.7037037 421 97.45370
## 11 11 8 0.018518519 1.8518519 429 99.30556
## 12 12 3 0.006944444 0.6944444 432 100.00000QUIMICA <- 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")
tablaquim## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 89 0.156690141 15.6690141 89 15.66901
## 2 3 77 0.135563380 13.5563380 166 29.22535
## 3 2 65 0.114436620 11.4436620 231 40.66901
## 4 5 65 0.114436620 11.4436620 296 52.11268
## 5 7 58 0.102112676 10.2112676 354 62.32394
## 6 9 57 0.100352113 10.0352113 411 72.35915
## 7 8 54 0.095070423 9.5070423 465 81.86620
## 8 4 39 0.068661972 6.8661972 504 88.73239
## 9 6 32 0.056338028 5.6338028 536 94.36620
## 10 10 19 0.033450704 3.3450704 555 97.71127
## 11 11 8 0.014084507 1.4084507 563 99.11972
## 12 12 4 0.007042254 0.7042254 567 99.82394
## 13 13 1 0.001760563 0.1760563 568 100.00000GESTION<- 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")
tablagest## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 89 0.152136752 15.2136752 89 15.21368
## 2 3 73 0.124786325 12.4786325 162 27.69231
## 3 5 67 0.114529915 11.4529915 229 39.14530
## 4 8 63 0.107692308 10.7692308 292 49.91453
## 5 7 58 0.099145299 9.9145299 350 59.82906
## 6 6 54 0.092307692 9.2307692 404 69.05983
## 7 9 48 0.082051282 8.2051282 452 77.26496
## 8 2 41 0.070085470 7.0085470 493 84.27350
## 9 4 40 0.068376068 6.8376068 533 91.11111
## 10 10 29 0.049572650 4.9572650 562 96.06838
## 11 11 16 0.027350427 2.7350427 578 98.80342
## 12 12 6 0.010256410 1.0256410 584 99.82906
## 13 13 1 0.001709402 0.1709402 585 100.00000TIC <- 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")
tablatic## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 3 18 0.22222222 22.222222 18 22.22222
## 2 1 17 0.20987654 20.987654 35 43.20988
## 3 5 16 0.19753086 19.753086 51 62.96296
## 4 7 16 0.19753086 19.753086 67 82.71605
## 5 9 8 0.09876543 9.876543 75 92.59259
## 6 11 6 0.07407407 7.407407 81 100.00000INFORMATICA <- 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")
tablainf## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 30 0.29702970 29.702970 30 29.70297
## 2 3 23 0.22772277 22.772277 53 52.47525
## 3 5 14 0.13861386 13.861386 67 66.33663
## 4 7 14 0.13861386 13.861386 81 80.19802
## 5 9 13 0.12871287 12.871287 94 93.06931
## 6 11 5 0.04950495 4.950495 99 98.01980
## 7 4 1 0.00990099 0.990099 100 99.00990
## 8 13 1 0.00990099 0.990099 101 100.00000ADMINISTRACION <- 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")
tablaadm## Semestre Frec.Absoluta Frec.Relativa Frec.Porc Frec.Acum Frec.Acum.Porc
## 1 1 83 0.16700201 16.700201 83 16.70020
## 2 5 66 0.13279678 13.279678 149 29.97988
## 3 7 65 0.13078471 13.078471 214 43.05835
## 4 3 62 0.12474849 12.474849 276 55.53320
## 5 8 49 0.09859155 9.859155 325 65.39235
## 6 9 46 0.09255533 9.255533 371 74.64789
## 7 2 37 0.07444668 7.444668 408 82.09256
## 8 6 31 0.06237425 6.237425 439 88.32998
## 9 4 27 0.05432596 5.432596 466 93.76258
## 10 10 15 0.03018109 3.018109 481 96.78068
## 11 11 12 0.02414487 2.414487 493 99.19517
## 12 12 4 0.00804829 0.804829 497 100.00000Genera 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)