Commit 28da1c97 authored by Matteo DE FELICE's avatar Matteo DE FELICE

Added color to Slack generation

parent ce00684c
......@@ -77,7 +77,8 @@ shinyServer(function(input, output, session) {
'BIO' = 'darkolivegreen1',
'OIL' = 'brown',
'ICEN' = 'grey66',
'HRD' = 'black')
'HRD' = 'black',
'ZZZ' = 'grey75')
g = sel_zone %>%
gather(source, generation, -date) %>%
......@@ -115,7 +116,8 @@ shinyServer(function(input, output, session) {
'BIO' = 'darkolivegreen1',
'OIL' = 'brown',
'ICEN' = 'grey66',
'HRD' = 'black')
'HRD' = 'black',
'ZZZ' = 'grey75')
gen_area = gen %>%
select(-X__1) %>%
gather(zone, generation, -date) %>%
......@@ -167,7 +169,8 @@ shinyServer(function(input, output, session) {
'BIO' = 'darkolivegreen1',
'OIL' = 'brown',
'ICEN' = 'grey66',
'HRD' = 'black')
'HRD' = 'black',
'ZZZ' = 'grey75')
g = ggplot(gen_y, aes(x = country, y = generation, fill = type)) +
geom_bar(stat = 'identity') +
......
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