Lectura del Dataset

En esta sección se obtienen los datos del csv llamado Melate.

datos <- read.csv("C:/R/Melate.csv",header = TRUE,sep=",")

Realizar un Histograma para cada columna

En esta sección se realizan 7 Histogramas, uno para cada una de las columnas que van desde la columna R1 hasta la columna R7 (R1:R7).

hist(datos$R1[1:1021], breaks = 100) #Histograma de la Columna R1

hist(datos$R2[1:1021], breaks = 100) #Histograma de la Columna R2

hist(datos$R3[1:1021], breaks = 100) #Histograma de la Columna R3

hist(datos$R4[1:1021], breaks = 100) #Histograma de la Columna R4

hist(datos$R5[1:1021], breaks = 100) #Histograma de la Columna R5

hist(datos$R6[1:1021], breaks = 100) #Histograma de la Columna R6

hist(datos$R7[1:1021], breaks = 100) #Histograma de la Columna R7

Calcular la Mediana por cada columna (Últimos 10)

Ahora se procede a Calcular la Mediana de cada una de las columnas mencionadas anteriormente y de las cuales se crearon los Histogramas (R1:R7), esto para los registros de los últimos 10 años.

median(datos$R1[1:1021]) #mediana para R1
## [1] 6
median(datos$R2[1:1021]) #mediana para R2
## [1] 15
median(datos$R3[1:1021]) #mediana para R3
## [1] 24
median(datos$R4[1:1021]) #mediana para R4
## [1] 33
median(datos$R5[1:1021]) #mediana para R5
## [1] 42
median(datos$R6[1:1021]) #mediana para R6
## [1] 51
median(datos$R7[1:1021]) #mediana para R7
## [1] 29

Elegir los 5 Números con mayor Frecuencia en los últimos 10 años (R1:R7)

Ahora se procede a elegir y obtener los 5 Números con mayor frecuencia en los últimos 10 años, esto en base a las columnas que van desde la R1 hasta la columna R7.

R1<-c(fivenum(datos$R1[1:1021]))
print(R1)
## [1]  1  3  6 11 42
R2<-c(fivenum(datos$R2[1:1021]))
print(R2)
## [1]  2  9 15 21 45
R3<-c(fivenum(datos$R3[1:1021]))
print(R3)
## [1]  4 18 24 31 51
R4<-c(fivenum(datos$R4[1:1021]))
print(R4)
## [1]  5 25 33 39 53
R5<-c(fivenum(datos$R5[1:1021]))
print(R5)
## [1] 12 35 42 48 55
R6<-c(fivenum(datos$R6[1:1021]))
print(R6)
## [1] 20 46 51 54 56
R7<-c(fivenum(datos$R7[1:1021]))
print(R7)
## [1]  1 16 29 44 56

Generar Tabla con los Datos Obtenidos

En esta última sección se crea y genera una tabla, en este caso llamada “tablaFrecuencias” en la cual se almacenan los registros de los 5 números con mayor frecuencia en los últimos 10 años, dichos registros son obtenidos previamente.

tablaFrecuencias <- data.frame(
  R1 = fivenum(datos$R1[1:1021]),
  R2 = fivenum(datos$R2[1:1021]),
  R3 = fivenum(datos$R3[1:1021]),
  R4 = fivenum(datos$R4[1:1021]),
  R5 = fivenum(datos$R5[1:1021]),
  R6 = fivenum(datos$R6[1:1021]),
  R7 = fivenum(datos$R7[1:1021])
)
tablaFrecuencias
##   R1 R2 R3 R4 R5 R6 R7
## 1  1  2  4  5 12 20  1
## 2  3  9 18 25 35 46 16
## 3  6 15 24 33 42 51 29
## 4 11 21 31 39 48 54 44
## 5 42 45 51 53 55 56 56