Examen - Especialidad Big Data

Introducción

IMPORTANTE: En un (1) sólo documento PDF adjunte las evidencias por medio de capturas de pantallas de lo siguiente:

De forma individual utilizando Lenguaje R y RStudio se solicita:

Por Auditoría Interna se necesita analizar la información de los últimos 20 resultados del juego de azar LOTO de Polla Chilena, para ello se cuenta con el siguiente link desde el cual Ud. debe generar el correspondiente archivo .CSV para análisis:

https://www.polla.cl/es/view/resultados

NOTA: Considerar sólo los 6 principales sorteados del juego LOTO.

Con la información anterior se solicita realizar en Lenguaje R utilizando RStudio lo siguiente:

a) Teniendo en cuenta que la estructura definida del archivo, leer el archivo CSV y transformar en una matriz utilizando las sentencias adecuadas en R. [20 Pts.]

b) Determinar el número que menos y más veces se sortea, considerando la información del archivo CSV. [5 Pts.]

c) Responder a la consulta. ¿Cuáles son los 3 números que más se sortean? [5 Pts.]

d) Calcular la Frecuencia Absoluta de cada número dentro de los 20 sorteos. [10 Pts.]

e) Graficar la Frecuencia Absoluta: [30 Pts.]

1. Utilizar 1 sólo color para las barras.

2. Agregar al gráfico: título principal, nombre del eje x y nombre del eje.

f) Generar el Histograma de la Frecuencia Absoluta de los 20 sorteos. [30 Pts.]

1. Utilizar 1 sólo color para las barras.

2. Agregar al gráfico: título principal, nombre del eje x y nombre del eje.

Desarrollo - Procesamiento de los datos

a) Teniendo en cuenta que la estructura definida del archivo, leer el archivo CSV y transformar en una matriz utilizando las sentencias adecuadas en R.

x1 <- read.table('loto.csv', head = FALSE, sep=";") [ ,3:8]

head(x1)

b) Determinar el número que menos y más veces se sortea, considerando la información del archivo CSV.

repeticiones<-table(unlist(x1))
sort(repeticiones)

## 
##  5  9 18 19 20 29 31  2 36 37 39  3  4  7 10 12 14 15 21 23 24 27 28 30 33 34 
##  1  1  1  1  1  1  1  2  2  2  2  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3 
## 40  1  8 11 17 22 35 41 13 25 38 26 32 
##  3  4  4  4  4  4  4  4  5  5  5  7  7

c) Responder a la consulta. ¿Cuáles son los 3 números que más se sortean?

repeticiones<-table(unlist(x1))
sort(repeticiones)

## 
##  5  9 18 19 20 29 31  2 36 37 39  3  4  7 10 12 14 15 21 23 24 27 28 30 33 34 
##  1  1  1  1  1  1  1  2  2  2  2  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3 
## 40  1  8 11 17 22 35 41 13 25 38 26 32 
##  3  4  4  4  4  4  4  4  5  5  5  7  7

d) Calcular la Frecuencia Absoluta de cada número dentro de los 20 sorteos.

Frecuencias Abslutas

x1<-as.matrix(x1)
fabs<-table(x1)
fabs

## x1
##  1  2  3  4  5  7  8  9 10 11 12 13 14 15 17 18 19 20 21 22 23 24 25 26 27 28 
##  4  2  3  3  1  3  4  1  3  4  3  5  3  3  4  1  1  1  3  4  3  3  5  7  3  3 
## 29 30 31 32 33 34 35 36 37 38 39 40 41 
##  1  3  1  7  3  3  4  2  2  5  2  3  4

Frecuencias Absolutas Acumulada

fabsacum <-cumsum(fabs)
fabsacum

##   1   2   3   4   5   7   8   9  10  11  12  13  14  15  17  18  19  20  21  22 
##   4   6   9  12  13  16  20  21  24  28  31  36  39  42  46  47  48  49  52  56 
##  23  24  25  26  27  28  29  30  31  32  33  34  35  36  37  38  39  40  41 
##  59  62  67  74  77  80  81  84  85  92  95  98 102 104 106 111 113 116 120

Tabla de Frecuencias Absolutas Acumulada

tablafrecuencias<-cbind(fabs,fabsacum)
tablafrecuencias

##    fabs fabsacum
## 1     4        4
## 2     2        6
## 3     3        9
## 4     3       12
## 5     1       13
## 7     3       16
## 8     4       20
## 9     1       21
## 10    3       24
## 11    4       28
## 12    3       31
## 13    5       36
## 14    3       39
## 15    3       42
## 17    4       46
## 18    1       47
## 19    1       48
## 20    1       49
## 21    3       52
## 22    4       56
## 23    3       59
## 24    3       62
## 25    5       67
## 26    7       74
## 27    3       77
## 28    3       80
## 29    1       81
## 30    3       84
## 31    1       85
## 32    7       92
## 33    3       95
## 34    3       98
## 35    4      102
## 36    2      104
## 37    2      106
## 38    5      111
## 39    2      113
## 40    3      116
## 41    4      120

e) Graficar la Frecuencia Absoluta:

1. Utilizar 1 sólo color para las barras.

2. Agregar al gráfico: título principal, nombre del eje x y nombre del eje.

barplot(fabs,ylab="Frec. absoluta",xlab="Números del Sorteo",main="Gráfico Frecuencia Absoluta de Sorteo Loto", col = "Red")

f) Generar el Histograma de la Frecuencia Absoluta de los 20 sorteos.

hist(x1,main="Histograma Frec. Absoluta ",col="#009966",border="#007744",xlab="Números del Sorteo",ylab="Frecuencia Abosluta", labels = TRUE)