"0","# energy"
"0","ggplot(filter(reshaped_per_home_final_impact, impact_units == ""MJ""), aes(x = scenario, y = total, fill = scenario) ) +"
"0","   geom_bar(stat = ""identity"", position = ""dodge"") +"
"0","   geom_hline(yintercept = 0 ) +"
"0","   geom_text(aes(label = format(total, digits = 2, big.mark = "","", big.interval = 3L), ), nudge_y = -2000, size = 4,  show.legend = F ) +"
"0","   scale_fill_manual(values = DEQ_pal[4:5]) + "
"0","   scale_y_continuous(labels = comma ) + "
"0","   labs(x = """", y = ""Primary Energy Demand (MJ)"", fill = """") +"
"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"")"
