"0","# pie"
"0","ggplot(house_weight_summary, aes(x = """", y = weight_kg, fill = material)) +"
"0","   geom_bar(width = 1, stat = ""identity"", show.legend = F) +"
"0","   coord_polar(theta = ""y"", start = 0) +"
"0","   scale_y_continuous(breaks = 6) +"
"0","   scale_fill_manual(values = DEQ_pal[2:3]) +"
"0","   labs(x = """", y = """") + # use this line to make a pie chart with no title/labels"
"0","   # labs(x = """", y = """", fill = ""material"", title = ""Deconstruction projects: overall material yield total"", subtitle = ""proportion of salvage and disposal by weight"") +"
"0","   geom_text(aes(label = scales::percent(weight_kg/sum(weight_kg))), color = ""grey100"", size = 7, vjust = -2) +"
"0","   geom_text(aes(label = material), color = ""grey100"", size = 5, vjust = -5 ) +"
"0","   geom_text(aes(label = paste0(""("", format(per_average_project, digits = 3, big.mark = "","", big.interval = 3L), "" pounds)"")), color = ""grey100"", size = 5, vjust = -1 ) +"
"0","   theme_tufte()"
