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