Exemplo: quanto custa um imposto?

Modelo de post interativo: texto, gráfico que responde ao leitor e espaço para embutir um app Shiny.

Este é um post de demonstração

Ele mostra o que dá para fazer num post do novo site. O gráfico abaixo roda no navegador do leitor, sem servidor, com Observable JS (já embutido no Quarto). No fim há o modelo para embutir apps do seu servidor Shiny.

Num mercado competitivo, um imposto por unidade abre uma cunha entre o preço pago pelo consumidor e o recebido pelo produtor. A quantidade cai, e parte do excedente simplesmente desaparece: é o peso morto do imposto. Mexa nos controles para ver como a elasticidade das curvas muda quem paga a conta.

viewof t  = Inputs.range([0, 6], {value: 2, step: 0.1, label: "Imposto por unidade (R$)"})
viewof bd = Inputs.range([0.3, 3], {value: 1, step: 0.1, label: "Inclinação da demanda"})
viewof bs = Inputs.range([0.3, 3], {value: 1, step: 0.1, label: "Inclinação da oferta"})

qt  = Math.max(0, (10 - t) / (bd + bs))
q0  = 10 / (bd + bs)
pc  = 12 - bd * qt          // preço pago pelo consumidor
pp  = 2 + bs * qt           // preço recebido pelo produtor
p0  = 12 - bd * q0
qmax = 12 / bd
curvas = d3.range(0, Math.min(qmax, 14) + 0.01, 0.05).flatMap(q => [
  {q, p: 12 - bd * q, curva: "Demanda"},
  {q, p: 2 + bs * q,  curva: "Oferta"}
]).filter(d => d.p >= 0 && d.p <= 14)

Plot.plot({
  height: 380, marginLeft: 50,
  x: {label: "Quantidade →", domain: [0, 12]},
  y: {label: "↑ Preço (R$)", domain: [0, 14]},
  color: {legend: true, domain: ["Demanda", "Oferta"], range: ["#0f5c63", "#b4562f"]},
  marks: [
    Plot.areaY([{q: qt, p1: pp, p2: pc}, {q: q0, p1: p0, p2: p0}], {x: "q", y1: "p1", y2: "p2", fill: "#b4562f", fillOpacity: 0.25}),
    Plot.rectY([{x1: 0, x2: qt, y1: pp, y2: pc}], {x1: "x1", x2: "x2", y1: "y1", y2: "y2", fill: "#0f5c63", fillOpacity: 0.12}),
    Plot.line(curvas, {x: "q", y: "p", stroke: "curva", strokeWidth: 2.5}),
    Plot.ruleY([pc, pp], {x1: 0, x2: qt, strokeDasharray: "4,3", strokeOpacity: 0.6}),
    Plot.dot([{q: q0, p: p0}], {x: "q", y: "p", r: 4, fill: "currentColor"}),
    Plot.text([{q: qt, p: pc}], {x: "q", y: "p", text: d => `consumidor paga R$ ${brl(pc)}`, dx: 8, textAnchor: "start"}),
    Plot.text([{q: qt, p: pp}], {x: "q", y: "p", text: d => `produtor recebe R$ ${brl(pp)}`, dx: 8, dy: 10, textAnchor: "start"}),
    Plot.ruleY([0])
  ]
})

brl = x => x.toLocaleString('pt-BR', {minimumFractionDigits: 2, maximumFractionDigits: 2})
receita = t * qt
pesoMorto = 0.5 * t * (q0 - qt)
parteConsumidor = t > 0 ? (pc - p0) / t : bs / (bd + bs)
md`| | |
|---|---|
| Arrecadação | **R$ ${brl(receita)}** |
| Peso morto (perda pura) | **R$ ${brl(pesoMorto)}** |
| Parcela do imposto paga pelo consumidor | **${(100 * parteConsumidor).toFixed(0)}%** |`

Repare: quanto mais inclinada (menos elástica) a demanda, maior a fatia do imposto que recai sobre o consumidor, e menor o peso morto.

Embutindo um app Shiny do seu servidor

Para um app que já roda no seu servidor, basta uma linha no post:

<iframe src="https://SEU-SERVIDOR/shiny/nome-do-app/" style="width:100%; height:700px; border:0"></iframe>

Nota

Os endereços antigos (data.thomasvconti.com.br/shiny/...) estão fora do ar. Quando você me passar o endereço atual do servidor, troco este bloco por um app de verdade.