CASO 2

CASO 2

Determinar tablas de frecuencias con datos alumnos PyE14

Nombre:

Alumnos inscritos en periodo Septiembre 2020- Enero 2021 en escuela de educación superior.

Objetivo:

Analizar un conjunto de datos académicos de alumnos para determinar tablas de frecuencias que permitan interpretar acontecimientos de la vida escolar de estudiantes de una Instituciónde educación superior.

1. Cargar librerías

library(readr)
library(fdth)

## 
## Attaching package: 'fdth'

## The following objects are masked from 'package:stats':
## 
##     sd, var

2. Cargar los datos

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

3. Mostrar los primeros seis registros

head(alumnos)

##   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

4. Generar tabla de distribución de frecuencias de los alumnos inscritos de primer semestre de cada carrera por medio de subset() y fdt_cat() según sea el caso.

primer_semestre <- subset(alumnos, Semestre == 1)
tabla.frecuencia <- fdt_cat(primer_semestre$Carrera)
tabla.frecuencia

##             Category   f   rf rf(%)   cf  cf(%)
##         ARQUITECTURA 128 0.12 12.42  128  12.42
##  GESTION EMPRESARIAL  89 0.09  8.63  217  21.05
##              QUIMICA  89 0.09  8.63  306  29.68
##           INDUSTRIAL  88 0.09  8.54  394  38.22
##                CIVIL  86 0.08  8.34  480  46.56
##           BIOQUIMICA  84 0.08  8.15  564  54.70
##       ADMINISTRACION  83 0.08  8.05  647  62.75
##             SISTEMAS  78 0.08  7.57  725  70.32
##            ELECTRICA  77 0.07  7.47  802  77.79
##             MECANICA  76 0.07  7.37  878  85.16
##          MECATRONICA  70 0.07  6.79  948  91.95
##          ELECTRONICA  36 0.03  3.49  984  95.44
##          INFORMATICA  30 0.03  2.91 1014  98.35
##                  TIC  17 0.02  1.65 1031 100.00

5. Genera gráfica de barra de la frecuencia de alumnos de primer semestre por cada carrera.

barplot(height = tabla.frecuencia$f, 
        names.arg = tabla.frecuencia$Category,
        main = "Frecuencia de Alumnos de Primer Semestre")

6. Generar tabla de distribución de frecuencias de todos los alumnos inscritos

tabla.frecuencia.todos <- fdt_cat(alumnos$Carrera)
tabla.frecuencia.todos

##             Category   f   rf rf(%)   cf  cf(%)
##           INDUSTRIAL 707 0.12 11.92  707  11.92
##         ARQUITECTURA 675 0.11 11.38 1382  23.31
##                CIVIL 648 0.11 10.93 2030  34.24
##  GESTION EMPRESARIAL 585 0.10  9.87 2615  44.11
##              QUIMICA 568 0.10  9.58 3183  53.69
##       ADMINISTRACION 497 0.08  8.38 3680  62.07
##             SISTEMAS 452 0.08  7.62 4132  69.69
##           BIOQUIMICA 441 0.07  7.44 4573  77.13
##          MECATRONICA 432 0.07  7.29 5005  84.42
##             MECANICA 301 0.05  5.08 5306  89.49
##            ELECTRICA 280 0.05  4.72 5586  94.21
##          ELECTRONICA 161 0.03  2.72 5747  96.93
##          INFORMATICA 101 0.02  1.70 5848  98.63
##                  TIC  81 0.01  1.37 5929 100.00

7. Genera gráfica de barra de la frecuencia de alumnos de todos los semestres por carrera.

barplot(height = tabla.frecuencia.todos$f, 
        names.arg = tabla.frecuencia.todos$Category,
        main = "Frecuencia de Alumnos inscritos por Carrera")

8. Generar tabla de distribución de frecuencias de alumnos inscritos por carreras por semestre.

ARQUITECTURA

ARQUITECTURA <- subset(alumnos, Carrera == "ARQUITECTURA")
ARQUITECTURA$Semestre <- factor(ARQUITECTURA$Semestre)

tabla_frecuencia.SIS <- fdt_cat(ARQUITECTURA$Semestre)
tabla_frecuencia.SIS

##  Category   f   rf rf(%)  cf  cf(%)
##         1 128 0.19 18.96 128  18.96
##         2  87 0.13 12.89 215  31.85
##         3  66 0.10  9.78 281  41.63
##         6  64 0.09  9.48 345  51.11
##         4  62 0.09  9.19 407  60.30
##         8  60 0.09  8.89 467  69.19
##         5  58 0.09  8.59 525  77.78
##         7  53 0.08  7.85 578  85.63
##         9  47 0.07  6.96 625  92.59
##        10  31 0.05  4.59 656  97.19
##        12  11 0.02  1.63 667  98.81
##        11   8 0.01  1.19 675 100.00

QUIMICA

QUIMICA <- subset(alumnos, Carrera == "QUIMICA")
QUIMICA$Semestre <- factor(QUIMICA$Semestre)

tabla_frecuencia.SIS <- fdt_cat(QUIMICA$Semestre)
tabla_frecuencia.SIS

##  Category  f   rf rf(%)  cf  cf(%)
##         1 89 0.16 15.67  89  15.67
##         3 77 0.14 13.56 166  29.23
##         2 65 0.11 11.44 231  40.67
##         5 65 0.11 11.44 296  52.11
##         7 58 0.10 10.21 354  62.32
##         9 57 0.10 10.04 411  72.36
##         8 54 0.10  9.51 465  81.87
##         4 39 0.07  6.87 504  88.73
##         6 32 0.06  5.63 536  94.37
##        10 19 0.03  3.35 555  97.71
##        11  8 0.01  1.41 563  99.12
##        12  4 0.01  0.70 567  99.82
##        13  1 0.00  0.18 568 100.00

INDUSTRIAL

INDUSTRIAL <- subset(alumnos, Carrera == "INDUSTRIAL")
INDUSTRIAL$Semestre <- factor(INDUSTRIAL$Semestre)

tabla_frecuencia.SIS <- fdt_cat(INDUSTRIAL$Semestre)
tabla_frecuencia.SIS

##  Category  f   rf rf(%)  cf  cf(%)
##         1 88 0.12 12.45  88  12.45
##         3 87 0.12 12.31 175  24.75
##         5 82 0.12 11.60 257  36.35
##         7 77 0.11 10.89 334  47.24
##         6 76 0.11 10.75 410  57.99
##         2 75 0.11 10.61 485  68.60
##         4 69 0.10  9.76 554  78.36
##         8 69 0.10  9.76 623  88.12
##         9 38 0.05  5.37 661  93.49
##        10 24 0.03  3.39 685  96.89
##        11  8 0.01  1.13 693  98.02
##        12  6 0.01  0.85 699  98.87
##        14  5 0.01  0.71 704  99.58
##        13  3 0.00  0.42 707 100.00

CIVIL

CIVIL <- subset(alumnos, Carrera == "CIVIL")
CIVIL$Semestre <- factor(CIVIL$Semestre)

tabla_frecuencia.SIS <- fdt_cat(CIVIL$Semestre)
tabla_frecuencia.SIS

##  Category  f   rf rf(%)  cf  cf(%)
##         1 86 0.13 13.27  86  13.27
##         2 74 0.11 11.42 160  24.69
##         6 72 0.11 11.11 232  35.80
##         5 71 0.11 10.96 303  46.76
##         3 66 0.10 10.19 369  56.94
##         4 66 0.10 10.19 435  67.13
##         7 58 0.09  8.95 493  76.08
##         8 57 0.09  8.80 550  84.88
##         9 44 0.07  6.79 594  91.67
##        10 30 0.05  4.63 624  96.30
##        12 15 0.02  2.31 639  98.61
##        11  8 0.01  1.23 647  99.85
##        15  1 0.00  0.15 648 100.00

BIOQUIMICA

BIOQUIMICA <- subset(alumnos, Carrera == "BIOQUIMICA")
BIOQUIMICA$Semestre <- factor(BIOQUIMICA$Semestre)

tabla_frecuencia.SIS <- fdt_cat(BIOQUIMICA$Semestre)
tabla_frecuencia.SIS

##  Category  f   rf rf(%)  cf  cf(%)
##         1 84 0.19 19.05  84  19.05
##         3 65 0.15 14.74 149  33.79
##         7 55 0.12 12.47 204  46.26
##         5 47 0.11 10.66 251  56.92
##         4 40 0.09  9.07 291  65.99
##         9 38 0.09  8.62 329  74.60
##         6 36 0.08  8.16 365  82.77
##         2 34 0.08  7.71 399  90.48
##         8 17 0.04  3.85 416  94.33
##        11 11 0.02  2.49 427  96.83
##        10 10 0.02  2.27 437  99.09
##        12  3 0.01  0.68 440  99.77
##        13  1 0.00  0.23 441 100.00

ADMINISTRACION

ADMINISTRACION <- subset(alumnos, Carrera == "ADMINISTRACION")
ADMINISTRACION$Semestre <- factor(ADMINISTRACION$Semestre)

tabla_frecuencia.SIS <- fdt_cat(ADMINISTRACION$Semestre)
tabla_frecuencia.SIS

##  Category  f   rf rf(%)  cf  cf(%)
##         1 83 0.17 16.70  83  16.70
##         5 66 0.13 13.28 149  29.98
##         7 65 0.13 13.08 214  43.06
##         3 62 0.12 12.47 276  55.53
##         8 49 0.10  9.86 325  65.39
##         9 46 0.09  9.26 371  74.65
##         2 37 0.07  7.44 408  82.09
##         6 31 0.06  6.24 439  88.33
##         4 27 0.05  5.43 466  93.76
##        10 15 0.03  3.02 481  96.78
##        11 12 0.02  2.41 493  99.20
##        12  4 0.01  0.80 497 100.00

ELECTRICA

ELECTRICA <- subset(alumnos, Carrera == "ELECTRICA")
ELECTRICA$Semestre <- factor(ELECTRICA$Semestre)

tabla_frecuencia.SIS <- fdt_cat(ELECTRICA$Semestre)
tabla_frecuencia.SIS

##  Category  f   rf rf(%)  cf  cf(%)
##         1 77 0.28 27.50  77  27.50
##         5 54 0.19 19.29 131  46.79
##         3 42 0.15 15.00 173  61.79
##         7 27 0.10  9.64 200  71.43
##         9 21 0.07  7.50 221  78.93
##        11 15 0.05  5.36 236  84.29
##         6 12 0.04  4.29 248  88.57
##        10 12 0.04  4.29 260  92.86
##        12  8 0.03  2.86 268  95.71
##         8  6 0.02  2.14 274  97.86
##        15  3 0.01  1.07 277  98.93
##         2  1 0.00  0.36 278  99.29
##        13  1 0.00  0.36 279  99.64
##        14  1 0.00  0.36 280 100.00

MECANICA

MECANICA <- subset(alumnos, Carrera == "MECANICA")
MECANICA$Semestre <- factor(MECANICA$Semestre)

tabla_frecuencia.SIS <- fdt_cat(MECANICA$Semestre)
tabla_frecuencia.SIS

##  Category  f   rf rf(%)  cf  cf(%)
##         1 76 0.25 25.25  76  25.25
##         3 58 0.19 19.27 134  44.52
##         5 43 0.14 14.29 177  58.80
##         7 41 0.14 13.62 218  72.43
##         6 21 0.07  6.98 239  79.40
##         9 18 0.06  5.98 257  85.38
##         8 14 0.05  4.65 271  90.03
##        11 14 0.05  4.65 285  94.68
##        10 11 0.04  3.65 296  98.34
##        12  3 0.01  1.00 299  99.34
##         4  2 0.01  0.66 301 100.00

SISTEMAS

SISTEMAS <- subset(alumnos, Carrera == "SISTEMAS")
SISTEMAS$Semestre <- factor(SISTEMAS$Semestre)

tabla_frecuencia.SIS <- fdt_cat(SISTEMAS$Semestre)
tabla_frecuencia.SIS

##  Category  f   rf rf(%)  cf  cf(%)
##         1 78 0.17 17.26  78  17.26
##         3 64 0.14 14.16 142  31.42
##         7 58 0.13 12.83 200  44.25
##         5 51 0.11 11.28 251  55.53
##         8 46 0.10 10.18 297  65.71
##         4 38 0.08  8.41 335  74.12
##         9 35 0.08  7.74 370  81.86
##         2 29 0.06  6.42 399  88.27
##        10 15 0.03  3.32 414  91.59
##        11 15 0.03  3.32 429  94.91
##         6 14 0.03  3.10 443  98.01
##        13  5 0.01  1.11 448  99.12
##        12  4 0.01  0.88 452 100.00

MECATRONICA

MECATRONICA <- subset(alumnos, Carrera == "MECATRONICA")
MECATRONICA$Semestre <- factor(MECATRONICA$Semestre)

tabla_frecuencia.SIS <- fdt_cat(MECATRONICA$Semestre)
tabla_frecuencia.SIS

##  Category  f   rf rf(%)  cf  cf(%)
##         1 70 0.16 16.20  70  16.20
##         5 64 0.15 14.81 134  31.02
##         3 61 0.14 14.12 195  45.14
##         7 56 0.13 12.96 251  58.10
##         4 45 0.10 10.42 296  68.52
##         8 32 0.07  7.41 328  75.93
##         9 28 0.06  6.48 356  82.41
##         2 26 0.06  6.02 382  88.43
##         6 23 0.05  5.32 405  93.75
##        10 16 0.04  3.70 421  97.45
##        11  8 0.02  1.85 429  99.31
##        12  3 0.01  0.69 432 100.00

ELECTRONICA

ELECTRONICA <- subset(alumnos, Carrera == "ELECTRONICA")
ELECTRONICA$Semestre <- factor(ELECTRONICA$Semestre)

tabla_frecuencia.SIS <- fdt_cat(ELECTRONICA$Semestre)
tabla_frecuencia.SIS

##  Category  f   rf rf(%)  cf  cf(%)
##         1 36 0.22 22.36  36  22.36
##         3 32 0.20 19.88  68  42.24
##         5 26 0.16 16.15  94  58.39
##         9 22 0.14 13.66 116  72.05
##         7 21 0.13 13.04 137  85.09
##        11 10 0.06  6.21 147  91.30
##         6  6 0.04  3.73 153  95.03
##        10  5 0.03  3.11 158  98.14
##         8  3 0.02  1.86 161 100.00

INFORMATICA

INFORMATICA <- subset(alumnos, Carrera == "INFORMATICA")
INFORMATICA$Semestre <- factor(INFORMATICA$Semestre)

tabla_frecuencia.SIS <- fdt_cat(INFORMATICA$Semestre)
tabla_frecuencia.SIS

##  Category  f   rf rf(%)  cf  cf(%)
##         1 30 0.30 29.70  30  29.70
##         3 23 0.23 22.77  53  52.48
##         5 14 0.14 13.86  67  66.34
##         7 14 0.14 13.86  81  80.20
##         9 13 0.13 12.87  94  93.07
##        11  5 0.05  4.95  99  98.02
##         4  1 0.01  0.99 100  99.01
##        13  1 0.01  0.99 101 100.00

TIC

TIC <- subset(alumnos, Carrera == "TIC")
TIC$Semestre <- factor(TIC$Semestre)

tabla_frecuencia.SIS <- fdt_cat(TIC$Semestre)
tabla_frecuencia.SIS

##  Category  f   rf rf(%) cf  cf(%)
##         3 18 0.22 22.22 18  22.22
##         1 17 0.21 20.99 35  43.21
##         5 16 0.20 19.75 51  62.96
##         7 16 0.20 19.75 67  82.72
##         9  8 0.10  9.88 75  92.59
##        11  6 0.07  7.41 81 100.00

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

ARQUITECTURA

tabla_frecuencia.ARQUITECTURA <- fdt_cat(ARQUITECTURA$Semestre)
tabla_frecuencia.ARQUITECTURA

##  Category   f   rf rf(%)  cf  cf(%)
##         1 128 0.19 18.96 128  18.96
##         2  87 0.13 12.89 215  31.85
##         3  66 0.10  9.78 281  41.63
##         6  64 0.09  9.48 345  51.11
##         4  62 0.09  9.19 407  60.30
##         8  60 0.09  8.89 467  69.19
##         5  58 0.09  8.59 525  77.78
##         7  53 0.08  7.85 578  85.63
##         9  47 0.07  6.96 625  92.59
##        10  31 0.05  4.59 656  97.19
##        12  11 0.02  1.63 667  98.81
##        11   8 0.01  1.19 675 100.00

barplot(height = tabla_frecuencia.ARQUITECTURA$f, 
        names.arg = tabla_frecuencia.ARQUITECTURA$Category,
        main = "Frecuencia de Alumnos ARQUITECTURA por Semestre")

QUIMICA

tabla_frecuencia.QUIMICA <- fdt_cat(QUIMICA$Semestre)
tabla_frecuencia.QUIMICA

##  Category  f   rf rf(%)  cf  cf(%)
##         1 89 0.16 15.67  89  15.67
##         3 77 0.14 13.56 166  29.23
##         2 65 0.11 11.44 231  40.67
##         5 65 0.11 11.44 296  52.11
##         7 58 0.10 10.21 354  62.32
##         9 57 0.10 10.04 411  72.36
##         8 54 0.10  9.51 465  81.87
##         4 39 0.07  6.87 504  88.73
##         6 32 0.06  5.63 536  94.37
##        10 19 0.03  3.35 555  97.71
##        11  8 0.01  1.41 563  99.12
##        12  4 0.01  0.70 567  99.82
##        13  1 0.00  0.18 568 100.00

barplot(height = tabla_frecuencia.QUIMICA$f, 
        names.arg = tabla_frecuencia.QUIMICA$Category,
        main = "Frecuencia de Alumnos QUIMICA por Semestre")

INDUSTRIAL

tabla_frecuencia.INDUSTRIAL <- fdt_cat(INDUSTRIAL$Semestre)
tabla_frecuencia.INDUSTRIAL

##  Category  f   rf rf(%)  cf  cf(%)
##         1 88 0.12 12.45  88  12.45
##         3 87 0.12 12.31 175  24.75
##         5 82 0.12 11.60 257  36.35
##         7 77 0.11 10.89 334  47.24
##         6 76 0.11 10.75 410  57.99
##         2 75 0.11 10.61 485  68.60
##         4 69 0.10  9.76 554  78.36
##         8 69 0.10  9.76 623  88.12
##         9 38 0.05  5.37 661  93.49
##        10 24 0.03  3.39 685  96.89
##        11  8 0.01  1.13 693  98.02
##        12  6 0.01  0.85 699  98.87
##        14  5 0.01  0.71 704  99.58
##        13  3 0.00  0.42 707 100.00

barplot(height = tabla_frecuencia.INDUSTRIAL$f, 
        names.arg = tabla_frecuencia.INDUSTRIAL$Category,
        main = "Frecuencia de Alumnos INDUSTRIAL por Semestre")

CIVIL

tabla_frecuencia.CIVIL <- fdt_cat(CIVIL$Semestre)
tabla_frecuencia.CIVIL

##  Category  f   rf rf(%)  cf  cf(%)
##         1 86 0.13 13.27  86  13.27
##         2 74 0.11 11.42 160  24.69
##         6 72 0.11 11.11 232  35.80
##         5 71 0.11 10.96 303  46.76
##         3 66 0.10 10.19 369  56.94
##         4 66 0.10 10.19 435  67.13
##         7 58 0.09  8.95 493  76.08
##         8 57 0.09  8.80 550  84.88
##         9 44 0.07  6.79 594  91.67
##        10 30 0.05  4.63 624  96.30
##        12 15 0.02  2.31 639  98.61
##        11  8 0.01  1.23 647  99.85
##        15  1 0.00  0.15 648 100.00

barplot(height = tabla_frecuencia.CIVIL$f, 
        names.arg = tabla_frecuencia.CIVIL$Category,
        main = "Frecuencia de Alumnos CIVIL por Semestre")

BIOQUIMICA

tabla_frecuencia.BIOQUIMICA <- fdt_cat(BIOQUIMICA$Semestre)
tabla_frecuencia.BIOQUIMICA

##  Category  f   rf rf(%)  cf  cf(%)
##         1 84 0.19 19.05  84  19.05
##         3 65 0.15 14.74 149  33.79
##         7 55 0.12 12.47 204  46.26
##         5 47 0.11 10.66 251  56.92
##         4 40 0.09  9.07 291  65.99
##         9 38 0.09  8.62 329  74.60
##         6 36 0.08  8.16 365  82.77
##         2 34 0.08  7.71 399  90.48
##         8 17 0.04  3.85 416  94.33
##        11 11 0.02  2.49 427  96.83
##        10 10 0.02  2.27 437  99.09
##        12  3 0.01  0.68 440  99.77
##        13  1 0.00  0.23 441 100.00

barplot(height = tabla_frecuencia.BIOQUIMICA$f, 
        names.arg = tabla_frecuencia.BIOQUIMICA$Category,
        main = "Frecuencia de Alumnos BIOQUIMICA por Semestre")

ADMINISTRACION

tabla_frecuencia.ADMINISTRACION <- fdt_cat(ADMINISTRACION$Semestre)
tabla_frecuencia.ADMINISTRACION

##  Category  f   rf rf(%)  cf  cf(%)
##         1 83 0.17 16.70  83  16.70
##         5 66 0.13 13.28 149  29.98
##         7 65 0.13 13.08 214  43.06
##         3 62 0.12 12.47 276  55.53
##         8 49 0.10  9.86 325  65.39
##         9 46 0.09  9.26 371  74.65
##         2 37 0.07  7.44 408  82.09
##         6 31 0.06  6.24 439  88.33
##         4 27 0.05  5.43 466  93.76
##        10 15 0.03  3.02 481  96.78
##        11 12 0.02  2.41 493  99.20
##        12  4 0.01  0.80 497 100.00

barplot(height = tabla_frecuencia.ADMINISTRACION$f, 
        names.arg = tabla_frecuencia.ADMINISTRACION$Category,
        main = "Frecuencia de Alumnos ADMINISTRACION por Semestre")

SISTEMAS

tabla_frecuencia.SISTEMAS <- fdt_cat(SISTEMAS$Semestre)
tabla_frecuencia.SISTEMAS

##  Category  f   rf rf(%)  cf  cf(%)
##         1 78 0.17 17.26  78  17.26
##         3 64 0.14 14.16 142  31.42
##         7 58 0.13 12.83 200  44.25
##         5 51 0.11 11.28 251  55.53
##         8 46 0.10 10.18 297  65.71
##         4 38 0.08  8.41 335  74.12
##         9 35 0.08  7.74 370  81.86
##         2 29 0.06  6.42 399  88.27
##        10 15 0.03  3.32 414  91.59
##        11 15 0.03  3.32 429  94.91
##         6 14 0.03  3.10 443  98.01
##        13  5 0.01  1.11 448  99.12
##        12  4 0.01  0.88 452 100.00

barplot(height = tabla_frecuencia.SISTEMAS$f, 
        names.arg = tabla_frecuencia.SISTEMAS$Category,
        main = "Frecuencia de Alumnos SISTEMAS por Semestre")

ELECTRICA

tabla_frecuencia.ELECTRICA <- fdt_cat(ELECTRICA$Semestre)
tabla_frecuencia.ELECTRICA

##  Category  f   rf rf(%)  cf  cf(%)
##         1 77 0.28 27.50  77  27.50
##         5 54 0.19 19.29 131  46.79
##         3 42 0.15 15.00 173  61.79
##         7 27 0.10  9.64 200  71.43
##         9 21 0.07  7.50 221  78.93
##        11 15 0.05  5.36 236  84.29
##         6 12 0.04  4.29 248  88.57
##        10 12 0.04  4.29 260  92.86
##        12  8 0.03  2.86 268  95.71
##         8  6 0.02  2.14 274  97.86
##        15  3 0.01  1.07 277  98.93
##         2  1 0.00  0.36 278  99.29
##        13  1 0.00  0.36 279  99.64
##        14  1 0.00  0.36 280 100.00

barplot(height = tabla_frecuencia.ELECTRICA$f, 
        names.arg = tabla_frecuencia.ELECTRICA$Category,
        main = "Frecuencia de Alumnos ELECTRICA por Semestre")

MECANICA

tabla_frecuencia.MECANICA <- fdt_cat(MECANICA$Semestre)
tabla_frecuencia.MECANICA

##  Category  f   rf rf(%)  cf  cf(%)
##         1 76 0.25 25.25  76  25.25
##         3 58 0.19 19.27 134  44.52
##         5 43 0.14 14.29 177  58.80
##         7 41 0.14 13.62 218  72.43
##         6 21 0.07  6.98 239  79.40
##         9 18 0.06  5.98 257  85.38
##         8 14 0.05  4.65 271  90.03
##        11 14 0.05  4.65 285  94.68
##        10 11 0.04  3.65 296  98.34
##        12  3 0.01  1.00 299  99.34
##         4  2 0.01  0.66 301 100.00

barplot(height = tabla_frecuencia.MECANICA$f, 
        names.arg = tabla_frecuencia.MECANICA$Category,
        main = "Frecuencia de Alumnos MECANICA por Semestre")

MECATRONICA

tabla_frecuencia.MECATRONICA <- fdt_cat(MECATRONICA$Semestre)
tabla_frecuencia.MECATRONICA

##  Category  f   rf rf(%)  cf  cf(%)
##         1 70 0.16 16.20  70  16.20
##         5 64 0.15 14.81 134  31.02
##         3 61 0.14 14.12 195  45.14
##         7 56 0.13 12.96 251  58.10
##         4 45 0.10 10.42 296  68.52
##         8 32 0.07  7.41 328  75.93
##         9 28 0.06  6.48 356  82.41
##         2 26 0.06  6.02 382  88.43
##         6 23 0.05  5.32 405  93.75
##        10 16 0.04  3.70 421  97.45
##        11  8 0.02  1.85 429  99.31
##        12  3 0.01  0.69 432 100.00

barplot(height = tabla_frecuencia.MECATRONICA$f, 
        names.arg = tabla_frecuencia.MECATRONICA$Category,
        main = "Frecuencia de Alumnos MECATRONICA por Semestre")

ELECTRONICA

tabla_frecuencia.ELECTRONICA <- fdt_cat(ELECTRONICA$Semestre)
tabla_frecuencia.ELECTRONICA

##  Category  f   rf rf(%)  cf  cf(%)
##         1 36 0.22 22.36  36  22.36
##         3 32 0.20 19.88  68  42.24
##         5 26 0.16 16.15  94  58.39
##         9 22 0.14 13.66 116  72.05
##         7 21 0.13 13.04 137  85.09
##        11 10 0.06  6.21 147  91.30
##         6  6 0.04  3.73 153  95.03
##        10  5 0.03  3.11 158  98.14
##         8  3 0.02  1.86 161 100.00

barplot(height = tabla_frecuencia.ELECTRONICA$f, 
        names.arg = tabla_frecuencia.ELECTRONICA$Category,
        main = "Frecuencia de Alumnos ELECTRONICA por Semestre")

INFORMATICA

tabla_frecuencia.INFORMATICA <- fdt_cat(INFORMATICA$Semestre)
tabla_frecuencia.INFORMATICA

##  Category  f   rf rf(%)  cf  cf(%)
##         1 30 0.30 29.70  30  29.70
##         3 23 0.23 22.77  53  52.48
##         5 14 0.14 13.86  67  66.34
##         7 14 0.14 13.86  81  80.20
##         9 13 0.13 12.87  94  93.07
##        11  5 0.05  4.95  99  98.02
##         4  1 0.01  0.99 100  99.01
##        13  1 0.01  0.99 101 100.00

barplot(height = tabla_frecuencia.INFORMATICA$f, 
        names.arg = tabla_frecuencia.INFORMATICA$Category,
        main = "Frecuencia de Alumnos INFORMATICA por Semestre")

10. Generar una descripción del caso de manera descriptiva

Con el ejercicio realizado pude notar la importancia de las graficas para organizar y entender mejor los datos, y R Studio es una herramienta muy útil para el manejo y análisis de datos. Generar tablas de frecuencia ayuda a saber mas rápido cual es el numero total de datos o cual es la moda de un conjunto de datos y esto es especialmente útil cuando se esta trabajando con muchos datos. Podemos saber también cual es el porcentaje de un grupo de datos con respecto a la población total y en terminos generales nos ayuda a organizar e interpretar mejor los datos.