ASOS: Información del Automated surface observing system

Instalar paquetes y llamar librerías

install.packages(“riem”) library(riem) install.packages(“tidyverse”) library(tidyverse) install.packages(“lubridate”) library(lubridate) install.packages(“ggplot2”) library(ggplot2) install.packages(“plotly”) library(plotly) install.packages(“dplyr”) library(dplyr)

Paso 2: Buscar la red (pais) Ejemplo: Mexico y capturar CODE View(riem_networks())

View(riem_stations(“Mx__ASOS”))

monterrey <- riem_measures(“MMMY”) str(monterrey)

monterrey\(tmpc <- (monterrey\)tmpf-32)/1.8 str(monterrey) summary(monterrey)

Paso 6. Filtrar información - Ejemplo de Enero a Marzo 2023

este_año <- subset(monterrey, valid >= as.POSIXct(“2023-01-01 00:00”)& valid <= as.POSIXct(“2023-03-10 07:00”))

plot(este_año\(valid,este_año\)tmpc)

este_año <- este_año %>% mutate(date=ymd_hms(valid),date= as.Date(date)) %>% group_by(date) %>% summarize_if(is.numeric, ~mean(.,na.rm=TRUE))

plot(este_año\(date,este_año\)tmpc, type=“l”, main= “Temperatura promedio de Monterrey”, xlab=“Fecha”, ylab=“centigrados”)