R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

### Practica 1

### 1.- Carga de librerias
library(readr)
library(fdth)
## 
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
## 
##     sd, var
### 2.- Carga de los datos
DatosPractica<-read.csv("C:/Users/omara/Desktop/7 Semestre/Probabilidad y Estadistica/Datos/datosPractica1.csv")
#DatosPractica

### 3.- Primeros y Ultimos 6 Registros de la tabla
head(DatosPractica)
##   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 SISTEMAS
tail(DatosPractica)
##      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 ADMINISTRACION
### 4.- Frecuencia de los alumnos inscritos en 1 semestre
DatosPractica$Semestre <- factor(DatosPractica$Semestre)
DatosPractica$Carrera <- factor(DatosPractica$Carrera)
tablaFrec <- data.frame(fdt_cat(DatosPractica$Semestre))

alumnosPrimero <- subset(DatosPractica, Semestre == 1)
frecuenciaTable <- data.frame(fdt_cat(alumnosPrimero$Carrera))
frecuenciaTable
##               Category   f         rf     rf...   cf     cf...
## 1         ARQUITECTURA 128 0.12415131 12.415131  128  12.41513
## 2  GESTION EMPRESARIAL  89 0.08632396  8.632396  217  21.04753
## 3              QUIMICA  89 0.08632396  8.632396  306  29.67992
## 4           INDUSTRIAL  88 0.08535403  8.535403  394  38.21532
## 5                CIVIL  86 0.08341416  8.341416  480  46.55674
## 6           BIOQUIMICA  84 0.08147430  8.147430  564  54.70417
## 7       ADMINISTRACION  83 0.08050436  8.050436  647  62.75461
## 8             SISTEMAS  78 0.07565470  7.565470  725  70.32008
## 9            ELECTRICA  77 0.07468477  7.468477  802  77.78855
## 10            MECANICA  76 0.07371484  7.371484  878  85.16004
## 11         MECATRONICA  70 0.06789525  6.789525  948  91.94956
## 12         ELECTRONICA  36 0.03491756  3.491756  984  95.44132
## 13         INFORMATICA  30 0.02909796  2.909796 1014  98.35112
## 14                 TIC  17 0.01648885  1.648885 1031 100.00000
names(frecuenciaTable) <- c("Carrera","Frec.Absoluta","Frec.Relativa","Frec.Porc","Frec.Acum","Frec.Acum.Porc")

### 5.- Grafica de barras de la frecuencia
barplot(main = "Alumnos de Primer Semestre",
        xlab = "Carreras", ylab = "Frecuencia Absoluta",
        height = frecuenciaTable$Frec.Absoluta, 
        names.arg = substr(frecuenciaTable$Carrera,1,3))

### 6.- Tabla de distribucion de frecuencias
TablaFrecuencias <- data.frame(fdt_cat(DatosPractica$Carrera))
names(TablaFrecuencias) <- c("Carrera","Frec.Absoluta","Frec.Relativa","Frec.Porc","Frec.Acum","Frec.Acum.Porc") 

TablaFrecuencias
##                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
### 7.- Grafica de barras, Frecuencia de todos los alumnos

barplot(main = "Alumnos de Todos los Semestre",
        xlab = "Carreras", ylab = "Frecuencia Absoluta",
        height = TablaFrecuencias$Frec.Absoluta, 
        names.arg = substr(TablaFrecuencias$Carrera,1,3))

### 8 .- Tabla de frecuencia inividual por carrera

###Arquitectura
ARQUITECTURA <- subset(DatosPractica, 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
##    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.00000
###Sistemas
SISTEMAS <- subset(DatosPractica, 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
##    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.00000
###Bioquimica
BIOQUIMICA <- subset(DatosPractica, 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
##    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.00000
###ing. Civil
CIVIL <- subset(DatosPractica, 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
##    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.00000
###ing. Electrica
ELECTRICA <- subset(DatosPractica, 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
##    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.00000
###ing, Electronica
ELECTRONICA <- subset(DatosPractica, 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
##   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.00000
###Industrial
INDUSTRIAL <- subset(DatosPractica, 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
##    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.00000
###Mecanica
MECANICA <- subset(DatosPractica, 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
##    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.00000
###Mecatronica
MECATRONICA <- subset(DatosPractica, 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
##    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.00000
###Quimica
QUIMICA <- subset(DatosPractica, 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
##    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.00000
###Gestion Empresarial
GESTION <- subset(DatosPractica, 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
##    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.00000
###Tics
TIC <- subset(DatosPractica, 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
##   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.00000
#Informatica
INFORMATICA <- subset(DatosPractica, 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
##   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.00000
###9.- Grafica de barras alumnos nscritos por cada semestre (uno por semestre)


barplot(main = "Alumnos de ARQUITECTURA por Semestres",
        xlab = "Semestres", ylab = "Frecuencia Absoluta",
        height = tabla.frec.arq$Frec.Absoluta, 
        names.arg = tabla.frec.arq$Semestre)

barplot(main = "Alumnos de BIOQUIMICA por Semestres",
        xlab = "Semestres", ylab = "Frecuencia Absoluta",
        height = tabla.frec.bio$Frec.Absoluta, 
        names.arg = tabla.frec.bio$Semestre)

barplot(main = "Alumnos de CIVIL por Semestres",
        xlab = "Semestres", ylab = "Frecuencia Absoluta",
        height = tabla.frec.civ$Frec.Absoluta, 
        names.arg = tabla.frec.civ$Semestre)

barplot(main = "Alumnos de ELECTRICA por Semestres",
        xlab = "Semestres", ylab = "Frecuencia Absoluta",
        height = tabla.frec.ele$Frec.Absoluta, 
        names.arg = tabla.frec.ele$Semestre)

barplot(main = "Alumnos de ELECTRICA por Semestres",
        xlab = "Semestres", ylab = "Frecuencia Absoluta",
        height = tabla.frec.ele$Frec.Absoluta, 
        names.arg = tabla.frec.ele$Semestre)

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)

barplot(main = "Alumnos de INDUSTRIAL por Semestres",
        xlab = "Semestres", ylab = "Frecuencia Absoluta",
        height = tabla.frec.ind$Frec.Absoluta, 
        names.arg = tabla.frec.ind$Semestre)

barplot(main = "Alumnos de INFORMATICA por Semestres",
        xlab = "Semestres", ylab = "Frecuencia Absoluta",
        height = tabla.frec.inf$Frec.Absoluta, 
        names.arg = tabla.frec.inf$Semestre)

barplot(main = "Alumnos de MECANICA por Semestres",
        xlab = "Semestres", ylab = "Frecuencia Absoluta",
        height = tabla.frec.mec$Frec.Absoluta, 
        names.arg = tabla.frec.mec$Semestre)

barplot(main = "Alumnos de MECATRONICA por Semestres",
        xlab = "Semestres", ylab = "Frecuencia Absoluta",
        height = tabla.frec.met$Frec.Absoluta, 
        names.arg = tabla.frec.met$Semestre)

barplot(main = "Alumnos de QUIMICA por Semestres",
        xlab = "Semestres", ylab = "Frecuencia Absoluta",
        height = tabla.frec.qui$Frec.Absoluta, 
        names.arg = tabla.frec.qui$Semestre)

barplot(main = "Alumnos de SISTEMAS por Semestres",
        xlab = "Semestres", ylab = "Frecuencia Absoluta",
        height = tabla.frec.sis$Frec.Absoluta, 
        names.arg = tabla.frec.sis$Semestre)

barplot(main = "Alumnos de TIC por Semestres",
        xlab = "Semestres", ylab = "Frecuencia Absoluta",
        height = tabla.frec.tic$Frec.Absoluta, 
        names.arg = tabla.frec.tic$Semestre)

###10.- Descripción del caso
###Este caso, partiendo de la cantidad de datos 
###proporcionado, es un caso muy extenso,
###el cual nos da pauta a todas las 
###opreciones que aquí se realizan, así 
###como son las graficas de barras de tablas de frecuencias de
###cada semestre, así como la discriminacipon de datos del 
###ejercicio 1. Viendo la cantidad de datos con las que disponemos 
###tenemos que: Los atributos o columnas en el archivo de los datos 
###son 7, y los registros o filas para esos atributos ronda mas de los 5000.
###La variable de interes en las frecuencias es el semestre, no el No. de ###control ya que ese es unico y ese no se repite. Las tablas de distibución se ###nos sirven para conocer mejor el muestro de los datos, y así poder ###manejarlos con facilidad. Y que gracias a las graficas de barras podemos ###intepretar frecuencias d
###e un dato, o caso en especifico de manera concreta y entendible

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.