1 Teoría

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

2 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

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

# view(riem_networks())
# México

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

view(riem_stations("MX__ASOS"))
# MMMY

5 Paso 3. Obtener los datos del clima

clima_mty <- riem_measures("MMMY")

6 Ejercicios

6.1 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")) 

6.2 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))

6.3 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))

7 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=