# Fonte: SINAN/SVS/Ministério da Saúde — Série histórica de casos prováveis
# Fontes: Boletins Epidemiológicos SVS e Agência Brasil (consolidação final 2024)
# Casos em milhares; população IBGE projeções; incidência calculada
dengue <- tibble::tribble(
~ano, ~casos_mil, ~pop_milhoes, ~incidencia,
2010, 1012, 190.7, 530.6,
2011, 739, 192.4, 384.1,
2012, 590, 194.0, 304.1,
2013, 1455, 195.5, 744.2,
2014, 589, 197.0, 299.0,
2015, 1689, 198.4, 851.3,
2016, 1484, 199.8, 742.7,
2017, 253, 201.0, 125.9,
2018, 216, 202.2, 106.8,
2019, 1545, 203.2, 760.3,
2020, 988, 204.1, 484.1,
2021, 544, 204.9, 265.5,
2022, 1451, 205.5, 706.1,
2023, 1659, 206.0, 805.3,
2024, 6485, 206.5, 3140.9
)
ggplot(dengue, aes(x = ano, y = incidencia)) +
geom_col(fill = ifelse(dengue$incidencia > 700, cores_indicadores["perigo"],
cores_indicadores["destaque"]),
alpha = 0.8, width = 0.8) +
scale_x_continuous(breaks = dengue$ano) +
scale_y_continuous(labels = label_number(big.mark = ".")) +
labs(
title = "Padrão epidêmico da dengue no Brasil",
subtitle = "Grandes surtos cíclicos — 2024 bateu recorde com >6,4 milhões de casos",
x = "Ano", y = "Incidência (por 100 mil hab.)",
caption = "Fonte: SINAN/SVS/Ministério da Saúde (2024 = dados preliminares)"
) +
tema_indicadores() +
theme(axis.text.x = element_text(angle = 45, hjust = 1))