# Exemplo didático: duas cidades
cidades <- tibble::tribble(
~faixa_etaria, ~pop_A, ~obitos_A, ~taxa_A, ~pop_B, ~obitos_B, ~taxa_B,
"0–14 anos", 5000, 5, 1.0, 1500, 2, 1.3,
"15–49 anos", 3500, 7, 2.0, 2000, 4, 2.0,
"50–64 anos", 800, 8, 10.0, 3000, 30, 10.0,
"65+ anos", 700, 14, 20.0, 3500, 70, 20.0
)
# TBM calculada
tbm_a <- sum(cidades$obitos_A) / sum(cidades$pop_A) * 1000 # ~3.4
tbm_b <- sum(cidades$obitos_B) / sum(cidades$pop_B) * 1000 # ~10.6
tab_display <- cidades |>
mutate(
`Taxa A (‰)` = fmt_br(taxa_A),
`Taxa B (‰)` = fmt_br(taxa_B)
) |>
select(faixa_etaria, pop_A, obitos_A, `Taxa A (‰)`, pop_B, obitos_B, `Taxa B (‰)`)
names(tab_display) <- c("Faixa etária", "Pop A", "Óbitos A", "Taxa A (‰)",
"Pop B", "Óbitos B", "Taxa B (‰)")
tabela_indicador(tab_display, caption = glue(
"Cidade A: TBM = {fmt_br(tbm_a)}‰ | Cidade B: TBM = {fmt_br(tbm_b)}‰ — mas as taxas por faixa etária são praticamente iguais!"
))