Consumo medio di acqua in Europa (anno 2000) per: a pulizia personale b sciaquone c bucato d bere e cucinare e altro distribuzione percentuale dei 160 l consumati al giorno [in USA il consumo giornaliero è di 700 l al giorno] |
Come sono stati ottenuti i grafici con R: source("http://macosa.dima.unige.it/r.R") HF=1.65; BF=1.65 da = c(60,15,1,100-60-15-1); co = c("cyan","pink","grey","white"); PieC(da,co) da = c(80,15,1,100-80-15-1); co = c("cyan","pink","grey","white"); PieC(da,co) da = c(80,17,1,100-80-17-1); co = c("cyan","pink","grey","white"); PieC(da,co) da = c(75,15,1,100-75-15-1); co = c("cyan","pink","grey","white"); PieC(da,co) da = c(60,38,1,100-60-38-1); co = c("cyan","pink","grey","white"); PieC(da,co) da = c(70,20,2,100-70-20-2); co = c("cyan","pink","grey","white"); PieC(da,co) da = c(70,20,3,100-70-20-3); co = c("cyan","pink","grey","white"); PieC(da,co) da = c(87,2,1,100-87-2-1); co = c("cyan","pink","grey","white"); PieC(da,co)