A segurança alimentar é um tema que afeta diretamente a qualidade de vida da população. Ela está relacionada à capacidade das pessoas de terem acesso regular a alimentos suficientes e de qualidade para atender às suas necessidades básicas. Apesar dos avanços observados em diversas áreas, muitas famílias ainda enfrentam dificuldades cada vez mais relevantes para pesquisadores e gestores públicos.
A análise dos níveis de segurança alimentar permite compreender melhor a realidade social e econômica da população, identificando grupos mais vulneráveis e regiões que enfrentam maiores dificuldades de acesso aos alimentos. Além disso, o uso de dados estatísticos possibilita transformar informações em conhecimento, contribuindo para a avaliação de políticas públicas e para a elaboração de estratégias de combate à fome e à desigualdade.
Dessa forma, este trabalho busca analisar indicadores relacionados à segurança alimentar por meio de dados disponibilizados pelo SIDRA/IBGE, permitindo uma visão mais ampla sobre a situação da população e a importância do acompanhamento contínuo desse tema para a promoção do bem-estar social.
O script abaixo é dividido em 4 etapas: primeiro, ele une os dados do módulo de Segurança Alimentar da PNAD 2013 com os resultados analíticos da POF 2017-2018, que são os dois marcos do IBGE para a década de 2010; segundo, ele converte a tabela larga original em formato longo usando pivot_longer ( ), permitindo que o ggplot2 mapeie as diferentes categorias de segurança em uma única coluna empilhada; terceiro, ele define cores lógicas (verde para a segurança, tons quentes e sóbrios para os níveis de insegurança crescente) de modo a tornar o gráfico autoexplicativo; por último, o resultado final ilustra visualmente o severo recuo da segurança alimentar (que caiu de 77,4% para 63,3% dos lares) e o salto correspondente em todos os níveis de insegurança alimentar no Brasil ao final da década. O script utiliza os pacotes do tidyverse para organizar os dados e gerar um gráfico de barras empilhadas (100%), que é o modelo ideal para observar como a proporção de lares com segurança alimentar caiu e a de insegurança cresceu no período.
# 1. Compilação dos pacotes necessários
library(dplyr)Warning: pacote 'dplyr' foi compilado no R versão 4.5.3
Anexando pacote: 'dplyr'Os seguintes objetos são mascarados por 'package:stats':
filter, lagOs seguintes objetos são mascarados por 'package:base':
intersect, setdiff, setequal, unionlibrary(ggplot2)Warning: pacote 'ggplot2' foi compilado no R versão 4.5.3library(tidyr)Warning: pacote 'tidyr' foi compilado no R versão 4.5.3# 2. Estruturar os dados oficiais do IBGE (PNAD 2013 e POF 2017-2018)
# Unidade de medida: Percentual (%) de domicílios particulares do Brasil
dados_ia <- data.frame(
Ano = c("2013 (PNAD)", "2017-2018 (POF)"),
`Segurança Alimentar` = c(77.4, 63.3),
`Insegurança Leve` = c(14.8, 24.0),
`Insegurança Moderada` = c(4.6, 8.1),
`Insegurança Grave` = c(3.2, 4.6),
check.names = FALSE
)
# 3. Pivotar os dados para o formato 'long' (necessário para o ggplot2)
dados_longos <- dados_ia %>%
pivot_longer(
cols = -Ano,
names_to = "Status",
values_to = "Percentual"
) %>%
# Fixar a ordem das categorias para fazer sentido na escala de severidade
mutate(Status = factor(Status, levels = c(
"Insegurança Grave",
"Insegurança Moderada",
"Insegurança Leve",
"Segurança Alimentar"
)))
# 4. Criar o gráfico comparativo
ggplot(dados_longos, aes(x = Ano, y = Percentual, fill = Status)) +
geom_bar(stat = "identity", width = 0.5, color = "white", size = 0.3) +
# Adicionar rótulos com os valores percentuais dentro das barras
geom_text(
aes(label = paste0(Percentual, "%")),
position = position_stack(vjust = 0.5),
size = 4,
fontface = "bold",
color = "white"
) +
# Utilizar uma paleta de cores intuitiva (estilo semáforo/alerta)
scale_fill_manual(
values = c(
"Segurança Alimentar" = "#2ca02c", # Verde
"Insegurança Leve" = "#ff7f0e", # Laranja claro
"Insegurança Moderada" = "#d62728", # Vermelho
"Insegurança Grave" = "#7f7f7f" # Cinza escuro/Crítico
)
) +
# Customização de títulos e eixos
labs(
title = "Evolução da Insegurança Alimentar nos Domicílios Brasileiros",
subtitle = "Comparativo da década de 2010 a partir dos dados do IBGE (PNAD vs POF)",
x = "Período da Pesquisa",
y = "Percentual de Domicílios (%)",
fill = "Situação do Lar"
) +
# Aplicar um tema visual limpo e moderno
theme_minimal(base_size = 10) +
theme(
plot.title = element_text(face = "bold", size = 12, hjust = 0.5),
plot.subtitle = element_text(size = 11, hjust = 0.5, color = "gray30"),
legend.position = "bottom",
panel.grid.major.x = element_blank(),
axis.text = element_text(color = "black", face = "bold")
)Warning in geom_bar(stat = "identity", width = 0.5, color = "white", size =
0.3): Ignoring unknown parameters: `size`
A década de 2010 marcou uma transição crucial para a segurança alimentar, caracterizada por uma primeira metade de conquistas históricas, seguida por uma reversão de tendências e aumento drástico da fome na segunda metade da década. Ao analisar a PNAD 2013, a subalimentação atingia 3,2% da população nacional. Em 2014, o Brasil saiu do Mapa da Fome da Organização das Nações Unidas para Alimentação e a Agricultura (FAO). A queda acentuada nos indices de pobreza e extrema pobreza foi impulsionada por programas de transferência de renda (como o Bolsa Família), valorização real do salário mínimo, e forte fomento à agricultura familiar. A partir de 2015, o cenário mudou drásticamente. A crise econômica brasileira, combinada à redução gradual e ao desmonte de políticas sociais integradas, levou a estagnação e ao aumento expressivo da insegurança alimentar. A POF 2017-2018 aponta que a insegurança alimentar voltou a crescer, atingindo níveis alarmantes, com 4,6% de Insegurança Grave, um aumento de quase 50% em relação a PNAD 2013. Dessa forma, fica evidente o problema do acesso financeiro à alimentação, prejudicado pelo desemprego, inflação dos alimentos e queda na renda das famílias vulneráveis.