library(riem) library(tidyverse) library(ggplot2)
datos_clima <- riem_measures(“MMMY”) # Código de estación de Monterrey, México
datos_procesados <- datos_clima %>% mutate( temp_c = (tmpf - 32) / 1.8, # Convertir de Fahrenheit a Celsius fecha = lubridate::as_date(valid) ) %>% # Agrupar y resumir si quieres promedios diarios o mensuales group_by(fecha) %>% summarise( temp_promedio_c = mean(temp_c, na.rm = TRUE), precipitacion_mm = sum(p01i, na.rm = TRUE) # Acumular precipitación (p01i está en pulgadas, requiere conversión si se usa) )