data("airquality")
summary(airquality)
##      Ozone           Solar.R           Wind             Temp      
##  Min.   :  1.00   Min.   :  7.0   Min.   : 1.700   Min.   :56.00  
##  1st Qu.: 18.00   1st Qu.:115.8   1st Qu.: 7.400   1st Qu.:72.00  
##  Median : 31.50   Median :205.0   Median : 9.700   Median :79.00  
##  Mean   : 42.13   Mean   :185.9   Mean   : 9.958   Mean   :77.88  
##  3rd Qu.: 63.25   3rd Qu.:258.8   3rd Qu.:11.500   3rd Qu.:85.00  
##  Max.   :168.00   Max.   :334.0   Max.   :20.700   Max.   :97.00  
##  NA's   :37       NA's   :7                                       
##      Month            Day      
##  Min.   :5.000   Min.   : 1.0  
##  1st Qu.:6.000   1st Qu.: 8.0  
##  Median :7.000   Median :16.0  
##  Mean   :6.993   Mean   :15.8  
##  3rd Qu.:8.000   3rd Qu.:23.0  
##  Max.   :9.000   Max.   :31.0  
##

Interpretación.

En la anterior tabla se presentan las estadísticas descriptivas asociadas a la calidad del aire en estados unidos.

hist(airquality$Ozone, col="red")

hist(airquality$Solar.R, col="blue")

hist(airquality$Wind, col="green")

hist(airquality$Temp, col="skyblue")

Interpretación Histogramas

El primer gráfico, representa el histograma de la variable nivel de Ozono, el cuál esta presentando datos atípicos en valores elevados del Ozono. El segundo gráfico, es el histograma para la variable radiación solar el cuál presenta un promedio cercano a los 200. El tercer gráfico, hace referencia al histograma de la variable velocidad del viento, donde su promedio esta cercano a 10. Por último, se presenta el histograma de la variable temperatura donde su promedio esta cercano a los 80 grados.

Graficos de Correlación (Dispersión).

plot(airquality$Ozone, airquality$Temp, col="blue")

data2 = na.omit(airquality)
cor(data2$Ozone, data2$Temp)
## [1] 0.6985414

Se observa una correlación moderada entre el nivel de Ozono y la temperatura, esta correlación es de 0.6985, lo cuál indica que a mayor nivel de Ozono mayor Temperatura.

AGREGAR IMAGENES

Caption
Caption