2f:T40b,function calculateAnnualPercentageChange(dataArray) { const resultArray = []; const emission_1990 = dataArray.filter(d => d.year === 1990).map(item => item.total_ghg); for (let i = 1; i < dataArray.length; i++) { const currentYear = dataArray[i].year; const previousYear = dataArray[i - 1].year; const currentEmissions = dataArray[i].total_ghg; const previousEmissions = dataArray[i - 1].total_ghg; const country = dataArray[i].country; const index_development = (currentEmissions/emission_1990)*100; const change_from_1990 = (currentEmissions-emission_1990); const percentageChange = ((currentEmissions - previousEmissions) / previousEmissions) * 100; // Add the result to the new array resultArray.push({ year: currentYear, country: country, total_ghg: currentEmissions, annualPercentageChange: percentageChange, index_development: index_development, change_from_1990: change_from_1990 }); } return resultArray.filter(d => d.year >= 1989) }30:[{"id":"f69694beb40ab929f8d68173e8157a00d705e6314b0a042a686cff39697f47a361d2cf339816605e32f1a04f097557122637365b3c19e6e4fbc2fa1e601dc6b9","href":"https://static.observableusercontent.com/files/f69694beb40ab929f8d68173e8157a00d705e6314b0a042a686cff39697f47a361d2cf339816605e32f1a04f097557122637365b3c19e6e4fbc2fa1e601dc6b9","name":"owid-co2-data (1).csv","type":"text/csv","lastModified":1705607498865.764,"size":13153941},{"id":"2d4b449718aaaf2ee200889dc4d9bdad0396b2ff3e2d9ff77e72888866387080cad2dd1a7bd58e7346d1527e844e865f1c0d0edcc26903208acafbffc771936b","href":"https://static.observableusercontent.com/files/2d4b449718aaaf2ee200889dc4d9bdad0396b2ff3e2d9ff77e72888866387080cad2dd1a7bd58e7346d1527e844e865f1c0d0edcc26903208acafbffc771936b","name":"countries.csv","type":"text/csv","lastModified":1705607498865.764,"size":5558}] 2d:{"title":"Untitled","cells":[{"id":0,"value":"# Untitled","pinned":false,"hidden":false,"mode":"md"},{"id":4,"value":"emissions_raw = FileAttachment(\"owid-co2-data (1).csv\").csv()","pinned":true,"hidden":false,"mode":"ojs"},{"id":16,"value":"countries = FileAttachment(\"countries.csv\").csv()","pinned":true,"hidden":false,"mode":"ojs"},{"id":19,"value":"ue_world = {\nconst filteredCountries = countries.filter(country => country.UE === 'Yes');\n\nreturn filteredCountries;\n}","pinned":true,"hidden":false,"mode":"ojs"},{"id":24,"value":"emissions_ue_world = {\nconst countries_ue = countries.filter(country => country.UE === 'Yes').map(item => item.country)\ncountries_ue.push('World')\ncountries_ue.push('Asia')\ncountries_ue.push('Africa')\ncountries_ue.push('North America'); \n\nconst filtered_emissions = emissions_raw\n .filter(item => countries_ue.includes(item.country))\n .map(item => ({\n ...item,\n co2: parseFloat(item.co2) // Convert 'co2' to decimal\n}));\n\nconst filtered_emissions2 = filtered_emissions\n .filter(d => d.year >= 1950)\n .filter(d => d.year <= 2000)\n\nreturn filtered_emissions2\n \n}","pinned":true,"hidden":false,"mode":"ojs"},{"id":550,"value":"select * from\n(select t1.year,t2.co2 - t1.co2 as co2, t1.region,'Rest of the World' as country from \n(SELECT year,sum(co2) as co2,'Rest of the World'as region\n FROM \"emissions_ue_world\"\nwhere country <> 'World'\ngroup by year)t1\nleft join\n(SELECT year,sum(co2) as co2,'World'as region\n FROM \"emissions_ue_world\"\nwhere country = 'World'\ngroup by year)t2\non t1.year = t2.year\nunion all\nselect year, co2, case when country <> 'World' \n and country <> 'Asia' \n and country <> 'Africa'\n and country <> 'North America'\n then 'European Union'\n else country end as region, country\n FROM \"emissions_ue_world\"\nwhere country <> 'World');","pinned":true,"hidden":false,"mode":"sql","output":"emissions_ue_world_formatted","database":"var:emissions_ue_world"},{"id":643,"value":"select t1.*, case when coalesce(t2.order_eu,0) <21 then '' else t1.country end as country_formatted,\n coalesce(t2.order_eu,0) as order_eu,t3.order_region from\n(select * from \"emissions_ue_world_formatted\")t1\nleft join\n(select country, row_number() over (order by sum(co2) asc) as order_eu from \"emissions_ue_world_formatted\"\n where region = 'European Union'\n group by country)t2\non t1.country = t2.country\nleft join\n(select region, row_number() over (order by sum(co2) asc) as order_region from \"emissions_ue_world_formatted\"\n group by region)t3\non t1.region = t3.region\norder by year asc,order_region desc,order_eu asc","pinned":true,"hidden":false,"mode":"sql","output":"emissions_ue_world_sorted","database":"var:emissions_ue_world_formatted"},{"id":849,"value":"select year,region,sum(co2) as co2,min(order_region) as order_region from emissions_ue_world_sorted\ngroup by year,region\norder by year asc,order_region asc","pinned":true,"hidden":false,"mode":"sql","output":"emissions_regions_groupped","database":"var:emissions_ue_world_sorted"},{"id":525,"value":"miniPlots2 = html`\n

${[AreaChart_1(),AreaChart_2()]}

`","pinned":true,"hidden":false,"mode":"ojs"},{"id":503,"value":"AreaChart_1 = () => {\nreturn Plot.plot({\n title: \"CO2 Emissions between 1950 and 2000 \",\n color: { legend: false, scheme: \"PuRd\" , type: \"categorical\",className:\"Region\"},\n x: { type: \"linear\" },\n y: {},\n marks: [\n Plot.areaY(emissions_regions_groupped, \n {x: \"year\", y: \"co2\",z:\"region\" ,fill: \"order_region\",order:\"order_region\", \n tip: {format: {x:true,y:true,z:true,fill:false,order:false}}}),\n Plot.ruleY([0]),\n Plot.tip(\n [`EU 1990 Emissions`],\n {x: 1990, y: 4500}),\n Plot.text(\n emissions_regions_groupped,\n Plot.selectLast(\n Plot.stackY({filter: (d) => d.year < 1998,\n x: \"year\", y: \"co2\",z:\"region\" ,fill: \"order_region\",order:\"order_region\",\n text:\"region\",\n dx: -17,\n fill: \"#000\"\n }))\n )\n ]\n});\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":185,"value":"AreaChart_2 = () => {\n return Plot.plot({\n title: \"CO2 Emissions between 1950 and 2000 for countries in EU\",\n color: { legend: false, scheme: \"PuRd\" , type: \"categorical\",className:\"Region\"},\n x: { type: \"linear\" },\n y: {},\n marks: [\n Plot.areaY(emissions_ue_world_sorted.filter(d => d.region === 'European Union'), \n {x: \"year\", y: \"co2\",z:\"country\" ,fill: \"order_eu\",order:\"-order_eu\", \n tip: {format: {x:true,y:true,z:true,fill:false,stroke:false}}}),\n Plot.ruleY([0]),\n Plot.text(\n emissions_ue_world_sorted.filter(d => d.region === 'European Union'),\n Plot.selectLast(\n Plot.stackY({filter: (d) => (d.year < 1998),\n x: \"year\", y: \"co2\",z:\"country\" ,fill: \"order_eu\",order:\"-order_eu\", \n text:\"country_formatted\",\n dx: -17,\n fill: \"#000\"\n }))\n )\n ]\n \n})\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":869,"value":"Plot.plot({\n title: \"CO2 Emissions between 1950 and 2000 \",\n color: { legend: false, scheme: \"PuRd\" , type: \"categorical\",className:\"Region\"},\n x: { type: \"linear\" },\n y: {},\n marks: [\n Plot.areaY(emissions_regions_groupped, \n {x: \"year\", y: \"co2\",z:\"region\" ,fill: \"order_region\",order:\"order_region\", \n tip: {format: {x:true,y:true,z:true,fill:false,order:false}}}),\n Plot.ruleY([0]),\n Plot.tip(\n [`EU 1990 Emissions`],\n {x: 1990, y: 4500})\n ]\n})","pinned":true,"hidden":false,"mode":"ojs"},{"id":892,"value":"Plot.plot({\n title: \"CO2 Emissions between 1950 and 2000 \",\n color: { legend: false, scheme: \"PuRd\" , type: \"categorical\",className:\"Region\"},\n x: { type: \"linear\" },\n y: {},\n marks: [\n Plot.areaY(emissions_regions_groupped, \n {x: \"year\", y: \"co2\",z:\"region\" ,fill: \"order_region\",order:\"order_region\", \n tip: {format: {x:true,y:true,z:true,fill:false,order:false}}}),\n Plot.ruleY([0]),\n Plot.tip(\n [`EU 1990 Emissions`],\n {x: 1990, y: 4500}),\n Plot.text(\n emissions_regions_groupped,\n Plot.selectLast(\n Plot.stackY({filter: (d) => d.year < 1998,\n x: \"year\", y: \"co2\",z:\"region\" ,fill: \"order_region\",order:\"order_region\",\n text:\"region\",\n dx: -17,\n fill: \"#000\"\n }))\n )\n ]\n})","pinned":true,"hidden":false,"mode":"ojs"},{"id":961,"value":"Plot.plot({\n title: \"CO2 Emissions between 1950 and 2000 for countries in EU\",\n color: { legend: false, scheme: \"PuRd\" , type: \"categorical\",className:\"Region\"},\n x: { type: \"linear\" },\n y: {},\n marks: [\n Plot.areaY(emissions_ue_world_sorted.filter(d => d.region === 'European Union'), \n {x: \"year\", y: \"co2\",z:\"country\" ,fill: \"order_eu\",order:\"-order_eu\", \n tip: {format: {x:true,y:true,z:true,fill:false,stroke:false}}}),\n Plot.ruleY([0]),\n Plot.text(\n emissions_ue_world_sorted.filter(d => d.region === 'European Union'),\n Plot.selectLast(\n Plot.stackY({filter: (d) => (d.year < 1998),\n x: \"year\", y: \"co2\",z:\"country\" ,fill: \"order_eu\",order:\"-order_eu\", \n text:\"country_formatted\",\n dx: -17,\n fill: \"#FFF\"\n }))\n )\n ]\n \n})","pinned":true,"hidden":false,"mode":"ojs"},{"id":229,"value":"## Composition by country","pinned":false,"hidden":false,"mode":"md"},{"id":234,"value":"ue_countries = ue_world.map(item => item.country)","pinned":false,"hidden":false,"mode":"ojs"},{"id":241,"value":"emissions_ue_single_country = {\nconst emissions_1990 = emissions_raw.filter(item => select_contry.includes(item.country)).map(item => item.total_ghg)\n\nconst filtered_emissions = emissions_raw\n .filter(item => select_contry.includes(item.country))\n .map(item => ({\n ...item,\n year:parseInt(item.year),\n co2: parseFloat(item.co2), // Convert 'co2' to decimal\n total_ghg: parseFloat(item.total_ghg)\n \n}));\n\nreturn filtered_emissions\n \n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":379,"value":"emissions_ue_single_country_percentage = calculateAnnualPercentageChange(emissions_ue_single_country)","pinned":false,"hidden":false,"mode":"ojs"},{"id":297,"value":"$2f","pinned":false,"hidden":false,"mode":"ojs"},{"id":231,"value":"viewof select_contry = Inputs.select(ue_countries, {label: \"Select one country\"})","pinned":false,"hidden":false,"mode":"ojs"},{"id":405,"value":"barChart_1 = () => {\nreturn Plot.plot({\n subtitle: \"GHG Emissions between 1990 and 2021 \",\n color: { scheme: \"PuRd\"},\n marks: [\n Plot.barY(\n emissions_ue_single_country_percentage,\n Plot.groupX({ y: \"sum\" }, { x: \"year\", y: \"total_ghg\", tip: true, fill:\"country\" })\n ),\n Plot.ruleY([0]),\n // Configure x-axis ticks\n Plot.axisX({anchor: \"bottom\", ticks: [1990,2000,2010,2020]}),\n Plot.axisY({ anchor: \"left\", label: \"ghg\" })\n ],\n\n});\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":411,"value":"barChart_2 = () => {\nreturn Plot.plot({\n subtitle: \"% Variation in GHG Emissions Compared to the Previous Year\",\n color: { scheme: \"PuRd\"},\n marks: [\n Plot.barY(\n emissions_ue_single_country_percentage.filter(d => d.year >= 1990),\n Plot.groupX({ y: \"sum\" }, { x: \"year\", y: \"annualPercentageChange\", tip: true, fill:\"country\" })\n ),\n Plot.ruleY([0]),\n // Configure x-axis ticks\n Plot.axisX({anchor: \"bottom\", ticks: [1990,2000,2010,2020]}),\n Plot.axisY({ anchor: \"left\", label: \"% Var\" })\n ],\n\n});\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":439,"value":"barChart_3 = () => {\nreturn Plot.plot({\n color: { scheme: \"PuRd\"},\n subtitle: \"Index Development between 1990 and 2021\",\n marks: [\n Plot.barY(\n emissions_ue_single_country_percentage.filter(d => d.year > 1990),\n Plot.groupX({ y: \"sum\" }, { x: \"year\", y: \"index_development\", tip: true, fill:\"country\" })\n ),\n Plot.ruleY([0]),\n // Configure x-axis ticks\n Plot.axisX({anchor: \"bottom\", ticks: [1990,2000,2010,2020]}),\n Plot.axisY({ anchor: \"left\", label: \"index development\" })\n ],\n\n});\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":446,"value":"barChart_4 = () => {\nreturn Plot.plot({\n color: { scheme: \"PuRd\"},\n subtitle: \"% Variation in GHG Emissions Compared to the 1990 Emissions\",\n marks: [\n Plot.barY(\n emissions_ue_single_country_percentage.filter(d => d.year > 1990),\n Plot.groupX({ y: \"sum\" }, { x: \"year\", y: \"change_from_1990\", tip: true, fill:\"country\" })\n ),\n Plot.ruleY([0]),\n // Configure x-axis ticks\n Plot.axisX({anchor: \"bottom\", ticks: [1990,2000,2010,2020]}),\n Plot.axisY({ anchor: \"left\", label: \"% Var\" })\n ],\n});\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":403,"value":"miniPlots = html`\n

${[barChart_1(), barChart_3()]}

${[barChart_2(), barChart_4()]}

`","pinned":true,"hidden":false,"mode":"ojs"},{"id":316,"value":"Plot.plot({\n marks: [\n Plot.auto(null, {})\n ]\n})","pinned":true,"hidden":false,"mode":"ojs"},{"id":392,"value":"viewof dashboard = {\n const crimeBarChart = vl.markBar()\n .encode(\n vl.x().fieldN(\"year\").title(\"Year\"),\n vl.y().sum(\"total_ghg\").title(\"Total GHG Emissions\")\n );\n\n const crimeBarChartLayer = vl.layer(\n crimeBarChart.params(emissions_ue_single_country_percentage).encode(vl.color().value('lightgrey')),\n crimeBarChart.transform(vl.filter(emissions_ue_single_country_percentage))\n )\n .title(\"Emissions by Year\")\n .data(emissions_ue_single_country_percentage)\n .width(width * 0.4)\n .height(200);\n}\n","pinned":true,"hidden":false,"mode":"ojs"}],"files":"$W30","stdlib":"1","titling":"auto"}