
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 librerias
library(riem) # Este paquete sirve para accesar al ASOS
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.4.4 ✔ 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
library(ggplot2)
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())
# México
Paso 2. Buscar la estación o ciudad (Monterrey) y
copiar ID
view(riem_stations("MX__ASOS"))
# MMMY
Paso 3. Obtener los datos del clima
clima_mty <- riem_measures("MMMY")
Ejercicios
Ejercicio 1. Obtener los datos del clima de
Monterrey de Febrero de 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. Gráficar la humedad relativa 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
clima_mty_feb$date <- as.Date(clima_mty_feb$valid)
cmfd <- aggregate(clima_mty_feb, by=list(clima_mty_feb$date), FUN= mean)
plot(cmfd$date, cmfd$relh, type="l", main = "Promedio diario de humedad relativa en Monterrey durante febrero 2024", xlab= "Fecha", ylab= "Humedad relativa (%)")

cmfd %>%
ggplot(aes(y = relh, x = date)) +
geom_line()+
labs(x= "Fecha", y= "Humedad relativa (%)",
title= "Humedad relativa durante febrero 2024")+
theme_minimal()+
theme(plot.title = element_text(hjust=0.5))

Ejercicio 3. Gráficar la temperatura (C°) promedio
diaria durante febrero 2024 en Verazcruz 2024
clima_vrz <- riem_measures("MMVR")
clima_vrz<- mutate(clima_vrz, celcius= ((tmpf-32)*(5/9)))
clima_vrz_feb <- subset(clima_vrz, valid >=
as.POSIXct("2024-02-01 00:00") & valid <=
as.POSIXct("2024-02-29 23:59"))
clima_vrz_feb$date <- as.Date(clima_vrz_feb$valid)
cvdf <- aggregate(clima_vrz_feb, by=list(clima_vrz_feb$date), FUN= mean)
cvdf %>%
ggplot(aes(y = celcius, x = date)) +
geom_line()+
labs(x= "Fecha", y= "Temperatura promedio (C°)",
title= "Temperatura promedio durante febrero 2024")+
theme_minimal()+
theme(plot.title = element_text(hjust=0.5))

Conclusiones
En este ejercicio, se utilizó el paquete riem para
acceder a los datos del clima obtenidos del sistema ASOS, que
se encuentra en los aeropuertos de las ciudades del mundo. Se seleccionó
la red de México y se buscaron las estaciones de Monterrey y Veracruz.
Se obtuvieron los datos del clima de estas dos ciudades durante el mes
de febrero de 2024.
Se realizaron tres ejercicios con los datos del clima. El primero fue
obtener los datos del clima de Monterrey de febrero de 2024, el segundo
fue graficar la humedad relativa durante ese mismo mes, tanto con la
función plot como con la librería
ggplot2, el tercero fue graficar la temperatura
promedio diaria durante febrero de 2024 en Veracruz, también con
ggplot2.
Los resultados de los ejercicios permiten visualizar la variación de
la humedad relativa y la temperatura en las dos ciudades, así como
comparar sus diferencias climáticas. Se observa que Monterrey tiene una
humedad relativa más baja y una temperatura más alta que Veracruz, lo
que se puede atribuir a su ubicación geográfica y a su altitud.
Este ejercicio es un ejemplo de cómo se puede utilizar
R para analizar datos del clima y generar gráficos
informativos y atractivos. R es un lenguaje de
programación muy versátil y potente, que ofrece múltiples paquetes y
librerías para facilitar el trabajo con datos de diferentes fuentes y
formatos.
LS0tDQp0aXRsZTogIjxzcGFuIHN0eWxlPSdjb2xvcjogYnJvd247Jz5DbGltYTwvc3Bhbj4iDQphdXRob3I6ICJPdmVkIFJ1aXotQTAxMTc0NDM1Ig0KZGF0ZTogIjIwMjQtMDItMjkiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiB0cnVlIA0KICAgIHRvY19mbG9hdDogdHJ1ZQ0KICAgIGNvZGVfZG93bmxvYWQ6IHRydWUNCiAgICB0aGVtZTogam91cm5hbA0KICAgIG51bWJlcl9zZWN0aW9uczogdHJ1ZQ0KZWRpdG9yX3M6IA0KICBjaHVua19vdXRwdXRfdHlwZTogY29uc29sZQ0KZWRpdG9yX29wdGlvbnM6IA0KICBjaHVua19vdXRwdXRfdHlwZTogY29uc29sZQ0KLS0tDQohW10oQzpcXFVzZXJzXFxXaW5kb3dzIDEwXFxEb3dubG9hZHNcXGNsaW1hX2Fzb3MucG5nKQ0KDQojIDxzcGFuIHN0eWxlPSJjb2xvcjogYmxhY2s7Ij5UZW9yw61hPC9zcGFuPiAgDQpMYSBpbmZvcm1hY2nDs24gZGVsIGNsaW1hIHNlIG9idGllbmUgZGVsICoqQVNPUyoqICgqQXV0b21hdGVkIFN1cmZhY2UgT2JzZXJ2aW5nIFN5c3RlbSopIHViaWNhZG9zIGVuIGxvcyBhZXJvcHVlcnRvcyBkZSBsYXMgY2l1ZGFkZXMgZGVsIG11bmRvLg0KDQojIDxzcGFuIHN0eWxlPSJjb2xvcjogYmxhY2s7Ij5JbnN0YWxhciBwYXF1ZXRlcyB5IGxsYW1hciBsaWJyZXJpYXM8L3NwYW4+ICANCg0KYGBge3J9DQpsaWJyYXJ5KHJpZW0pICMgRXN0ZSBwYXF1ZXRlIHNpcnZlIHBhcmEgYWNjZXNhciBhbCBBU09TDQpsaWJyYXJ5KHRpZHl2ZXJzZSkNCmxpYnJhcnkoZ2dwbG90MikNCmxpYnJhcnkocGxvdGx5KQ0KYGBgDQoNCiMgPHNwYW4gc3R5bGU9ImNvbG9yOiBibGFjazsiPlBhc28gMS4gQnVzY2FyIGxhIHJlZCBkZWwgcGHDrXMgKE3DqXhpY28pIHkgY29waWFyIENPREU8L3NwYW4+ICANCg0KYGBge3J9DQojIHZpZXcocmllbV9uZXR3b3JrcygpKQ0KIyBNw6l4aWNvDQpgYGANCg0KIyA8c3BhbiBzdHlsZT0iY29sb3I6IGJsYWNrOyI+UGFzbyAyLiBCdXNjYXIgbGEgZXN0YWNpw7NuIG8gY2l1ZGFkIChNb250ZXJyZXkpIHkgY29waWFyIElEPC9zcGFuPiAgDQpgYGB7cn0NCnZpZXcocmllbV9zdGF0aW9ucygiTVhfX0FTT1MiKSkNCiMgTU1NWQ0KYGBgDQoNCiMgPHNwYW4gc3R5bGU9ImNvbG9yOiBibGFjazsiPlBhc28gMy4gT2J0ZW5lciBsb3MgZGF0b3MgZGVsIGNsaW1hPC9zcGFuPiAgDQpgYGB7cn0NCmNsaW1hX210eSA8LSByaWVtX21lYXN1cmVzKCJNTU1ZIikNCg0KYGBgDQoNCiMgPHNwYW4gc3R5bGU9ImNvbG9yOiBibGFjazsiPkVqZXJjaWNpb3M8L3NwYW4+ICANCg0KIyMgPHNwYW4gc3R5bGU9ImNvbG9yOiBicm93bjsiPkVqZXJjaWNpbyAxLiBPYnRlbmVyIGxvcyBkYXRvcyBkZWwgY2xpbWEgZGUgTW9udGVycmV5IGRlIEZlYnJlcm8gZGUgMjAyNDwvc3Bhbj4gIA0KDQpgYGB7cn0NCmNsaW1hX210eV9mZWIgPC0gc3Vic2V0KGNsaW1hX210eSwgdmFsaWQgPj0gDQogICAgICAgICAgICAgICAgICAgICAgICAgIGFzLlBPU0lYY3QoIjIwMjQtMDItMDEgMDA6MDAiKSAmIHZhbGlkIDw9DQogICAgICAgICAgICAgICAgICAgICAgICAgIGFzLlBPU0lYY3QoIjIwMjQtMDItMjkgMjM6NTkiKSkgDQoNCmBgYA0KDQojIyA8c3BhbiBzdHlsZT0iY29sb3I6IGJyb3duOyI+RWplcmNpY2lvIDIuIEdyw6FmaWNhciBsYSBodW1lZGFkIHJlbGF0aXZhIGR1cmFudGUgZmVicmVybyAyMDI0PC9zcGFuPiAgDQpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KDQpwbG90KGNsaW1hX210eV9mZWIkdmFsaWQsIGNsaW1hX210eV9mZWIkcmVsaCwgdHlwZT0ibCIsIG1haW4gPSAiSHVtZWRhZCByZWxhdGl2YSBlbiBNb250ZXJyZXkgZHVyYW50ZSBmZWJyZXJvIDIwMjQiLCB4bGFiPSAiRmVjaGEiLCB5bGFiPSAiSHVtZWRhZCByZWxhdGl2YSAoJSkiKQ0KDQojIFByb21lZGlhciBodW1lZGFkIHJlbGF0aXZhIA0KDQpjbGltYV9tdHlfZmViJGRhdGUgPC0gYXMuRGF0ZShjbGltYV9tdHlfZmViJHZhbGlkKQ0KDQpjbWZkIDwtIGFnZ3JlZ2F0ZShjbGltYV9tdHlfZmViLCBieT1saXN0KGNsaW1hX210eV9mZWIkZGF0ZSksIEZVTj0gbWVhbikNCg0KcGxvdChjbWZkJGRhdGUsIGNtZmQkcmVsaCwgdHlwZT0ibCIsIG1haW4gPSAiUHJvbWVkaW8gZGlhcmlvIGRlIGh1bWVkYWQgcmVsYXRpdmEgZW4gTW9udGVycmV5IGR1cmFudGUgZmVicmVybyAyMDI0IiwgeGxhYj0gIkZlY2hhIiwgeWxhYj0gIkh1bWVkYWQgcmVsYXRpdmEgKCUpIikNCg0KY21mZCAlPiUgDQogIGdncGxvdChhZXMoeSA9IHJlbGgsIHggPSBkYXRlKSkgKyANCiAgZ2VvbV9saW5lKCkrIA0KICBsYWJzKHg9ICJGZWNoYSIsIHk9ICJIdW1lZGFkIHJlbGF0aXZhICglKSIsDQogICAgICAgdGl0bGU9ICJIdW1lZGFkIHJlbGF0aXZhIGR1cmFudGUgZmVicmVybyAyMDI0IikrDQogIHRoZW1lX21pbmltYWwoKSsNCiAgdGhlbWUocGxvdC50aXRsZSA9IGVsZW1lbnRfdGV4dChoanVzdD0wLjUpKQ0KYGBgDQoNCiMjIDxzcGFuIHN0eWxlPSJjb2xvcjogYnJvd247Ij5FamVyY2ljaW8gMy4gR3LDoWZpY2FyIGxhIHRlbXBlcmF0dXJhIChDwrApIHByb21lZGlvIGRpYXJpYSBkdXJhbnRlIGZlYnJlcm8gMjAyNCBlbiBWZXJhemNydXogMjAyNDwvc3Bhbj4gIA0KDQoNCmBgYHtyIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9DQpjbGltYV92cnogPC0gcmllbV9tZWFzdXJlcygiTU1WUiIpDQpjbGltYV92cno8LSBtdXRhdGUoY2xpbWFfdnJ6LCBjZWxjaXVzPSAoKHRtcGYtMzIpKig1LzkpKSkNCmNsaW1hX3Zyel9mZWIgPC0gc3Vic2V0KGNsaW1hX3ZyeiwgdmFsaWQgPj0gDQogICAgICAgICAgICAgICAgICAgICAgICAgIGFzLlBPU0lYY3QoIjIwMjQtMDItMDEgMDA6MDAiKSAmIHZhbGlkIDw9DQogICAgICAgICAgICAgICAgICAgICAgICAgIGFzLlBPU0lYY3QoIjIwMjQtMDItMjkgMjM6NTkiKSkgDQoNCmBgYA0KDQpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KY2xpbWFfdnJ6X2ZlYiRkYXRlIDwtIGFzLkRhdGUoY2xpbWFfdnJ6X2ZlYiR2YWxpZCkNCg0KY3ZkZiA8LSBhZ2dyZWdhdGUoY2xpbWFfdnJ6X2ZlYiwgYnk9bGlzdChjbGltYV92cnpfZmViJGRhdGUpLCBGVU49IG1lYW4pDQoNCmN2ZGYgJT4lIA0KICBnZ3Bsb3QoYWVzKHkgPSBjZWxjaXVzLCB4ID0gZGF0ZSkpICsgDQogIGdlb21fbGluZSgpKyANCiAgbGFicyh4PSAiRmVjaGEiLCB5PSAiVGVtcGVyYXR1cmEgcHJvbWVkaW8gKEPCsCkiLA0KICAgICAgIHRpdGxlPSAiVGVtcGVyYXR1cmEgcHJvbWVkaW8gZHVyYW50ZSBmZWJyZXJvIDIwMjQiKSsNCiAgdGhlbWVfbWluaW1hbCgpKw0KICB0aGVtZShwbG90LnRpdGxlID0gZWxlbWVudF90ZXh0KGhqdXN0PTAuNSkpDQoNCmBgYA0KDQojIDxzcGFuIHN0eWxlPSJjb2xvcjogYmxhY2s7Ij5Db25jbHVzaW9uZXM8L3NwYW4+ICANCg0KRW4gZXN0ZSBlamVyY2ljaW8sIHNlIHV0aWxpesOzIGVsIHBhcXVldGUgKipyaWVtKiogcGFyYSBhY2NlZGVyIGEgbG9zIGRhdG9zIGRlbCBjbGltYSBvYnRlbmlkb3MgZGVsIHNpc3RlbWEgKkFTT1MqLCBxdWUgc2UgZW5jdWVudHJhIGVuIGxvcyBhZXJvcHVlcnRvcyBkZSBsYXMgY2l1ZGFkZXMgZGVsIG11bmRvLiBTZSBzZWxlY2Npb27DsyBsYSByZWQgZGUgTcOpeGljbyB5IHNlIGJ1c2Nhcm9uIGxhcyBlc3RhY2lvbmVzIGRlIE1vbnRlcnJleSB5IFZlcmFjcnV6LiBTZSBvYnR1dmllcm9uIGxvcyBkYXRvcyBkZWwgY2xpbWEgZGUgZXN0YXMgZG9zIGNpdWRhZGVzIGR1cmFudGUgZWwgbWVzIGRlIGZlYnJlcm8gZGUgMjAyNC4NCg0KU2UgcmVhbGl6YXJvbiB0cmVzIGVqZXJjaWNpb3MgY29uIGxvcyBkYXRvcyBkZWwgY2xpbWEuIEVsIHByaW1lcm8gZnVlIG9idGVuZXIgbG9zIGRhdG9zIGRlbCBjbGltYSBkZSBNb250ZXJyZXkgZGUgZmVicmVybyBkZSAyMDI0LCBlbCBzZWd1bmRvIGZ1ZSBncmFmaWNhciBsYSBodW1lZGFkIHJlbGF0aXZhIGR1cmFudGUgZXNlIG1pc21vIG1lcywgdGFudG8gY29uIGxhIGZ1bmNpw7NuICoqcGxvdCoqIGNvbW8gY29uIGxhIGxpYnJlcsOtYSAqKmdncGxvdDIqKiwgZWwgdGVyY2VybyBmdWUgZ3JhZmljYXIgbGEgdGVtcGVyYXR1cmEgcHJvbWVkaW8gZGlhcmlhIGR1cmFudGUgZmVicmVybyBkZSAyMDI0IGVuIFZlcmFjcnV6LCB0YW1iacOpbiBjb24gKipnZ3Bsb3QyLioqDQoNCkxvcyByZXN1bHRhZG9zIGRlIGxvcyBlamVyY2ljaW9zIHBlcm1pdGVuIHZpc3VhbGl6YXIgbGEgdmFyaWFjacOzbiBkZSBsYSBodW1lZGFkIHJlbGF0aXZhIHkgbGEgdGVtcGVyYXR1cmEgZW4gbGFzIGRvcyBjaXVkYWRlcywgYXPDrSBjb21vIGNvbXBhcmFyIHN1cyBkaWZlcmVuY2lhcyBjbGltw6F0aWNhcy4gU2Ugb2JzZXJ2YSBxdWUgTW9udGVycmV5IHRpZW5lIHVuYSBodW1lZGFkIHJlbGF0aXZhIG3DoXMgYmFqYSB5IHVuYSB0ZW1wZXJhdHVyYSBtw6FzIGFsdGEgcXVlIFZlcmFjcnV6LCBsbyBxdWUgc2UgcHVlZGUgYXRyaWJ1aXIgYSBzdSB1YmljYWNpw7NuIGdlb2dyw6FmaWNhIHkgYSBzdSBhbHRpdHVkLg0KDQpFc3RlIGVqZXJjaWNpbyBlcyB1biBlamVtcGxvIGRlIGPDs21vIHNlIHB1ZWRlIHV0aWxpemFyICoqUioqIHBhcmEgYW5hbGl6YXIgZGF0b3MgZGVsIGNsaW1hIHkgZ2VuZXJhciBncsOhZmljb3MgaW5mb3JtYXRpdm9zIHkgYXRyYWN0aXZvcy4gKipSKiogZXMgdW4gbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBtdXkgdmVyc8OhdGlsIHkgcG90ZW50ZSwgcXVlIG9mcmVjZSBtw7psdGlwbGVzIHBhcXVldGVzIHkgbGlicmVyw61hcyBwYXJhIGZhY2lsaXRhciBlbCB0cmFiYWpvIGNvbiBkYXRvcyBkZSBkaWZlcmVudGVzIGZ1ZW50ZXMgeSBmb3JtYXRvcy4NCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQo=