View source: R/gie_aggregate.R
gie_gas_aggregate | R Documentation |
Get the aggregated historical data export for Europe or Non Europe
gie_gas_aggregate(area, api_key = NULL, max_pages = 1000)
area |
eu for Europe, ne for Non Europe. |
api_key |
The default is NULL and searches for your GIE_PAT in you .Renviron file. |
max_pages |
How many pages to return in the paginated results. Defaults to 1000 so all results are returned as default. |
{
library(gie)
library(tidyverse)
ne <- gie_gas_aggregate("ne")
eu <- gie_gas_aggregate("eu")
eu %>%
mutate(yr = year(gasDayStartedOn),
mnth = month(gasDayStartedOn),
mday = mday(gasDayStartedOn)) %>%
filter(mnth == 7) %>%
group_by(yr) %>%
filter(mday == max(mday)) %>%
ungroup() %>%
ggplot(., aes(gasDayStartedOn, gasInStorage)) +
geom_col() +
geom_point(aes(gasDayStartedOn, workingGasVolume)) +
labs(title = "End of June Gas Storage")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.