U1A2.R

#Segundo ejercicio de PYE
#Histogramas y tablas de frecuencia
#activar paquetes
library (fdth)

## 
## Attaching package: 'fdth'

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

#Los datos se sacan de aquí https://smn.conagua.gob.mx/es/informacion-climatologica-por-estado?estado=son
#Set de datos climáticos de Alamos, Sonora
#Declaración de variables
ALAMOS <- c(18.5,19.1,20.2,22.1,24.7,28.1,28.0,27.6,26.8,24.8,21.6,19.1)

dist <- fdt(ALAMOS, breaks="Sturges") #calcula la distribución de frecuencias según la regla de Sturges
dist

##     Class limits f   rf rf(%) cf  cf(%)
##  [18.315,20.328) 4 0.33 33.33  4  33.33
##  [20.328,22.341) 2 0.17 16.67  6  50.00
##  [22.341,24.355) 0 0.00  0.00  6  50.00
##  [24.355,26.368) 2 0.17 16.67  8  66.67
##  [26.368,28.381) 4 0.33 33.33 12 100.00

sort (ALAMOS)

##  [1] 18.5 19.1 19.1 20.2 21.6 22.1 24.7 24.8 26.8 27.6 28.0 28.1

#Generación de histograma
#Histograma de frecuencias absolutas
hist(ALAMOS, breaks="Sturges")

#par(mfrow=c(3,2)) # particiona mi ventana gráfica en 3x2.
hist(ALAMOS, breaks = "Sturges") #Histograma utilizando el numero de clases según Sturges

plot(dist, type="cfh")   #Histograma de frecuencias acumulada

plot(dist, type="cfp", col="red")   #polígono de frecuencias acumulado

plot(dist, type="fh")

plot(dist, type="fh", col="blue") #si desea añadir color a su gráfico

plot(dist, type="rfh", col="green")

HERMOSILLO <- c( 16.8,18.3,20.4,23.6,27.3,31.7,32.3,31.8,30.8,26.7,21.1,17.0,24.8)

dist <- fdt(HERMOSILLO, breaks="Sturges") 
dist

##     Class limits f   rf rf(%) cf  cf(%)
##   [16.632,19.83) 3 0.23 23.08  3  23.08
##   [19.83,23.028) 2 0.15 15.38  5  38.46
##  [23.028,26.227) 2 0.15 15.38  7  53.85
##  [26.227,29.425) 2 0.15 15.38  9  69.23
##  [29.425,32.623) 4 0.31 30.77 13 100.00

sort (HERMOSILLO)

##  [1] 16.8 17.0 18.3 20.4 21.1 23.6 24.8 26.7 27.3 30.8 31.7 31.8 32.3

hist(HERMOSILLO, breaks="Sturges")

#par(mfrow=c(3,2))
hist(HERMOSILLO, breaks = "Sturges", col="yellow") 

plot(dist, type="cfh", col="purple")  

plot(dist, type="cfp", col="red")   

plot(dist, type="fh", col="orange")

plot(dist, type="fh", col="blue") 

plot(dist, type="rfh", col="green")

#Como conclusión Hermosillo es un poco mas frió en invierno que Alamos y es mas caliente es las temporadas de calor
#en pocas palabras las temperaturas en Hermosillo son un poco mas extremas, y yo creo que es debido 
#a que Hermosillo esta ubicado en el desierto.