# Valores aproximados baseados em SIM/DATASUS e Rouquayrol & Gurgel, 2017
# Ordens de grandeza para ilustrar a transição — consulte fontes originais para dados exatos
mp_historica <- tibble::tribble(
~periodo, ~infecciosas, ~cardiovasculares, ~neoplasias, ~externas, ~outras,
"1930", 46, 12, 3, 3, 36,
"1950", 36, 15, 5, 4, 40,
"1970", 16, 25, 8, 8, 43,
"1990", 6, 34, 12, 13, 35,
"2000", 5, 32, 14, 13, 36,
"2010", 4, 29, 16, 13, 38,
"2020", 4, 27, 17, 10, 42
)
mp_long <- mp_historica |>
pivot_longer(-periodo, names_to = "causa", values_to = "proporcao") |>
mutate(causa = case_match(causa,
"infecciosas" ~ "Infecciosas e parasitárias",
"cardiovasculares" ~ "Cardiovasculares",
"neoplasias" ~ "Neoplasias",
"externas" ~ "Causas externas",
"outras" ~ "Outras causas"
)) |>
mutate(causa = factor(causa, levels = c(
"Infecciosas e parasitárias", "Cardiovasculares",
"Neoplasias", "Causas externas", "Outras causas"
)))
ggplot(mp_long, aes(x = periodo, y = proporcao, fill = causa, group = causa)) +
geom_area(alpha = 0.8) +
scale_fill_manual(values = c(
"Infecciosas e parasitárias" = "#1b9e77",
"Cardiovasculares" = "#d95f02",
"Neoplasias" = "#7570b3",
"Causas externas" = "#e7298a",
"Outras causas" = "#cccccc"
)) +
labs(
title = "Transição epidemiológica brasileira (1930–2020)",
subtitle = "Queda das infecciosas, ascensão das DCNT e das causas externas",
x = "Período", y = "Mortalidade proporcional (%)", fill = "Grupo de causas",
caption = "Fonte: SIM/DATASUS; Rouquayrol & Gurgel, 2017 (valores aproximados — não usar como estatística oficial)"
) +
tema_indicadores()