Dva pogleda na birokraciju

viewof nisk_controls = Inputs.form({
  b: Inputs.range([0.4, 1.6], {value: 1.0, step: 0.1, width: 260, label: "Nagib koristi b"}),
  c: Inputs.range([1, 6], {value: 3, step: 0.5, width: 260, label: "Granični trošak c"})
})

{
  const a = 10;
  const b = nisk_controls.b, c = nisk_controls.c;
  const Qstar = (a - c) / b;
  const Qnisk = 2 * Qstar;
  const Qmax = Math.max(Qnisk * 1.15, (a / b) * 0.98);
  const MB = (Q) => a - b * Q;
  const grid = d3.range(0, Qmax + 0.01, Qmax / 200);
  const mbLine = grid.map(Q => ({Q, y: MB(Q)})).filter(d => d.y >= 0);
  return Plot.plot({
    width: 720, height: 304,
    marginLeft: 56, marginRight: 28, marginTop: 26, marginBottom: 44,
    style: {fontSize: "12px", fontFamily: "Public Sans, system-ui, sans-serif", color: "#3A332D", background: "transparent"},
    x: {label: "Količina javne usluge / proračun (Q) →", domain: [0, Qmax]},
    y: {label: "↑ Granična korist i trošak (€)", domain: [0, a * 1.05]},
    marks: [
      Plot.rectX([{x1: Qstar, x2: Qnisk}], {x1: "x1", x2: "x2", y1: 0, y2: a * 1.05, fill: "#C53030", fillOpacity: 0.07}),
      Plot.line(mbLine, {x: "Q", y: "y", stroke: "#2D5A8E", strokeWidth: 2.5}),
      Plot.ruleY([c], {stroke: "#1C7C54", strokeWidth: 2}),
      Plot.ruleX([Qstar], {y1: 0, y2: c, stroke: "#6B6357", strokeDasharray: "4,3"}),
      Plot.ruleX([Qnisk], {y1: 0, y2: Math.max(MB(Qnisk), 0), stroke: "#6B6357", strokeDasharray: "4,3"}),
      Plot.dot([{Q: Qstar, y: c}], {x: "Q", y: "y", r: 5, fill: "#1C1916", stroke: "white", strokeWidth: 2}),
      Plot.text([{Q: Qstar, y: c}], {x: "Q", y: "y", text: ["Q* (učinkovito)"], fill: "#1C1916", fontSize: 12, fontWeight: 700, dy: -12, dx: -4, textAnchor: "end"}),
      Plot.text([{Q: Qnisk, y: 0.55}], {x: "Q", y: "y", text: ["Qₙ (maksimizacija proračuna)"], fill: "#C53030", fontSize: 12, fontWeight: 700, dx: -6, textAnchor: "end"}),
      Plot.text([{Q: Qmax * 0.15, y: MB(Qmax * 0.15) + 0.5}], {x: "Q", y: "y", text: ["granična korist"], fill: "#2D5A8E", fontSize: 11, textAnchor: "start"}),
      Plot.text([{Q: Qmax * 0.78, y: c + 0.5}], {x: "Q", y: "y", text: ["granični trošak"], fill: "#1C7C54", fontSize: 11, textAnchor: "start"})
    ]
  });
}

{
  const data = [
    {z:"Norveška", v:30.1, grp:"ostalo"},
    {z:"Švedska", v:28.1, grp:"ostalo"},
    {z:"Danska", v:27.3, grp:"ostalo"},
    {z:"Finska", v:25.2, grp:"ostalo"},
    {z:"Hrvatska", v:22.8, grp:"HR"},
    {z:"Francuska", v:20.7, grp:"ostalo"},
    {z:"Italija", v:13.7, grp:"ostalo"},
    {z:"Njemačka", v:11.5, grp:"ostalo"},
    {z:"Japan", v:4.9, grp:"ostalo"}
  ];
  return Plot.plot({
    width: 880, height: 420, marginLeft: 90, marginRight: 54, marginTop: 28, marginBottom: 46,
    style: {fontSize: "13px", fontFamily: "Public Sans, system-ui, sans-serif", color: "#3A332D", background: "transparent"},
    x: {label: "Zaposleni u općoj državi (% ukupne zaposlenosti) →", domain: [0, 33], grid: true},
    y: {label: null, domain: data.map(d => d.z)},
    color: {domain: ["ostalo","HR"], range: ["#4A5568","#C8942D"]},
    marks: [
      Plot.barX(data, {x: "v", y: "z", fill: "grp", tip: true}),
      Plot.ruleX([18.4], {stroke: "#8C8C8C", strokeDasharray: "5,4", strokeWidth: 1.5}),
      Plot.text([{z: "Norveška"}], {x: 18.4, y: "z", text: ["OECD 18,4 %"], dy: -12, dx: 4, textAnchor: "start", fontSize: 10, fill: "#6B6357"}),
      Plot.text(data, {x: "v", y: "z", text: d => d.v.toFixed(1).replace(".", ","), dx: 4, textAnchor: "start", fontSize: 10, fill: "#3A332D"})
    ]
  });
}