Teoría

La información del clima se obtiene del ASOS (Automated Surface Observing System) ubicados en los aeropuertos de las ciudades del mundo.

Instalar paquetes y llamar librerías

#install.packages("riem")
library(riem)
#install.packages("tidyverse")
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.0     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
#install.packages("ggplot2")
library(ggplot2)
#install.packages("plotly")
library(plotly)
## 
## Attaching package: 'plotly'
## 
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## 
## The following object is masked from 'package:stats':
## 
##     filter
## 
## The following object is masked from 'package:graphics':
## 
##     layout

Paso 1. Buscar la red del país (México) y copiar CODE

view(riem_networks())
#MX__ASOS

Paso 2. Buscar la estación o ciudad (Monterrey) y copiar ID

view(riem_stations("MX__ASOS"))
#MMMY

Paso 3. Obtener datos del clima

clima_mty <- riem_measures("MMMY")

Ejercicio 1. Obtener datos del clima de Monterrey de Febrero 2024

clima_mty_feb <- subset(clima_mty, valid >= as.POSIXct("2024-02-01 00:00") & valid <= as.POSIXct("2024-02-29 23:59"))

Ejercicio 2. Graficar la Humedad Relativa en Monterrey durante Febrero 2024

plot(clima_mty_feb$valid,clima_mty_feb$relh,type="l",main="Humedad Relativa en Monterrey durante Febrero 2024", xlab="Fecha", ylab="Humedad Relativa (%)")

# Promediar Humedad Relativa diaria
clima_mty_feb$date <- as.Date(clima_mty_feb$valid)
cmfd <- aggregate(clima_mty_feb, by=list(date = clima_mty_feb$date), FUN=mean)

# Promediar Humedad Relativa diaria promedio por día
plot(cmfd$date,cmfd$relh,type="l",main="Promedio Diario de Humedad Relativa en Monterrey durante Febrero 2024", xlab="Fecha", ylab="Humedad Relativa (%)")

#cmpd <- clima_mty_feb %>%
  #mutate(date=ymd_hm(valid), date=as.Date(date)) %>%
  #group_by(date) %>%
  #summarize_if(is.numeric, mean(., na.rm=TRUE))

Ejercicio 3. Graficar la Temperatura (°C) Promedio Diaria durante Febrero 2024 en Saltillo

view(riem_stations("MX__ASOS"))

clima_slw <- riem_measures("MMIO")

temp_slw <- clima_slw %>% select(valid, tmpf)

# Conversión a celsius

clima_slw_celsius <- mutate(temp_slw, celsius = tmpf*(9/5)+32)

clima_slw_feb <- subset(clima_slw_celsius, valid >= as.POSIXct("2024-02-01 00:00") & valid <= as.POSIXct("2024-02-29 23:59"))

# Promedio de temperatura diaria
clima_slw_feb$date <- as.Date(clima_slw_feb$valid)
cmod <- aggregate(clima_slw_feb, by = list(date=clima_slw_feb$date), FUN = mean)

# Humedad Relativa
plot(cmod$date, cmod$celsius, type = "l", main = "Temperatura Promedio Diaria en Saltillo durante Febrero 2024", xlab = "Fecha", ylab = "Temperatura (°C)")

Conclusiones

En esta actividad se utilizó la base de datos de ASOS (Automated Surface Observing System) para evaluar el clima en los aeropuertos, más específico en las ciudades de Monterrey N.L. y de Saltillo Coah. En los primeros pasos fue necesario encontrar la red del país y de las ciudades, para que posteriormente se obtuvieran los datos del clima de dichas ciudades y poder realizar los análisis correspondientes, tal fue el caso del promedio diario de humedad relativa en Monterrey o de la temperatura promedio diaria en Saltillo, ambos casos durante el mes de febrero 2024. Un reto importante al realizar esta actividad fue la conversión de grados fahrenheit a grados celsius en la temperatura de Saltillo, para esto se utilizó la formula de conversión: (temperatura °F - 32) * 5/9.

LS0tDQp0aXRsZTogIkNsaW1hOiBNb250ZXJyZXkgeSBTYWx0aWxsbyINCmF1dGhvcjogIk5hbmN5IE1hcnJvcXXDrW4gLSBBMDExOTg1NTMiDQpkYXRlOiAiMjAyNC0wMi0yOSINCm91dHB1dDogDQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiBUUlVFDQogICAgdG9jX2Zsb2F0OiBUUlVFDQogICAgY29kZV9kb3dubG9hZDogVFJVRQ0KICAgIHRoZW1lOiBkYXJrDQotLS0NCiFbXShDOlxcVXNlcnNcXGxlbm92b1xcRG93bmxvYWRzXFwyMDA4LTA3LTAxX0Vsa29fQVNPU192aWV3ZWRfZnJvbV90aGVfc291dGhfY3JvcHBlZC5qcGcpDQoNCiMgPHNwYW4gc3R5bGU9ImNvbG9yOiB5ZWxsb3c7Ij5UZW9yw61hPC9zcGFuPg0KTGEgaW5mb3JtYWNpw7NuIGRlbCBjbGltYSBzZSBvYnRpZW5lIGRlbCAqKkFTT1MqKiAoKkF1dG9tYXRlZCBTdXJmYWNlIE9ic2VydmluZyBTeXN0ZW0qKSB1YmljYWRvcyBlbiBsb3MgYWVyb3B1ZXJ0b3MgZGUgbGFzIGNpdWRhZGVzIGRlbCBtdW5kby4NCg0KIyA8c3BhbiBzdHlsZT0iY29sb3I6IHllbGxvdzsiPkluc3RhbGFyIHBhcXVldGVzIHkgbGxhbWFyIGxpYnJlcsOtYXM8L3NwYW4+DQpgYGB7ciB3YXJuaW5nPUZBTFNFfQ0KI2luc3RhbGwucGFja2FnZXMoInJpZW0iKQ0KbGlicmFyeShyaWVtKQ0KI2luc3RhbGwucGFja2FnZXMoInRpZHl2ZXJzZSIpDQpsaWJyYXJ5KHRpZHl2ZXJzZSkNCiNpbnN0YWxsLnBhY2thZ2VzKCJnZ3Bsb3QyIikNCmxpYnJhcnkoZ2dwbG90MikNCiNpbnN0YWxsLnBhY2thZ2VzKCJwbG90bHkiKQ0KbGlicmFyeShwbG90bHkpDQpgYGANCiMgPHNwYW4gc3R5bGU9ImNvbG9yOiB5ZWxsb3c7Ij5QYXNvIDEuIEJ1c2NhciBsYSByZWQgZGVsIHBhw61zIChNw6l4aWNvKSB5IGNvcGlhciBDT0RFPC9zcGFuPg0KYGBge3Igd2FybmluZz1GQUxTRX0NCnZpZXcocmllbV9uZXR3b3JrcygpKQ0KI01YX19BU09TDQpgYGANCiMgPHNwYW4gc3R5bGU9ImNvbG9yOiB5ZWxsb3c7Ij5QYXNvIDIuIEJ1c2NhciBsYSBlc3RhY2nDs24gbyBjaXVkYWQgKE1vbnRlcnJleSkgeSBjb3BpYXIgSUQ8L3NwYW4+DQpgYGB7ciB3YXJuaW5nPUZBTFNFfQ0KdmlldyhyaWVtX3N0YXRpb25zKCJNWF9fQVNPUyIpKQ0KI01NTVkNCmBgYA0KDQojIDxzcGFuIHN0eWxlPSJjb2xvcjogeWVsbG93OyI+UGFzbyAzLiBPYnRlbmVyIGRhdG9zIGRlbCBjbGltYTwvc3Bhbj4NCmBgYHtyIHdhcm5pbmc9RkFMU0V9DQpjbGltYV9tdHkgPC0gcmllbV9tZWFzdXJlcygiTU1NWSIpDQpgYGANCg0KIyA8c3BhbiBzdHlsZT0iY29sb3I6IHllbGxvdzsiPkVqZXJjaWNpbyAxLiBPYnRlbmVyIGRhdG9zIGRlbCBjbGltYSBkZSBNb250ZXJyZXkgZGUgRmVicmVybyAyMDI0PC9zcGFuPg0KYGBge3Igd2FybmluZz1GQUxTRX0NCmNsaW1hX210eV9mZWIgPC0gc3Vic2V0KGNsaW1hX210eSwgdmFsaWQgPj0gYXMuUE9TSVhjdCgiMjAyNC0wMi0wMSAwMDowMCIpICYgdmFsaWQgPD0gYXMuUE9TSVhjdCgiMjAyNC0wMi0yOSAyMzo1OSIpKQ0KYGBgDQoNCiMgPHNwYW4gc3R5bGU9ImNvbG9yOiB5ZWxsb3c7Ij5FamVyY2ljaW8gMi4gR3JhZmljYXIgbGEgSHVtZWRhZCBSZWxhdGl2YSBlbiBNb250ZXJyZXkgZHVyYW50ZSBGZWJyZXJvIDIwMjQ8L3NwYW4+DQpgYGB7ciB3YXJuaW5nPUZBTFNFfQ0KcGxvdChjbGltYV9tdHlfZmViJHZhbGlkLGNsaW1hX210eV9mZWIkcmVsaCx0eXBlPSJsIixtYWluPSJIdW1lZGFkIFJlbGF0aXZhIGVuIE1vbnRlcnJleSBkdXJhbnRlIEZlYnJlcm8gMjAyNCIsIHhsYWI9IkZlY2hhIiwgeWxhYj0iSHVtZWRhZCBSZWxhdGl2YSAoJSkiKQ0KDQojIFByb21lZGlhciBIdW1lZGFkIFJlbGF0aXZhIGRpYXJpYQ0KY2xpbWFfbXR5X2ZlYiRkYXRlIDwtIGFzLkRhdGUoY2xpbWFfbXR5X2ZlYiR2YWxpZCkNCmNtZmQgPC0gYWdncmVnYXRlKGNsaW1hX210eV9mZWIsIGJ5PWxpc3QoZGF0ZSA9IGNsaW1hX210eV9mZWIkZGF0ZSksIEZVTj1tZWFuKQ0KDQojIFByb21lZGlhciBIdW1lZGFkIFJlbGF0aXZhIGRpYXJpYSBwcm9tZWRpbyBwb3IgZMOtYQ0KcGxvdChjbWZkJGRhdGUsY21mZCRyZWxoLHR5cGU9ImwiLG1haW49IlByb21lZGlvIERpYXJpbyBkZSBIdW1lZGFkIFJlbGF0aXZhIGVuIE1vbnRlcnJleSBkdXJhbnRlIEZlYnJlcm8gMjAyNCIsIHhsYWI9IkZlY2hhIiwgeWxhYj0iSHVtZWRhZCBSZWxhdGl2YSAoJSkiKQ0KDQojY21wZCA8LSBjbGltYV9tdHlfZmViICU+JQ0KICAjbXV0YXRlKGRhdGU9eW1kX2htKHZhbGlkKSwgZGF0ZT1hcy5EYXRlKGRhdGUpKSAlPiUNCiAgI2dyb3VwX2J5KGRhdGUpICU+JQ0KICAjc3VtbWFyaXplX2lmKGlzLm51bWVyaWMsIG1lYW4oLiwgbmEucm09VFJVRSkpDQpgYGANCg0KDQoNCiMgPHNwYW4gc3R5bGU9ImNvbG9yOiB5ZWxsb3c7Ij5FamVyY2ljaW8gMy4gR3JhZmljYXIgbGEgVGVtcGVyYXR1cmEgKMKwQykgUHJvbWVkaW8gRGlhcmlhIGR1cmFudGUgRmVicmVybyAyMDI0IGVuIFNhbHRpbGxvPC9zcGFuPg0KYGBge3Igd2FybmluZz1GQUxTRX0NCnZpZXcocmllbV9zdGF0aW9ucygiTVhfX0FTT1MiKSkNCg0KY2xpbWFfc2x3IDwtIHJpZW1fbWVhc3VyZXMoIk1NSU8iKQ0KDQp0ZW1wX3NsdyA8LSBjbGltYV9zbHcgJT4lIHNlbGVjdCh2YWxpZCwgdG1wZikNCg0KIyBDb252ZXJzacOzbiBhIGNlbHNpdXMNCg0KY2xpbWFfc2x3X2NlbHNpdXMgPC0gbXV0YXRlKHRlbXBfc2x3LCBjZWxzaXVzID0gdG1wZiooOS81KSszMikNCg0KY2xpbWFfc2x3X2ZlYiA8LSBzdWJzZXQoY2xpbWFfc2x3X2NlbHNpdXMsIHZhbGlkID49IGFzLlBPU0lYY3QoIjIwMjQtMDItMDEgMDA6MDAiKSAmIHZhbGlkIDw9IGFzLlBPU0lYY3QoIjIwMjQtMDItMjkgMjM6NTkiKSkNCg0KIyBQcm9tZWRpbyBkZSB0ZW1wZXJhdHVyYSBkaWFyaWENCmNsaW1hX3Nsd19mZWIkZGF0ZSA8LSBhcy5EYXRlKGNsaW1hX3Nsd19mZWIkdmFsaWQpDQpjbW9kIDwtIGFnZ3JlZ2F0ZShjbGltYV9zbHdfZmViLCBieSA9IGxpc3QoZGF0ZT1jbGltYV9zbHdfZmViJGRhdGUpLCBGVU4gPSBtZWFuKQ0KDQojIEh1bWVkYWQgUmVsYXRpdmENCnBsb3QoY21vZCRkYXRlLCBjbW9kJGNlbHNpdXMsIHR5cGUgPSAibCIsIG1haW4gPSAiVGVtcGVyYXR1cmEgUHJvbWVkaW8gRGlhcmlhIGVuIFNhbHRpbGxvIGR1cmFudGUgRmVicmVybyAyMDI0IiwgeGxhYiA9ICJGZWNoYSIsIHlsYWIgPSAiVGVtcGVyYXR1cmEgKMKwQykiKQ0KDQpgYGANCg0KIyA8c3BhbiBzdHlsZT0iY29sb3I6IHllbGxvdzsiPkNvbmNsdXNpb25lczwvc3Bhbj4NCkVuIGVzdGEgYWN0aXZpZGFkIHNlIHV0aWxpesOzIGxhIGJhc2UgZGUgZGF0b3MgZGUgKipBU09TKiogKCpBdXRvbWF0ZWQgU3VyZmFjZSBPYnNlcnZpbmcgU3lzdGVtKikgcGFyYSBldmFsdWFyIGVsIGNsaW1hIGVuIGxvcyBhZXJvcHVlcnRvcywgbcOhcyBlc3BlY8OtZmljbyBlbiBsYXMgY2l1ZGFkZXMgZGUgTW9udGVycmV5IE4uTC4geSBkZSBTYWx0aWxsbyBDb2FoLiBFbiBsb3MgcHJpbWVyb3MgcGFzb3MgZnVlIG5lY2VzYXJpbyBlbmNvbnRyYXIgbGEgcmVkIGRlbCBwYcOtcyB5IGRlIGxhcyBjaXVkYWRlcywgcGFyYSBxdWUgcG9zdGVyaW9ybWVudGUgc2Ugb2J0dXZpZXJhbiBsb3MgZGF0b3MgZGVsIGNsaW1hIGRlIGRpY2hhcyBjaXVkYWRlcyB5IHBvZGVyIHJlYWxpemFyIGxvcyBhbsOhbGlzaXMgY29ycmVzcG9uZGllbnRlcywgdGFsIGZ1ZSBlbCBjYXNvIGRlbCBwcm9tZWRpbyBkaWFyaW8gZGUgaHVtZWRhZCByZWxhdGl2YSBlbiBNb250ZXJyZXkgbyBkZSBsYSB0ZW1wZXJhdHVyYSBwcm9tZWRpbyBkaWFyaWEgZW4gU2FsdGlsbG8sIGFtYm9zIGNhc29zIGR1cmFudGUgZWwgbWVzIGRlIGZlYnJlcm8gMjAyNC4gVW4gcmV0byBpbXBvcnRhbnRlIGFsIHJlYWxpemFyIGVzdGEgYWN0aXZpZGFkIGZ1ZSBsYSBjb252ZXJzacOzbiBkZSBncmFkb3MgKmZhaHJlbmhlaXQqIGEgZ3JhZG9zICpjZWxzaXVzKiBlbiBsYSB0ZW1wZXJhdHVyYSBkZSBTYWx0aWxsbywgcGFyYSBlc3RvIHNlIHV0aWxpesOzIGxhIGZvcm11bGEgZGUgY29udmVyc2nDs246ICh0ZW1wZXJhdHVyYSDCsEYgLSAzMikgKiA1Lzku