
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