myPlot = tidy
(acs_nycha,
mutate({ under15: d => d.pop5t9P + d.pop10t14P + d.popu5P,
between15_24: d => d.pop15t19P + d.pop20t24P,
between25_60: d => d.pop25t29P + d.pop30t34P + d.pop35t39P + d.pop40t44P + d.pop45t49P + d.pop50t54P + d.pop55t59P,
moreThan60: d => d.pop60t64P + d.pop65t69P + d.pop70t74P + d.pop75t79P + d.pop80t84P + d.pop85plP,
allAges: d => d.popu5P + d.pop5t9P + d.pop10t14P + d.pop15t19P + d.pop20t24P + d.pop25t29P + d.pop30t34P + d.pop35t39P + d.pop40t44P + d.pop45t49P + d.pop50t54P + d.pop55t59P + d.pop60t64P + d.pop65t69P + d.pop70t74P + d.pop75t79P + d.pop80t84P + d.pop85plP,
developmentCosts: d => Number(d['DEVELOPMENT COST'].replace(/[$,]/g, '')),
avgRent: d => Number(d['AVG MONTHLY GROSS RENT'].replace(/[$,]/g, '')),
noDev: d => d.DEVELOPMENT,
unbuiltAreas: d=> Number(d['CUBAGE CU FT'].replace(/[$,]/g, '')) - Number(d['BLDG COVERAGE SQ FT'].replace(/[$,]/g, ''))}
))