...
 
Commits (2)
......@@ -172,10 +172,13 @@ shinyServer(function(input, output, session) {
'HRD' = 'black',
'ZZZ' = 'grey75')
g = ggplot(gen_y, aes(x = country, y = generation, fill = type)) +
geom_bar(stat = 'identity') +
g = ggplot(gen_y, aes(x = country, y = generation)) +
geom_bar(aes(fill = type), stat = 'identity') +
geom_text(data = gen_y %>% group_by(country, year) %>% summarise(total = sum(generation)),
aes(label = round(total), y = total), vjust = -0.5) +
scale_fill_manual(values = color_palette) +
facet_wrap(~year, ncol = 1)
facet_wrap(~year, ncol = 1) +
theme_light()
print(g)
}
......@@ -215,7 +218,7 @@ shinyServer(function(input, output, session) {
geom_line(size = 1) +
scale_y_log10() +
# ylab('GWh/day') +
theme(axis.text.x = element_text(size = 6, angle = 45, hjust = 1),
theme(axis.text.x = element_text(size = 8, angle = 45, hjust = 1),
legend.position = 'bottom')
print(g)
# Power flows ---------------------------------------------------------------------------------
......@@ -235,7 +238,7 @@ shinyServer(function(input, output, session) {
segment.color = "grey50",
nudge_x =5) +
theme_light() +
theme(axis.text.x = element_text(size = 6, angle = 45, hjust = 1),
theme(axis.text.x = element_text(size = 8, angle = 45, hjust = 1),
legend.position = 'none')
print(g)
......