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":1705083628734.849,"size":13153941},{"id":"2d4b449718aaaf2ee200889dc4d9bdad0396b2ff3e2d9ff77e72888866387080cad2dd1a7bd58e7346d1527e844e865f1c0d0edcc26903208acafbffc771936b","href":"https://static.observableusercontent.com/files/2d4b449718aaaf2ee200889dc4d9bdad0396b2ff3e2d9ff77e72888866387080cad2dd1a7bd58e7346d1527e844e865f1c0d0edcc26903208acafbffc771936b","name":"countries.csv","type":"text/csv","lastModified":1705083772456.631,"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 = ue_world.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.*, coalesce(t2.order_eu,0),t3.order_region from\n(select * from \"emissions_ue_world_formatted\")t1\nleft join\n(select country, row_number() over (order by sum(co2) desc) 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","pinned":true,"hidden":false,"mode":"sql","output":"emissions_ue_world_sorted","database":"var:emissions_ue_world_formatted"},{"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: true, scheme: \"PuRd\" },\n x: { type: \"linear\" },\n y: {},\n marks: [\n Plot.areaY(\n emissions_ue_world_formatted,\n Plot.groupX(\n { y: \"sum\"},\n { x: \"year\", y: \"co2\", fill: \"Region\", tip: true }\n )\n ),\n Plot.ruleY([0]),\n Plot.tip(\n [`EU 1990 Emissions`],\n {x: 1990, y: 12000}\n )\n ]\n});\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":185,"value":"AreaChart_2 = () => {\n return Plot.plot({\n x: { type: \"linear\" },\n color: { legend: true , scheme: \"PuRd\"},\n marks: [\n Plot.areaY(\n emissions_ue_world_formatted.filter(d => d.Region === 'European Union'),\n Plot.stackY(\n { x: \"year\", y: \"co2\", fill: \"country\" , tip:true, sort: \"y\"}\n )\n ),\n Plot.ruleY([0])\n ]\n});\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":580,"value":"Plot.plot({\n title: \"CO2 Emissions between 1950 and 2000 \",\n color: { legend: true, scheme: \"PuRd\" , type: \"categorical\",className:\"Region\"},\n x: { type: \"linear\" },\n y: {},\n marks: [\n Plot.areaY(\n emissions_ue_world_sorted,\n Plot.groupX(\n { y: \"sum\" },\n { x: \"year\", y: \"co2\",z:\"order_region\", order: \"z\", fill: \"order_region\"}\n// , channels: { year: \"year\",Region: \"Region\",co2: \"co2\"},\n // tip: { format: { year: true,co2: true}}}\n )),\n Plot.ruleY([0]),\n Plot.tip(\n [`EU 1990 Emissions`],\n {x: 1990, y: 4500}\n ),\n Plot.tip(\n\n \n )\n ]\n});","pinned":true,"hidden":false,"mode":"ojs"},{"id":674,"value":"Plot.plot({\n title: \"CO2 Emissions between 1950 and 2000 \",\n color: { legend: true, scheme: \"PuRd\" , type: \"categorical\",label:\"Region\"},\n x: { type: \"linear\" },\n y: {},\n marks: [\n Plot.areaY(\n emissions_ue_world_sorted.filter(d => d.country === 'European Union'),\n Plot.stackY(\n { y: \"sum\",sort:\"order_eu\" },\n { x: \"year\", y: \"co2\",fill: \"country\",stroke:\"order_eu\", tip: true }\n )\n ),\n Plot.ruleY([0]),\n Plot.tip(\n [`EU 1990 Emissions`],\n {x: 1990, y: 4500}\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"}