MeteoGalicia service

library(meteospain)
library(dplyr)
library(ggplot2)
library(ggforce)
library(units)
library(sf)

MeteoGalicia service

MeteoGalicia service offers the data of the galician automatic meteorological stations network. This network is supported and assessed by the Xunta de Galicia and the data should be trustworthy.

MeteoGalicia options

Temporal resolution

MeteoGalicia API offers data at different temporal resolutions:

  • “instant”, returning the latest measures for all or selected stations.
  • “current_day”, returning the latest 24 hours of measures for all or selected stations.
  • “daily”, returning the daily aggregated measures for all or selected stations.
  • “monthly”, returning the monthly aggregated measures for all or selected stations.

In both, “daily” and “monthly”, a start_date (and optionally an end_date) arguments must be provided, indicating the period from which retrieve the data.

Stations

MeteoGalicia API allows specifying stations code to narrow the data retrieved. So, a character vector of station codes can be supplied in the stations argument.

Examples

# last measure for all stations
api_options <- meteogalicia_options()
api_options

# current day, only some stations
api_options <- meteogalicia_options(
  resolution = 'current_day',
  stations = c('10157', '14000', '10045')
)
api_options

# daily, all stations
api_options <- meteogalicia_options(
  resolution = 'daily',
  start_date = as.Date('2020-04-25'), end_date = as.Date('2020-05-25')
)
api_options

# monthly, some stations
api_options <- meteogalicia_options(
  resolution = 'monthly',
  start_date = as.Date('2020-04-01'), end_date = as.Date('2020-08-01'),
  stations = c('10157', '14000', '10045')
)
api_options

MeteoGalicia stations info

Accessing station metadata for MeteoGalicia is simple:

get_stations_info_from('meteogalicia')

MeteoGalicia data

api_options <- meteogalicia_options(
  resolution = 'monthly',
  start_date = as.Date('2020-01-01'),
  end_date = as.Date('2020-12-31')
)
galicia_2020 <- get_meteo_from('meteogalicia', options = api_options)
galicia_2020

Visually:

galicia_2020 %>%
  units::drop_units() %>%
  mutate(month = lubridate::month(timestamp, label = TRUE)) %>%
  ggplot() +
  geom_sf(aes(colour = max_temperature)) +
  facet_wrap(vars(month), ncol = 4) +
  scale_colour_viridis_c()

galicia_2020 %>%
  mutate(month = lubridate::month(timestamp, label = TRUE)) %>%
  ggplot() +
  geom_histogram(aes(x = precipitation)) +
  facet_wrap(vars(month), ncol = 4)