Commit 1db6f70d authored by Matteo DE FELICE's avatar Matteo DE FELICE

Added a smarted color palette for the water value heatmap

parent c40e9691
......@@ -70,7 +70,8 @@ shinyServer(function(input, output, session) {
g = ggplot(sel,
aes(x = date, y = source, #y = fct_reorder(source, avg_cost),
fill = cut(value, right = FALSE, breaks = seq(0, max(sel$value)+0.1, length.out = 10)))) +
fill = cut(value, right = FALSE,
breaks = quantile(unique(sel$value), seq(0, 1, length.out = 9))))) +
geom_tile() +
scale_fill_brewer(palette = 'YlOrRd', name = 'water value', drop = FALSE) +
ylab('Zone') +
......
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