5 Country profiles of the 2019 InCiSE results

This chapter provides an interactive summary of each country’s results from the 2019 edition of the InCiSE Index. For the selected country, the bar chart shows the country’s score for the overall InCiSE Index (in blue) compared to the InCiSE average (in orange) and that of all other countries. The ‘radar chart’ highlights the selected country’s scores for each of the 12 indicators (in blue) compared with the InCiSE average (in orange), this chart highlights where a country performs particularly well compared to the average and where further analysis or attention may be beneficial.

As discussed at the start of Chapter 4, all scores in the InCiSE results are relative, meaning that the highest scoring country is assigned 1.0 and the lowest scoring country is assigned 0.0. Assessment of a country is therefore relative to others included in the Index only, and not an absolute measure.

Weaker scores do not reflect a view on prioritisation within a country, but instead can highlight opportunities to learn from other countries.

Appendix C provides tables of the country scores for each indicator. More detailed results of country scores, including for the metrics which underlie each indicator result, can be found on the InCiSE website. Further details about the methodological approach, including the construction of each indicator, can be found in the Technical Report.

Key to reading country graphs

Each country section includes a figure with two charts: a bar chart on the left hand side showing the results of the InCiSE Index and a radar chart on the right hand side showing the results of the 12 indicators that make up the Index.

The bar chart on the left hand side of the figure shows the country’s overall score and ranking in the InCiSE Index. The country’s score is coloured in blue, the InCiSE average is coloured in orange, all other country scores are coloured in grey.

The radar chart on the right hand side of the figure shows the country’s scores for each of the 12 indicators. The centre of the radar indicates a score of 0 and the outer edge indicates a score of 1, so the further out a data point is from the centre the higher the country’s score. The country’s scores are coloured in blue, a point with a white centre is used to indicate where the data for that indicator has completely missing data and their result for that indicator is fully estimated using statistical imputation. The InCiSE average for each indicator is shown in orange.

Interactive content

The following content, including the charts and narrative, is interactive and may not be fully accessible, static versions of the country profiles are available in the Appendices to this report. Depending on your network connection it may take a few seconds for the charts to load properly.

When this page is first loaded one of the 38 countries covered by the InCiSE Index is selected at random, to change the selection either use the drop down menu or click on the country’s position in the bar chat.

Plot = import("https://cdn.jsdelivr.net/npm/@observablehq/plot/+esm")

/* source data */
narrative_data = FileAttachment("country_visuals/country_narratives.csv").csv({ "typed": true });
bar_data = FileAttachment("country_visuals/bar_data_index.csv").csv({ "typed": true });
radar_grid = FileAttachment("country_visuals/radar_grid.csv").csv({ "typed": true });
radar_axes = FileAttachment("country_visuals/radar_axes.csv").csv({ "typed": true });
radar_data = FileAttachment("country_visuals/radar_data_full.csv").csv({ "typed": true });
radar_imputed = FileAttachment("country_visuals/radar_imputed.csv").csv({ "typed": true });

/* country selectors */
country_codes =  [
  "AUS", "AUT", "BEL", "BGR", "CAN", "CHL", "HRV", "CZE", "DNK", "EST", "FIN",
  "FRA", "DEU", "GRC", "HUN", "ISL", "IRL", "ISR", "ITA", "JPN", "LVA", "LTU",
  "MEX", "NLD", "NZL", "NOR", "POL", "PRT", "ROU", "SVK", "SVN", "KOR", "ESP",
  "SWE", "CHE", "TUR", "GBR", "USA"
]

countries = [
  "Australia", "Austria", "Belgium", "Bulgaria", "Canada", "Chile", "Croatia",
  "Czechia", "Denmark", "Estonia", "Finland", "France", "Germany", "Greece",
  "Hungary", "Iceland", "Ireland", "Israel", "Italy", "Japan", "Latvia",
  "Lithuania", "Mexico", "Netherlands", "New Zealand", "Norway", "Poland",
  "Portugal", "Romania",  "Slovakia",  "Slovenia", "South Korea", "Spain",
  "Sweden", "Switzerland", "Turkey", "United Kingdom",
  "United States of America"
]

/* InCiSE data points */
incise_bar = bar_data.filter(function(df){
  return "InCiSE" == df.cc_iso3c
});

incise_radar = radar_data.filter(function(df){
  return "InCiSE" == df.cc_iso3c
});

set_val = function(input, value) {
  input.value = value;
  input.dispatchEvent(new Event("input"))
};

bar_plot.addEventListener("mousedown", (event) => {
  if (bar_plot.value != null) {
    if (bar_plot.value.cc_iso3c == "InCiSE") {
      return null
    }
    var sel_country = countries[country_codes.indexOf(bar_plot.value.cc_iso3c)]
    set_val(viewof usr_country, sel_country)
  }
});

set_val(viewof usr_country, countries[Math.floor(Math.random()*38)])

viewof usr_country = Inputs.select(
  countries,
  {label: "Select a country:", unique: true}
)

my_country = country_codes[countries.indexOf(usr_country)]

my_narrative = narrative_data.filter(function(df){
  return my_country == df.cc_iso3c
})[0];

country_bar = bar_data.filter(function(df){
  return my_country == df.cc_iso3c
});

country_radar = radar_data.filter(function(df){
  return my_country == df.cc_iso3c
});

country_impute = radar_imputed.filter(function(df){
  return my_country == df.cc_iso3c
});

html`<p class="lead">${my_narrative.lead_text}</p>`

bar_plot = Plot.plot({
  width: 300,
  height: 500,
  marginLeft: 75,
  style: {fontSize: 11},
  x: {label: null, grid: true, domain: [0, 1.4]},
  y: {label: null},
  marks: [
    Plot.barX(bar_data, {
      x: "value",
      y: "cc_iso3c",
      sort: {y: "x", reverse: true},
      fill: "#dddddd"
    }),
    Plot.barX(incise_bar, {
      x: "value",
      y: "cc_iso3c",
      sort: {y: "x", reverse: true},
      fill: "#C4622D"
    }),
    Plot.barX(country_bar, {
      x: "value",
      y: "cc_iso3c",
      sort: {y: "x", reverse: true},
      fill: "#00629B"
    }),
    Plot.text(incise_bar, {
      x: (d) => d.value + 0.05,
      y: "cc_iso3c",
      text: "hover_label",
      fill: "#C4622D",
      fontWeight: "600",
      textAnchor: "start",
      sort: {y: "x", reverse: true}
    }),
    Plot.text(country_bar, {
      x: (d) => d.value + 0.05,
      y: "cc_iso3c",
      text: "hover_label",
      fill: "#00629B",
      fontWeight: "600",
      textAnchor: "start",
      sort: {y: "x", reverse: true}
    }),
    Plot.tip(bar_data,
      Plot.pointerY({
        x: "value",
        y: "cc_iso3c",
        filter: (d) => d.hover_label,
        title: (d) => d.hover_label,
        frameAnchor: "left"
      })
    )
  ]
});

chart_curve = "catmull-rom-closed"

radar_plot = Plot.plot({
  width: 500,
  height: 500,
  style: {fontSize: 11},
  x: {domain: [-1.5, 1.5], label: "", axis: null},
  y: {domain: [-1.5, 1.5], label: "", axis: null},
  marks: [
    Plot.line(radar_grid, {
      x: "grid_x",
      y: "grid_y",
      z: "grid",
      stroke: "#dddddd",
      curve: chart_curve
    }),
    Plot.link(radar_axes, {
      x1: 0,
      y1: 0,
      x2: "axis_x",
      y2: "axis_y",
      z: "indicator",
      stroke: "#dddddd",
      curve: "linear"
    }),
    Plot.line(country_radar, {
      x: "new_x",
      y: "new_y",
      fill: "#cce0eb33",
      strokeWidth: 2,
      curve: chart_curve
    }),
    Plot.line(incise_radar, {
      x: "new_x",
      y: "new_y",
      stroke: "#C4622D",
      strokeWidth: 2,
      curve: chart_curve
    }),
    Plot.dot(incise_radar, {
      x: "new_x",
      y: "new_y",
      fill: "#C4622D",
      symbol: "circle-stroke",
      strokeWidth: 2
    }),
    Plot.line(country_radar, {
      x: "new_x",
      y: "new_y",
      stroke: "#00629B",
      strokeWidth: 2,
      curve: chart_curve
    }),
    Plot.dot(country_radar, {
      x: "new_x",
      y: "new_y",
      radius: 3,
      fill: "#00629B",
      symbol: "circle-stroke",
      strokeWidth: 2
    }),
    Plot.dot(country_impute, {
      x: "new_x",
      y: "new_y",
      radius: 3,
      stroke: "#00629B",
      fill: "#ffffff",
      symbol: "circle-stroke",
      strokeWidth: 2
    }),
    Plot.text(radar_axes, {
      x: "label_x",
      y: "label_y",
      text: "indicator"
    }),
    Plot.tip(country_radar,
      Plot.pointer({
        x: "new_x",
        y: "new_y",
        filter: (d) => d.data_label,
        title: (d) => d.data_label
      })
    )
  ]
});

chart_curve = "catmull-rom-closed"

html`<p>${my_narrative.body_text}</p>`

Cross-referencing note

html`The content for ${usr_country} was presented as ${my_narrative.xref_note} in the original 2019 publication.`