"0","ggplot(energy_wood_disposition, aes(x = scenario, y = per_project_material_impact_sum, fill = disposition)) +"
"0","   geom_bar(stat = ""identity"", position = ""stack"") +"
"0","   geom_hline(yintercept = 0 ) +"
"0","   geom_label(aes(label = format(per_project_material_impact_sum, "
"0","                                digits = 2, "
"0","                                big.mark = "","", "
"0","                                big.interval = 3L,"
"0","                                min.segment.length = unit(0.2, 'lines'))),"
"0","                     size = 3.5, "
"0","                     position = position_stack(vjust = 0.5), "
"0","                     show.legend = F ) +"
"0","   scale_y_continuous(labels = comma ) +"
"0","   scale_fill_manual(values = c(DEQ_pal[18], DEQ_pal[17], DEQ_pal[16], DEQ_pal[15])) +"
"0","   labs(x = """", y = ""energy impact (MJ)"", fill = """") +"
"0","   facet_grid(. ~ SimpleEOLname) +"
"0","   theme_tufte() +"
"0","   theme(axis.text = element_text(size = 12), axis.title = element_text(size = 12,face = ""bold""), legend.position = ""top"", legend.direction = ""horizontal"")"
