Lee el archivo CSV Melate.csv y almacena los datos en un dataframe llamado datos.
datos <- read.csv("C:/R/Dataset/Melate.csv", header = TRUE, sep=",")
Crea histogramas para cada columna (R1 a R7) del dataframe datos, mostrando la distribución de los datos para los últimos 10 años.
hist(datos$R1[1:1037], breaks = 100 ) #Histograma de los ultimos 10 años
hist(datos$R2[1:1037], breaks = 100 ) #Histograma de los ultimos 10 años
hist(datos$R3[1:1037], breaks = 100 ) #Histograma de los ultimos 10 años
hist(datos$R4[1:1037], breaks = 100 ) #Histograma de los ultimos 10 años
hist(datos$R5[1:1037], breaks = 100 ) #Histograma de los ultimos 10 años
hist(datos$R6[1:1037], breaks = 100 ) #Histograma de los ultimos 10 años
hist(datos$R7[1:1037], breaks = 100 ) #Histograma de los ultimos 10 años
## Mediana de cada columna
Calcula la mediana de cada columna (R1 a R7) del dataframe datos.
median(datos$R1[1:1037]) #mediana
## [1] 6
median(datos$R2[1:1037]) #mediana
## [1] 15
median(datos$R3[1:1037]) #mediana
## [1] 24
median(datos$R4[1:1037]) #mediana
## [1] 33
median(datos$R5[1:1037]) #mediana
## [1] 42
median(datos$R6[1:1037]) #mediana
## [1] 51
median(datos$R7[1:1037]) #mediana
## [1] 29
Calcula los cinco números estadísticos (mínimo, primer cuartil, mediana, tercer cuartil, máximo) para cada columna (R1 a R7) del dataframe datos.
r1 <- fivenum(datos$R1[1:1037])
r2 <- fivenum(datos$R2[1:1037])
r3 <- fivenum(datos$R3[1:1037])
r4 <- fivenum(datos$R4[1:1037])
r5 <- fivenum(datos$R5[1:1037])
r6 <- fivenum(datos$R6[1:1037])
r7 <- fivenum(datos$R7[1:1037])
Crea un nuevo dataframe datos2 que contiene los cinco números estadísticos para cada columna. Luego, muestra este dataframe en una vista de datos interactiva.
datos2 <- data.frame(r1 = r1, r2 = r2, r3 = r3, r4 = r4, r5 = r5, r6 = r6, r7 = r7)
datos2
## r1 r2 r3 r4 r5 r6 r7
## 1 1 2 4 5 12 20 1
## 2 3 9 17 25 35 46 16
## 3 6 15 24 33 42 51 29
## 4 11 21 31 39 47 54 44
## 5 42 45 51 53 55 56 56