Commit b663ff8f authored by Matteo DE FELICE's avatar Matteo DE FELICE

Added spillage in reservoir single and increased font size

parent 37e59c8f
......@@ -190,6 +190,13 @@ shinyServer(function(input, output, session) {
mutate(day_of_the_year = yday(date)) %>%
gather(area, inflow, -date, -day_of_the_year)
spillage = readxl::read_xlsx(paste0('xls/', input$result_xls), sheet = 'Spillage') %>%
select(contains(paste0(input$zone, '_HPHS')),
contains(paste0(input$zone, '_HDAM'))) %>%
mutate(date = seq(as_datetime('2016-01-01'), by = 'day', length.out = n())) %>%
mutate(day_of_the_year = yday(date)) %>%
gather(area, spillage, -date, -day_of_the_year)
res_zone = select(res, date, contains(paste0(input$zone, '_HPHS')),
contains(paste0(input$zone, '_HDAM'))) %>%
mutate(day_of_the_year = yday(date)) %>%
......@@ -200,7 +207,11 @@ shinyServer(function(input, output, session) {
mutate(day_of_the_year = yday(date)) %>%
gather(area, generation, -date, -day_of_the_year)
merged = inner_join(inner_join(inflows, res_zone), gen_zone) %>%
merged = inner_join(
inner_join(
inner_join(inflows, res_zone), gen_zone),
spillage) %>%
gather(variable, output, -date, -day_of_the_year, -area)
entsoe_data = entsoe_storage %>%
......@@ -210,11 +221,12 @@ shinyServer(function(input, output, session) {
"date",
"day_of_the_year"),
y = "output", color = "area")) +
geom_line(size = 2) +
geom_line(size = 1) +
# ylab('GWh/day') +
facet_grid(variable ~ area, scales = 'free_y') +
theme_light() +
theme(axis.text.x = element_text(size = 8, angle = 45, hjust = 1),
theme(text = element_text(size = 16),
axis.text.x = element_text(size = 12, angle = 45, hjust = 1),
legend.position = 'bottom')
if (nrow(entsoe_data) > 0) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment