Diagnóstico Vale do Rio Cuiabá

1 Área Plantada

1.1 Inputs

1.1.1 Escolha o Consórcio

library(shiny)

# Criando a Segmentação de Dados com relação aos Consórcios de desenvolvimento econômico de Mato Grosso
 selectInput("regiao", label = "Escolha a Região: ", choices = unique(senar$regiao), selected = "Região VIII")

Escolha a Região:

Região VIII Região X Região V Região VI Região IX Região VII Região II Região I Região III Região IV NA

SENAR - TESTE

📜 Observações

MAPA SISTEMA FAMATO COM AS DIVISÕES PARA AS 10 REGIÕEs

1.2 row

1.2.1 📊 Gráfico dos produtos com maior Área plantada(hectares), em Mato Grosso (PAM)

renderPlot({
  
   filter(area_plantadag, consorcio == input$consorcio) %>%
    ggplot(., aes(x=produto, y = area_plantada,fill= produto)) +
    geom_bar(stat="identity",position = position_dodge(width = 1),width= 0.25)+
    geom_text(aes(label=area_plantada), color="black",
            position = position_dodge(0.5),size=4,vjust=0,hjust=0.5)+
    
   ylab("Área Plantada(hectares)") +
   xlab("Consórcio") +
   theme_minimal()
   
   })

1.2.2 📈 Tabela Área Plantada PAM

1.3 Column

1.3.1 🌎 Mapa com os Indicadores dos produtos com maior Área plantada(hectares), em Mato Grosso (PAM)

library(dplyr)
library(RColorBrewer)
library(rgdal)
library(readr)
library(descr)


pal <- colorNumeric(
  palette = "Accent",
  domain = municipiosmt$cores)
municipiosmt$labels <- paste0("<strong> Municipio: </strong>", 
                     municipiosmt$nome, 
                      "<br><strong> Região Sistema FAMATO: </strong>", 
                     municipiosmt$regiao,
                     "<br><strong> Área Plantada de Soja: </strong>", 
                     municipiosmt$soja)%>%
  
             lapply(htmltools::HTML)

leaflet(municipiosmt) %>%
    addTiles() %>% 
   

  addPolygons(fillColor = ~pal(municipiosmt$cores), 
              smoothFactor = 0.5,
              fillOpacity = 0.8,
              weight = 1,
               color = "white",
               label = ~labels,
              highlight = highlightOptions(
      color = "white",
      bringToFront = TRUE
              ))