30:T932,chart = { const div = html`

` const width = 500, height = 100; const svg = d3.select(div); const x = d3.scaleBand() .domain(data.map(d=>d.Year)) .range([0,width-40]) .paddingInner([0.1]); const x1 = d3.scaleBand() .domain(data.map(d=>d["Beverage Types"])) .range([0, x.bandwidth()]); const y = d3.scaleLinear() .domain([0,20]) .range([height,25]); const color = d3.scaleOrdinal() .domain(data.map(d=>d["Beverage Types"])) .range(["#8da0cb","#ffd92f","#66c2a5","#fc8d62","#e5c494"]) const multiple = svg.selectAll("multiple") .data(nest) .enter() .append("svg") .attr("transform","translate(0,0)") .style("max-width","50%") .attr("viewBox",[0,0,width,height]) .append("g") .attr("transform","translate(25,-20)") multiple.append("g") .append("text") .attr("x", width/2) .attr("y","34px") .attr("text-anchor","middle") .attr("font-size","15px") .text(d=>d.key) multiple.append("g") .attr("transform",`translate(0,${height})`) .call(d3.axisBottom(x) .tickSize([8]) .tickPadding([3])) .call(g=> g.select(".domain").remove()); multiple.append("g") .call(d3.axisLeft(y) .ticks(5)) .call(g=> g.select(".domain").remove()); const bars = multiple.selectAll("bar") .data(d=>d.values) .enter() .append("g") .attr("transform",d=>`translate(${x(d.Year)},0)`) .append("rect") .attr("x",d=>x1(d["Beverage Types"])) .attr("y",d=>y(d.value)) .attr("width",x1.bandwidth()) .attr("height",d=>height-y(d.value)) .attr("fill",d=>color(d["Beverage Types"])) .style("stroke","purple") .style("shape-rendering","crispEdges") return div; }31:T4ff,html`

Countries with high consumption levels.

Seychelles, Estonia and Lithuania are the top three countries with one of the highest alcohol consumption levels.

Seychelles has had a steady increase in alcohol consumption over the years, an individual consumes 20 litres of pure alcohol annually one of the highest in the world. Seychelles consumes a combination of beer and spirits, spirit being home brewed palm toddy with alcohol content of 8-9%.

Estonia's consumption has dropped over the years, with people of Estonia strongly favoring ban on alcohol advertising due to issues of driving under the influence, domestic violence and health issues etc.

Lithuania's overall drop in consumption is due to the government's various measures to combat alcoholism in the country; enforcing various measures such as increasing the legal drinking age, hike in excise duties, restriction in selling hours and total ban on advertisement.

`32:T93e,highConsumption = { const div = html`

` const width = 500, height = 100; const svg = d3.select(div); const x = d3.scaleBand() .domain(data.map(d=>d.Year)) .range([0,width-40]) .paddingInner([0.1]); const x1 = d3.scaleBand() .domain(data.map(d=>d["Beverage Types"])) .range([0, x.bandwidth()]); const y = d3.scaleLinear() .domain([0,20]) .range([height,25]); const color = d3.scaleOrdinal() .domain(data.map(d=>d["Beverage Types"])) .range(["#8da0cb","#ffd92f","#66c2a5","#fc8d62","#e5c494"]) const multiple = svg.selectAll("multiple") .data(high) .enter() .append("svg") .attr("transform","translate(0,0)") //.style("max-width","95%") .attr("viewBox",[0,0,width,height]) .append("g") .attr("transform","translate(25,-20)") multiple.append("g") .append("text") .attr("x", width/2) .attr("y","34px") .attr("text-anchor","middle") .attr("font-size","15px") .text(d=>d.key) multiple.append("g") .attr("transform",`translate(0,${height})`) .call(d3.axisBottom(x) .tickSize([8]) .tickPadding([3])) .call(g=> g.select(".domain").remove()); multiple.append("g") .call(d3.axisLeft(y) .ticks(5)) .call(g=> g.select(".domain").remove()); const bars = multiple.selectAll("bar") .data(d=>d.values) .enter() .append("g") .attr("transform",d=>`translate(${x(d.Year)},0)`) .append("rect") .attr("x",d=>x1(d["Beverage Types"])) .attr("y",d=>y(d.value)) .attr("width",x1.bandwidth()) .attr("height",d=>height-y(d.value)) .attr("fill",d=>color(d["Beverage Types"])) .style("stroke","purple") .style("shape-rendering","crispEdges") return div; }33:T93a,lowConsumption = { const div = html`

` const width = 500, height = 100; const svg = d3.select(div); const x = d3.scaleBand() .domain(data.map(d=>d.Year)) .range([0,width-40]) .paddingInner([0.1]); const x1 = d3.scaleBand() .domain(data.map(d=>d["Beverage Types"])) .range([0, x.bandwidth()]); const y = d3.scaleLinear() .domain([0,20]) .range([height,25]); const color = d3.scaleOrdinal() .domain(data.map(d=>d["Beverage Types"])) .range(["#8da0cb","#ffd92f","#66c2a5","#fc8d62","#e5c494"]) const multiple = svg.selectAll("multiple") .data(low) .enter() .append("svg") .attr("transform","translate(0,0)") .style("max-width","50%") .attr("viewBox",[0,0,width,height]) .append("g") .attr("transform","translate(25,-20)") multiple.append("g") .append("text") .attr("x", width/2) .attr("y","34px") .attr("text-anchor","middle") .attr("font-size","15px") .text(d=>d.key) multiple.append("g") .attr("transform",`translate(0,${height})`) .call(d3.axisBottom(x) .tickSize([8]) .tickPadding([3])) .call(g=> g.select(".domain").remove()); multiple.append("g") .call(d3.axisLeft(y) .ticks(5)) .call(g=> g.select(".domain").remove()); const bars = multiple.selectAll("bar") .data(d=>d.values) .enter() .append("g") .attr("transform",d=>`translate(${x(d.Year)},0)`) .append("rect") .attr("x",d=>x1(d["Beverage Types"])) .attr("y",d=>y(d.value)) .attr("width",x1.bandwidth()) .attr("height",d=>height-y(d.value)) .attr("fill",d=>color(d["Beverage Types"])) .style("stroke","purple") .style("shape-rendering","crispEdges") return div; }34:T944,patternConsumption = { const div = html`

` const width = 500, height = 100; const svg = d3.select(div); const x = d3.scaleBand() .domain(data.map(d=>d.Year)) .range([0,width-40]) .paddingInner([0.1]); const x1 = d3.scaleBand() .domain(data.map(d=>d["Beverage Types"])) .range([0, x.bandwidth()]); const y = d3.scaleLinear() .domain([0,20]) .range([height,25]); const color = d3.scaleOrdinal() .domain(data.map(d=>d["Beverage Types"])) .range(["#8da0cb","#ffd92f","#66c2a5","#fc8d62","#e5c494"]) const multiple = svg.selectAll("multiple") .data(pattern) .enter() .append("svg") .attr("transform","translate(0,0)") //.style("max-width","50%") .attr("viewBox",[0,0,width,height]) .append("g") .attr("transform","translate(25,-20)") multiple.append("g") .append("text") .attr("x", width/2) .attr("y","34px") .attr("text-anchor","middle") .attr("font-size","15px") .text(d=>d.key) multiple.append("g") .attr("transform",`translate(0,${height})`) .call(d3.axisBottom(x) .tickSize([8]) .tickPadding([3])) .call(g=> g.select(".domain").remove()); multiple.append("g") .call(d3.axisLeft(y) .ticks(5)) .call(g=> g.select(".domain").remove()); const bars = multiple.selectAll("bar") .data(d=>d.values) .enter() .append("g") .attr("transform",d=>`translate(${x(d.Year)},0)`) .append("rect") .attr("x",d=>x1(d["Beverage Types"])) .attr("y",d=>y(d.value)) .attr("width",x1.bandwidth()) .attr("height",d=>height-y(d.value)) .attr("fill",d=>color(d["Beverage Types"])) .style("stroke","purple") .style("shape-rendering","crispEdges") return div; }35:[{"id":"b944d051eb9f461c01bdb4890162bf2d6324faafd9389996177b741b3af09b8cac6761a1340b37bf4b214de0b2825659c38b9c9b15e2dc4397a01928564866a3","href":"https://static.observableusercontent.com/files/b944d051eb9f461c01bdb4890162bf2d6324faafd9389996177b741b3af09b8cac6761a1340b37bf4b214de0b2825659c38b9c9b15e2dc4397a01928564866a3","name":"alcohol.csv","type":"text/csv","lastModified":1599763894460.324,"size":544947}] 2e:{"title":"Under The Influence","cells":[{"id":0,"value":"html`

Under The Influence

This is a small-multiple grouped bar chart visualization of alcohol consumption levels of 188 countries across the globe based on data compiled by World Health Organization. The visualization gives a quick overview of types of alcohol and litres consumed per individual from 2001 - 2018.\n

`\n//font style in html","pinned":false,"hidden":false,"mode":"ojs"},{"id":679,"value":"html`

\"Per capita pure alcohol consumption in litres\"

`","pinned":false,"hidden":false,"mode":"ojs"},{"id":539,"value":"{\n const svg = html``\n \n const legend = d3.select(svg);\n yield legend.node();\n \n const legendScale = d3.scaleOrdinal()\n .domain([\"All\", \"Beer\", \"Wine\", \"Spirits\", \"Other\"])\n .range([\"#8da0cb\",\"#ffd92f\",\"#66c2a5\",\"#fc8d62\",\"#e5c494\"])\n\n const legendOrdinal = d3.legendColor()\n .orient(\"horizontal\")\n .shapeWidth(45)\n .shapePadding(5)\n .scale(legendScale);\n \n legend.attr(\"transform\",`translate(${width/2-130},0)`)\n .style(\"stroke\",\"purple\")\n .style(\"shape-rendering\",\"crispEdges\")\n .append(\"g\").call(legendOrdinal);\n }","pinned":false,"hidden":false,"mode":"ojs"},{"id":261,"value":"$30","pinned":false,"hidden":false,"mode":"ojs"},{"id":1099,"value":"$31","pinned":false,"hidden":false,"mode":"ojs"},{"id":1135,"value":"$32","pinned":false,"hidden":false,"mode":"ojs"},{"id":1078,"value":"html`

Some countries as shown below have very low alcohol consumption. The consumption levels range from zero to less than five litres per capita.\nThe low consumption levels are due to total government ban pertaining to religious or ethnic beliefs.

`","pinned":false,"hidden":false,"mode":"ojs"},{"id":1072,"value":"$33","pinned":false,"hidden":false,"mode":"ojs"},{"id":1158,"value":"html`

Patterns of consumption

The visualization also clearly confirms certain stereotypes, such as the French are to their wine as the Russians to their vodka.

- France's green bar indicating wine consumption higher than any other alcoholic beverage.
- Russia's vodka consumption indicated by the orange bars.\n
- Thailand's alcoholic beverage of choice being a local distilled spirit made from rice, called 'Lao khao'.\n

`","pinned":false,"hidden":false,"mode":"ojs"},{"id":1180,"value":"$34","pinned":false,"hidden":false,"mode":"ojs"},{"id":751,"value":"md`## Appendix`","pinned":false,"hidden":false,"mode":"ojs"},{"id":1184,"value":"pattern = nest.filter(d=>d.key=='France'||d.key=='Russian Federation'||d.key=='Thailand')","pinned":false,"hidden":false,"mode":"ojs"},{"id":1090,"value":"high = nest.filter(d=>d.key==\"Seychelles\"||d.key==\"Estonia\"||d.key==\"Lithuania\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":1060,"value":"low = nest.filter(d=>d.key=='Afghanistan' ||d.key=='Algeria'||d.key=='Bangladesh'||d.key=='Central African Republic'||d.key=='Chad'||d.key=='Comoros'||d.key=='Eritrea'||d.key=='Ethiopia'||d.key=='Ghana'||d.key=='Guatemala'||d.key=='Guinea'||d.key=='Jordan'||d.key=='Kuwait'||d.key=='Libya'||d.key=='Oman'||d.key=='Pakistan'||d.key=='Sudan'||d.key=='Nepal'||d.key=='Yemen')","pinned":false,"hidden":false,"mode":"ojs"},{"id":102,"value":"nest = d3.nest()\n .key(d=>d.Country)\n .entries(data)","pinned":false,"hidden":false,"mode":"ojs"},{"id":89,"value":"data = FileAttachment(\"alcohol.csv\").csv({typed: true})","pinned":false,"hidden":false,"mode":"ojs"},{"id":86,"value":"d3 = require(\"d3@5\", \"d3-svg-legend\")","pinned":false,"hidden":false,"mode":"ojs"}],"files":"$W35","stdlib":"1","titling":"auto"}