New features
tidyverse format
From v1.0.0 onward, climaemet provides its results in tibble format. Also, the functions try to guess the correct format of the fields (i.e. something as a Date/Hour now is an hour, numbers are parsed as double, etc.).
See how a tibble is displayed:
# See a tibble in action
aemet_last_obs("9434")
#> # A tibble: 24 × 25
#> idema lon fint prec alt vmax vv dv lat dmax ubi pres hr stdvv ts
#> <chr> <dbl> <dttm> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 9434 -1.00 2023-02-15 21:00:00 0 249 4.6 1.2 208 41.7 248 ZARAGOZA … 999. 70 1.1 5.8
#> 2 9434 -1.00 2023-02-15 22:00:00 0 249 1.5 1.1 303 41.7 315 ZARAGOZA … 1000. 71 0.2 5
#> 3 9434 -1.00 2023-02-15 23:00:00 0 249 1.3 0.9 155 41.7 285 ZARAGOZA … 1000. 78 0.1 2.4
#> 4 9434 -1.00 2023-02-16 00:00:00 0 249 1.1 0.7 302 41.7 308 ZARAGOZA … 1000. 79 0.1 2.6
#> 5 9434 -1.00 2023-02-16 01:00:00 0 249 0.9 0.4 223 41.7 200 ZARAGOZA … 1000 82 0.2 1.8
#> 6 9434 -1.00 2023-02-16 02:00:00 0 249 1.5 1 89 41.7 118 ZARAGOZA … 1000. 86 0.2 0.8
#> 7 9434 -1.00 2023-02-16 03:00:00 0 249 1.4 0.8 196 41.7 100 ZARAGOZA … 1000. 87 0.1 0.4
#> 8 9434 -1.00 2023-02-16 04:00:00 0 249 2.1 0.8 228 41.7 360 ZARAGOZA … 1000. 88 0.5 0
#> 9 9434 -1.00 2023-02-16 05:00:00 0 249 1.2 0.5 92 41.7 93 ZARAGOZA … 1000. 90 0.4 -0.9
#> 10 9434 -1.00 2023-02-16 06:00:00 0 249 1.1 0.2 346 41.7 123 ZARAGOZA … 1000. 91 0.2 -1.5
#> # … with 14 more rows, and 10 more variables: pres_nmar <dbl>, tamin <dbl>, ta <dbl>, tamax <dbl>, tpr <dbl>,
#> # stddv <dbl>, inso <dbl>, tss5cm <dbl>, pacutp <dbl>, tss20cm <dbl>Note that when possible, data representing dates and numbers are converted to the right format.
Spatial objects: sf
Another major change in v1.0.0 is the ability of
return information on spatial sf format, using
return_sf = TRUE. The coordinate reference system (CRS)
used is EPSG 4326, that correspond to the World
Geodetic System (WGS) and return coordinates in
latitude/longitude (unprojected coordinates):
# You would need to install `sf` if not installed yet
# run install.packages("sf") for installation
library(ggplot2)
library(dplyr)
all_stations <- aemet_last_obs(return_sf = TRUE)
# Last hour
all_last <-
all_stations %>% filter(fint == all_stations[["fint"]][1])
last_hour <- max(all_last$fint)
ggplot(all_last) +
geom_sf(aes(col = ta),
shape = 19,
size = 2
) +
labs(
title = "Temperature in Spain",
subtitle = last_hour,
color = "Max temp.\n(celsius)",
caption = "Source: AEMET"
) +
scale_colour_gradientn(
colours = hcl.colors(5, "RdBu", rev = TRUE),
guide = "legend",
n.breaks = 7
) +
theme_bw() +
theme(
panel.border = element_blank(),
plot.title = element_text(size = 23, face = "bold"),
plot.subtitle = element_text(size = 16, face = "italic"),
plot.caption = element_text(size = 15),
legend.text = element_text(size = 15),
legend.title = element_text(size = 15)
)