# Dados de referência internacional — ONU World Population Prospects 2022
# Valores verificados no relatório WPP 2022 (https://population.un.org/wpp/)
tft_paises <- tibble::tribble(
~pais, ~tft, ~grupo, ~fonte,
"Níger", 6.7, "Alta fecundidade", "WPP 2022",
"Nigéria", 5.1, "Alta fecundidade", "WPP 2022",
"Índia", 2.0, "Próximo à reposição", "WPP 2022",
"EUA", 1.6, "Abaixo da reposição", "WPP 2022",
"Brasil", 1.6, "Abaixo da reposição", "IBGE 2018",
"Canadá", 1.4, "Abaixo da reposição", "WPP 2022",
"Japão", 1.3, "Muito baixa", "WPP 2022",
"Coreia do Sul", 0.8, "Muito baixa", "WPP 2022"
)
ggplot(tft_paises, aes(x = reorder(pais, tft), y = tft, fill = grupo)) +
geom_col(width = 0.7) +
geom_hline(yintercept = 2.1, linetype = "dashed", color = "#333", linewidth = 0.6) +
geom_text(aes(label = fmt_br(tft)), hjust = -0.2, size = 3.5) +
coord_flip() +
scale_fill_manual(values = c(
"Alta fecundidade" = "#d95f02",
"Próximo à reposição" = "#66a61e",
"Abaixo da reposição" = "#2c7fb8",
"Muito baixa" = "#e31a1c"
)) +
scale_y_continuous(limits = c(0, 8)) +
labs(
title = "Fecundidade global: um panorama desigual",
subtitle = "Linha tracejada = nível de reposição (2,1)",
x = NULL, y = "TFT (filhos por mulher)", fill = "Classificação",
caption = "Fonte: ONU — World Population Prospects 2022; Brasil: IBGE Projeções 2018"
) +
tema_indicadores()