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