31:T46d,Plot.plot({ width: width, title: "Trust In National Government", subtitle: "Country facets are ordered by whose citiens — overall — have trusted the national government the most over the years.", caption: md`OECD (2024), **[Trust in government](https://data.oecd.org/gga/trust-in-government.htm)** _(indicator)_. doi: 10.1787/1de9675e-en _(Accessed on 06 April 2024)_`, color: { label: "Trust (% of Population)", percent: true, legend: true, scheme: "PuBuGn" }, x: { axis: "bottom" }, y: { label: null, domain: [0, 100], percent: true, grid: true, ticks: [0, 50, 100] }, facet: { label: null }, fx: { axis: null, padding: 0.03 }, fy: { axis: null }, marks: [ Plot.areaY(trustInNationalGovernment, { x: "year", y: "trust", fill: "trust", color: "#00000000", z: "null", fx: (d) => fx(d.country), fy: (d) => fy(d.country), strokeWidth: 0.5, curve: "catmull-rom", tip: true }), Plot.text(keys, { fx, fy, frameAnchor: "top-left", dx: 6, dy: 6 }), Plot.frame({ strokeWidth: 0.5 }) ] })32:T78d,trustInNationalGovernment = ( await ( await R(` tig <- jsonlite::fromJSON("https://stats.oecd.org/sdmx-json/data/DP_LIVE/.TRUSTGOV.TOT.PC.A/OECD?json-lang=en&dimensionAtObservation=allDimensions&startPeriod=2006&endPeriod=2022") tig_countries <- tig$structure$dimensions$observation$values[[1]]$name tig_years <- tig$structure$dimensions$observation$values[[6]]$name sapply(tig$dataSets$observations, \\(.x) .x[[1]][1]) |> enframe() |> mutate( country = tig_countries[as.integer(stri_match_first_regex(name, "^([[:digit:]]+):")[,2])+1], year = as.Date(tig_years[as.integer(stri_match_last_regex(name, ":([[:digit:]]+)$")[,2])+1] %s+% "-01-01") ) |> arrange(country, year) |> select(year, country, value) |> complete(year, country) |> group_by(country) |> fill(value, .direction = "updown") |> ungroup() -> trust_df pop <- jsonlite::fromJSON("https://stats.oecd.org/sdmx-json/data/DP_LIVE/.POP.TOT.MLN_PER.A/OECD?json-lang=en&dimensionAtObservation=allDimensions&startPeriod=2006&endPeriod=2022") pop_countries <- pop$structure$dimensions$observation$values[[1]]$name pop_years <- pop$structure$dimensions$observation$values[[6]]$name sapply(pop$dataSets$observations, \\(.x) .x[[1]][1]) |> enframe() |> mutate( country = pop_countries[as.integer(stri_match_first_regex(name, "^([[:digit:]]+):")[,2])+1], year = as.Date(pop_years[as.integer(stri_match_last_regex(name, ":([[:digit:]]+)$")[,2])+1] %s+% "-01-01") ) |> rename(population_m = value) |> select(year, country, population_m) -> pop_df trust_df |> left_join(pop_df, c("year", "country")) |> rename(trust = value) |> mutate( trust = trust/100, year = as.character(year), country = fct_reorder(country, trust, sum) |> fct_rev() ) |> arrange(country, year) |> mutate( country = as.character(country) ) `) ).toD3() ).map((d) => { d.year = new Date(d.year); return d; })33:[] 2f:{"title":"2024 30-Day Chart Challenge • Day 06 • OECD","cells":[{"id":0,"value":"# 2024 30-Day Chart Challenge • Day 06 • OECD","pinned":false,"hidden":false,"mode":"md"},{"id":6,"value":"html`⏳ WebR is loading…`","pinned":false,"hidden":false,"mode":"ojs"},{"id":146,"value":"The OECD [Trust in government](https://data.oecd.org/gga/trust-in-government.htm) indicator refers to the share of people who report having confidence in the national government. The data shown reflect the share of respondents answering _“yes”_ (the other response categories being _“no”_, and _“don’t know”_) to the survey question: _“In this country, do you have confidence in… national government?\"_. The sample is ex ante designed to be nationally representative of the population aged 15 and over. This indicator is measured as a percentage of all survey respondents.\n\nSince the OECD has a generous CORS policy, I've embedded WebR into the notebook so it can do all the data wrangling in situ.","pinned":false,"hidden":false,"mode":"md"},{"id":66,"value":"$31","pinned":false,"hidden":false,"mode":"ojs"},{"id":198,"value":"

","pinned":false,"hidden":false,"mode":"html"},{"id":162,"value":"viewof selectedYear = Inputs.range([2006, 2021], {\n label: \"Select Year\",\n step: 1\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":167,"value":"Plot.plot({\n width: width,\n height: width * 0.8,\n title: `Trust vs. Population (${selectedYear})`,\n x: {\n grid: true,\n label: \"Population (millions)\"\n },\n y: {\n domain: [0, 100],\n percent: true,\n grid: true,\n label: \"Trust (% Population)\"\n },\n marks: [\n Plot.dot(\n trustInNationalGovernment.filter(\n (d) => d.year.getFullYear() == selectedYear\n ),\n { x: \"population_m\", y: \"trust\", title: \"country\", tip: true }\n )\n ]\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":202,"value":"Plot.plot({\n width: width,\n title: \"Trust In National Government\",\n subtitle:\n \"Country boxplot trust score distributions are ordered by whose citiens — overall — have trusted the national government the most over the years.\",\n caption: md`OECD (2024), **[Trust in government](https://data.oecd.org/gga/trust-in-government.htm)** _(indicator)_. doi: 10.1787/1de9675e-en _(Accessed on 06 April 2024)_`,\n marginLeft: 120,\n x: {\n grid: true,\n label: \"Trust (% of Population)\",\n percent: true,\n domain: [0, 100],\n axis: \"both\",\n labelAnchor: \"right\"\n },\n y: {\n label: null,\n domain: keys\n },\n marks: [\n Plot.boxX(trustInNationalGovernment, {\n x: \"trust\",\n y: \"country\",\n fill: \"steelblue\"\n })\n ]\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":102,"value":"fy = (key) => Math.floor(index.get(key) / nCols)","pinned":false,"hidden":false,"mode":"ojs"},{"id":98,"value":"fx = (key) => index.get(key) % nCols","pinned":false,"hidden":false,"mode":"ojs"},{"id":96,"value":"index = new Map(keys.map((key, i) => [key, i]))","pinned":false,"hidden":false,"mode":"ojs"},{"id":93,"value":"keys = _.uniq(trustInNationalGovernment.map((d) => d.country))","pinned":false,"hidden":false,"mode":"ojs"},{"id":90,"value":"nCols = 4","pinned":false,"hidden":false,"mode":"ojs"},{"id":20,"value":"$32","pinned":false,"hidden":false,"mode":"ojs"},{"id":46,"value":"async function R(strings, ...values) {\n const [options] = values;\n\n let result = \"\";\n for (let i = 0; i < strings.length; i++) {\n result += strings[i];\n }\n\n let tmp;\n if (options === undefined) {\n tmp = await webR.evalR(result);\n if (typeof tmp == \"function\") return tmp;\n } else {\n tmp = await webR.evalR(result, options);\n }\n\n return Promise.resolve(tmp);\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":4,"value":"webR = {\n const { WebR, ChannelType } = await import(\n \"https://webr.r-wasm.org/v0.3.1/webr.mjs\"\n );\n\n const intWebR = new WebR({\n channelType: ChannelType.PostMessage,\n interactive: false\n });\n\n await intWebR.init();\n\n // Things seem to work better if you load the pkgs here\n\n await intWebR.installPackages(\n [\"jsonlite\", \"tibble\", \"forcats\", \"dplyr\", \"tidyr\", \"stringi\"],\n true\n );\n\n await intWebR.evalRVoid(`\nlibrary(tibble)\nlibrary(forcats)\nlibrary(dplyr)\nlibrary(tidyr)\nlibrary(stringi)\n`);\n\n document.querySelector(\"#loader\").innerText = \"🟢\";\n document.querySelector(\"#msg\").innerText = \"WebR loaded!\";\n\n return intWebR;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":8,"value":"import { style } from \"@hrbrmstr/hrbrthemes\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":11,"value":"html`${style}`","pinned":false,"hidden":false,"mode":"ojs"}],"files":"$W33","stdlib":"1","titling":"auto"}