Capítulo 10 Grupo 9 - Armazéns e sua importância para a agricultura brasileira

Andressa Quirino Cayres, Cleisson Pereira de Oliveira, Isadora Araujo Lima, Maria Graciela Garcia de Perales, Taís Mara Ambrust

Os armazéns são de extrema importância para o agronegócio brasileiro e para os agricultores, visto que essas são estruturas mais viáveis por economizar no transporte dos grãos essenciais para manter a qualidade e segurança dos produtos, até que sejam comercializados. De todo modo, é importante lembrar que, caso estes demorem a ser levados para os mercados ou para as indústrias corre o risco de deles serem perdidos e prejudicar tanto o produtor, quanto ao mercador. Outra solução que tem sido muito importante para os produtores rurais é os silos bolsas ou estruturas temporárias que podem ser mais econômicas para produtores que não tem capital ou volume de produção suficiente para construir sua estrutura própria. Para utilizar os silos os produtos precisam estar secos para serem guardados e o produtor precisa arcar com todos esses custos.

Podemos levar em conta que essa modalidade tem mais probabilidade de o produto ser atacado por animais e pragas. Sendo então, os principais objetivos da armazenagem de produtos agrícolas é permitir um fornecimento uniforme de alimentos ao longo do ano, tanto para atendimento do mercado interno quanto para a exportação; assegurar um estoque de segurança para os períodos de contingências, tais como secas e inundações; facilitar a negociação de melhores preços, tanto no território nacional quanto no mercado de exportação, proporcionando maior estabilidade de preços e de mercados; reduzir os custos de frete, com a comercialização do produto em épocas de menor oferta e de maior demanda, permitindo uma melhor remuneração ao produtor; permitir ao produtor aguardar melhores oportunidades para comercialização da produção.

Os silos proporcionam um ambiente controlado para o armazenamento dos grãos e outros produtos agrícolas, dessa forma os agricultores mantêm a qualidade dos produtos ao longo do tempo permitindo aproveitar o momento ideal para a comercialização, ou seja, quando os preços estiverem favoráveis. Uma das principais vantagens dos silos é a capacidade de reduzir as perdas pós colheita, que podem ocorrer devido à umidade. Ao armazenar os produtos adequadamente, os produtores têm menos perdas e garante um bom retorno financeiro. Além dos benefícios econômicos os armazéns também contribuem para a sustentabilidade ambiental, essas estruturas ajudam a preservar os recursos naturais utilizados na produção agrícola, como água, solo e energia.

Ao selecionar um silo agrícola para sua operação agrícola, os agricultores precisam considerar vários fatores para garantir que escolham a opção mais adequada. Fatores como o tipo de cultura ou material a ser armazenado, a capacidade de armazenamento necessária, o espaço disponível na fazenda e as restrições orçamentárias desempenham um papel significativo na determinação do silo certo para o trabalho. Os agricultores também devem avaliar as condições climáticas de sua região para escolher um silo que ofereça proteção adequada contra elementos climáticos como chuva, neve e temperaturas extremas. Além disso, considerar a facilidade de carga e descarga de materiais do silo, bem como os requisitos de manutenção, é essencial para garantir o bom funcionamento e a longevidade da estrutura de armazenagem.

Portanto, os silos agrícolas são indispensáveis para as práticas agrícolas nos dias atuais, favorecendo aos agricultores uma solução confiável e eficiente para armazenar e preservar seus produtos. Ao compreender os diferentes tipos de silos disponíveis, seus benefícios e as principaisconsiderações para a seleção, os agricultores podem tomar decisões informadas que aumentam sua eficiência operacional e contribuem para o sucesso geral de seus empreendimentos agrícolas.

A tabela apresentada a seguir, mostra dados de armazenagem agrícola temporária para diversos produtos, como abacaxi, alho em casca, arroz em casca, amendoim em casca, batata-inglesa e abóbora moranga. A tabela indica a quantidade de cada produto armazenado em diferentes estabelecimentos. Isso é crucial para entender a capacidade de armazenamento disponível e planejar a logística de distribuição. Os valores numéricos ajudam a monitorar os níveis de estoque, identificar produtos com excesso ou falta de armazenamento e tomar decisões informadas sobre reabastecimento ou redistribuição.

Em relação à armazenagem agrícola, podemos fazer algumas observações:

• Distribuição dos Produtos: A dispersão dos pontos pode indicar como diferentes produtos agrícolas se comportam em relação aos fatores representados pelos eixos. Isso pode ajudar a identificar quais produtos têm características semelhantes e podem ser armazenados juntos. • Agrupamentos: Se houver muitos pontos juntos , isso pode sugerir que certos produtos compartilham condições de armazenamento semelhantes, como temperatura e umidade. • Identificação de Outliers: Produtos que estão isolados no gráfico podem requerer condições de armazenamento especiais, diferentes da maioria. • Planejamento de Armazenagem: Com base na análise dos eixos, pode-se otimizar o uso de armazéns, agrupando produtos com necessidades semelhantes e melhorando a eficiência do armazenamento.

options(timeout=600)

Tabela 6957 - Produção, Valor da produção, Venda, Valor da venda e Área colhida da lavoura temporária nos estabelecimentos agropecuários, por tipologia, produtos da lavoura temporária, condição do produtor em relação às terras e grupos de atividade econômica

A - Número de estabelecimentos agropecuários com lavoura temporária (Unidades)

tabela6957A <- 
  jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6957/n6/all/v/10084/p/all/c829/46304/c226/113869/c218/46502/c12517/111519")

colnames(tabela6957A) <- tabela6957A[1,]

tabela6957A <- tabela6957A[-1,]

tabela.sidra <- 
    tabela6957A |>
      dplyr::select(`Município (Código)`, Município, `Valor`) |> 
      dplyr::rename(`Estabelecimentos com lavoura temporária` = Valor)

B - Valor da produção das lavouras temporárias (Mil Reais)

tabela6957B <- 
  jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6957/n6/all/v/10087/p/all/c829/46304/c226/4844,4847,4851,4857,96608,96609,111671,111672,111673/c218/46502/c12517/111519/d/v10087%200")

tabela6957B <- tabela6957B |> 
  dplyr::bind_rows(
    jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6957/n6/all/v/10087/p/all/c829/46304/c226/4860,4861,4862,4864,111674,111675,111676,111677,111685/c218/46502/c12517/111519/d/v10087%200")
  )

tabela6957B <- tabela6957B |> 
  dplyr::bind_rows(
    jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6957/n6/all/v/10087/p/all/c829/46304/c226/4869,4872,4876,4879,4882,4884,4885,111678,111679/c218/46502/c12517/111519/d/v10087%200")
  )

tabela6957B <- tabela6957B |> 
  dplyr::bind_rows(
    jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6957/n6/all/v/10087/p/all/c829/46304/c226/4886,4887,4888,4895,4896,4897,4898,4901,111680/c218/46502/c12517/111519/d/v10087%200")
  )

tabela6957B <- tabela6957B |> 
  dplyr::bind_rows(
    jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6957/n6/all/v/10087/p/all/c829/46304/c226/4893,4906,4907,4909,4910,111681,111682,111683,111684/c218/46502/c12517/111519/d/v10087%200")
  )

tabela6957B <- tabela6957B |> 
  dplyr::bind_rows(
    jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6957/n6/all/v/10087/p/all/c829/46304/c226/111686,111687,111688,111689,111690,111691,111692,111693,111694/c218/46502/c12517/111519/d/v10087%200")
  )

colnames(tabela6957B) <- tabela6957B[1,]

tabela6957B <- tabela6957B |>
      dplyr::filter(Valor != "Valor") |> 
      dplyr::select(`Município (Código)`, Município, `Produtos da lavoura temporária`, `Valor`) |> 
      tidyr::pivot_wider(names_from = `Produtos da lavoura temporária`,values_from = Valor)

tabela.sidra <- 
  tabela.sidra |> 
  dplyr::full_join(
    tabela6957B
  )

Tabela 6899 - Número de estabelecimentos agropecuários que realizaram despesas e Valor das despesas realizadas pelos estabelecimentos agropecuários, por tipologia, tipo de despesa, condição do produtor em relação às terras e grupos de atividade econômica

tabela6899 <- 
  jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6899/n6/all/v/1996/p/all/c829/46304/c210/111972/c218/46502/c12517/111519/d/v1996%200")
colnames(tabela6899) <- tabela6899[1,]

tabela6899 <- tabela6899[-1,]

tabela.sidra <-
  tabela.sidra |> 
  dplyr::full_join(
    tabela6899 |>
      dplyr::select(`Município (Código)`, Município, `Valor`) |> 
      dplyr::rename(`Despesas com transporte` = Valor)
  )

Tabela 6867 - Número de estabelecimentos agropecuários com unidades armazenadoras, Número de unidades armazenadoras nos estabelecimentos agropecuários e Capacidade das unidades armazenadoras, por tipologia, tipo de unidade armazenadora, condição do produtor em relação às terras e grupos de atividade econômica

A - Número de estabelecimentos agropecuários com unidades armazenadoras (Unidades) / Armazéns convencionais e estruturais

tabela6867A <- 
  jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6867/n6/all/v/10113/p/all/c829/46304/c166/40683/c218/46502/c12517/111519")
colnames(tabela6867A) <- tabela6867A[1,]

tabela6867A <- tabela6867A[-1,]

tabela.sidra <- 
  tabela.sidra |> 
  dplyr::full_join(
    tabela6867A |>
      dplyr::select(`Município (Código)`, Município, `Valor`) |> 
      dplyr::rename(`Armazéns convencionais e estruturais` = Valor)
  )

B - Número de estabelecimentos agropecuários com unidades armazenadoras (Unidades) / Infláveis

tabela6867B <- 
  jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6867/n6/all/v/10113/p/all/c829/46304/c166/40684/c218/46502/c12517/111519")
colnames(tabela6867B) <- tabela6867B[1,]

tabela6867B <- tabela6867B[-1,]

tabela.sidra <- 
  tabela.sidra |> 
  dplyr::full_join(
    tabela6867B |>
      dplyr::select(`Município (Código)`, Município, `Valor`) |> 
      dplyr::rename(`Armazéns Infláveis` = Valor)
  )

C - Número de estabelecimentos agropecuários com unidades armazenadoras (Unidades) / Armazéns graneleiros e granelizados

tabela6867C <- 
  jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6867/n6/all/v/10113/p/all/c829/46304/c166/3067/c218/46502/c12517/111519")
colnames(tabela6867C) <- tabela6867C[1,]

tabela6867C <- tabela6867C[-1,]

tabela.sidra <- 
  tabela.sidra |> 
  dplyr::full_join(
    tabela6867C |>
      dplyr::select(`Município (Código)`, Município, `Valor`) |> 
      dplyr::rename(`Armazéns graneleiros e granelizados` = Valor)
  )

D - Número de estabelecimentos agropecuários com unidades armazenadoras (Unidades) / Silos

tabela6867D <- 
  jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6867/n6/all/v/10113/p/all/c829/46304/c166/3327/c218/46502/c12517/111519")
colnames(tabela6867D) <- tabela6867D[1,]

tabela6867D <- tabela6867D[-1,]

tabela.sidra <- 
  tabela.sidra |> 
  dplyr::full_join(
    tabela6867D |>
      dplyr::select(`Município (Código)`, Município, `Valor`) |> 
      dplyr::rename(`Silos` = Valor)
  )

E - Capacidade das unidades armazenadoras (Toneladas) / Armazéns convencionais e estruturais

tabela6867E <- 
  jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6867/n6/all/v/9561/p/all/c829/46304/c166/40683/c218/46502/c12517/111519/d/v9561%200")
colnames(tabela6867E) <- tabela6867E[1,]

tabela6867E <- tabela6867E[-1,]

tabela.sidra <- 
  tabela.sidra |> 
  dplyr::full_join(
    tabela6867E |>
      dplyr::select(`Município (Código)`, Município, `Valor`) |> 
      dplyr::rename(`Capacidade Armazéns convencionais e estruturais` = Valor)
  )

F - Capacidade das unidades armazenadoras (Toneladas) / Infláveis

tabela6867F <- 
  jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6867/n6/all/v/9561/p/all/c829/46304/c166/40684/c218/46502/c12517/111519/d/v9561%200")
colnames(tabela6867F) <- tabela6867F[1,]

tabela6867F <- tabela6867F[-1,]

tabela.sidra <- 
  tabela.sidra |> 
  dplyr::full_join(
    tabela6867F |>
      dplyr::select(`Município (Código)`, Município, `Valor`) |> 
      dplyr::rename(`Capacidade Armazéns Infláveis` = Valor)
  )

G - Capacidade das unidades armazenadoras (Toneladas) / Armazéns graneleiros e granelizados

tabela6867G <- 
  jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6867/n6/all/v/9561/p/all/c829/46304/c166/3067/c218/46502/c12517/111519/d/v9561%200")
colnames(tabela6867G) <- tabela6867G[1,]

tabela6867G <- tabela6867G[-1,]

tabela.sidra <- 
  tabela.sidra |> 
  dplyr::full_join(
    tabela6867G |>
      dplyr::select(`Município (Código)`, Município, `Valor`) |> 
      dplyr::rename(`Capacidade Armazéns graneleiros e granelizados` = Valor)
  )

H - Capacidade das unidades armazenadoras (Toneladas) / Silos

tabela6867H <- 
  jsonlite::fromJSON("https://apisidra.ibge.gov.br/values/t/6867/n6/all/v/9561/p/all/c829/46304/c166/3327/c218/46502/c12517/111519/d/v9561%200")
colnames(tabela6867H) <- tabela6867H[1,]

tabela6867H <- tabela6867H[-1,]

tabela.sidra <- 
  tabela.sidra |> 
  dplyr::full_join(
    tabela6867H |>
      dplyr::select(`Município (Código)`, Município, `Valor`) |> 
      dplyr::rename(`Capacidade Silos` = Valor)
  )
tabela.sidra <- 
  tabela.sidra |>
  dplyr::mutate(dplyr::across(.cols = c(-1, -2),.fns = ~ as.numeric(.x))) 

teste <- tabela.sidra[,-c(1:2)] |> janitor::remove_empty()

teste[is.na(teste)] <- 0

teste$`Sementes de arroz (produzidas para plantio)` <- NULL

DT::datatable(teste |> janitor::adorn_totals(where = "col"))

dados_censo.hel <- vegan::decostand(x = teste, method = "hellinger")

sps.dis <- vegan::vegdist(x = dados_censo.hel, method = "bray")

# O cálculo das coordenadas principais leva em torno de 60 minutos

if (file.exists("pcoa.sps.RDS")) {
  pcoa.sps <- readr::read_rds("pcoa.sps.rds")
} else {
  pcoa.sps <- ape::pcoa(D = sps.dis, correction = "cailliez")
  saveRDS(pcoa.sps, "pcoa.sps.RDS")
}
pcoa.dat <- as.data.frame(pcoa.sps$vectors[, 1:2])

biplot.geral <- 
  ggplot2::ggplot(pcoa.dat, ggplot2::aes(x = Axis.1, y = Axis.2)) +
  ggplot2::geom_point(size = 2, alpha = 0.9) + 
  ggplot2::scale_shape_manual(values = c(21, 22, 23, 24)) + 
  ggplot2::labs(x = "Eixo 1", y = "Eixo 2") + 
  ggplot2::geom_hline(yintercept = 0, linetype = 2) + 
  ggplot2::geom_vline(xintercept = 0, linetype = 2) +
  ggplot2::geom_abline()+
  ggplot2::geom_abline(slope = -1)+ 
  ggplot2::theme(legend.position="bottom")

biplot.geral
Distribuição bidirecional dos municípios brasileiros de acordo com o número de estabelecimentos com lavouras temporárias, volume e capacidade do armazenamento por tipo

Figura 10.1: Distribuição bidirecional dos municípios brasileiros de acordo com o número de estabelecimentos com lavouras temporárias, volume e capacidade do armazenamento por tipo

O gráfico de dispersão bidimensional mostra a seguir diversos produtos agrícolas, como Arroz em casca, Feijão verde e Milho forrageiro, Ervilha em grão, Batata Inglesa dentre outros, representado contra dois eixos rotulados como ‘Eixo 1’ e ‘Eixo 2’. Esses eixos podem representar componentes principais ou outros fatores em uma análise multivariada. Os pontos no gráfico são coloridos, provavelmente representando diferentes categorias dentro dos dados. Esse tipo de visualização é útil para identificar padrões, correlações ou agrupamentos entre os produtos agrícolas com base nos fatores plotados.

pcoa.wa <- vegan::wascores(x = pcoa.dat, w = dados_censo.hel) |> 
  as.data.frame()

options(ggrepel.max.overlaps = 500)
biplot.wa <- 
  pcoa.wa |> 
  ggplot2::ggplot(ggplot2::aes(x = Axis.1, y = Axis.2, text = rownames(pcoa.wa))) +
  ggrepel::geom_label_repel(ggplot2::aes(label = rownames(pcoa.wa),
                                         # vjust=-1.2, hjust=1.5,
                                         color = rownames(pcoa.wa)),
                            label.size = NA,
                            fill = NA,
                            size = 3,
                            show.legend = FALSE,
                            force = TRUE)+
  ggplot2::geom_point(size = 2, alpha = 0.7) + 
  ggplot2::labs(x = "Eixo 1", y = "Eixo 2") + 
  ggplot2::geom_hline(yintercept = 0, linetype = 2) + 
  ggplot2::geom_vline(xintercept = 0, linetype = 2) 
  # ggplot2::xlim(-0.25, 0.25)+
  # ggplot2::ylim(-0.2, 0.2)+
  # ggplot2::theme(legend.position="bottom")

biplot.wa
Associação entre o volume de produção de lavouras temporárias, o número e a capacidade das unidades armazenadoras

Figura 10.2: Associação entre o volume de produção de lavouras temporárias, o número e a capacidade das unidades armazenadoras

Nota do professor: A figura 10.2 demonstra a correlação representada pela aproximação entre os pontos. A variável “Estabelecimentos com lavoura temporária” é aquela mais fortemente relacionado com o Eixo 1. Pode-se observar que o número de estabelecimentos com “Armazéns infláveis”, “Silos” e “Armazéns convencionais estruturais” está correlacionado com o número de estabelecimentos. Pode-se afirmar que a produção de “Sorgo forrageiro” é que mais está relacionada com o número de estabelecimentos. Já no que se refere à capacidade de armazenagem, observa-se que a “Capacidade de Armazéns Graneleiros e Granelizados” está opostamente relacionada com o número de estabelecimentos com lavoura temporária. Esse dado indica que os municipios com menor número de estabelecimentos são aqueles que apresentam as maiores capacidades de armazenagem. Nesse quadrante encontram as produções de “Soja em grão”, uma das principais culturas do agronegócio brasileiro.

plotly::ggplotly(biplot.wa, tooltip = "text")