Tutorial Leaflet - Mapas Interativos com Dados Meteorológicos do Brasil e INMET

202401GeoRINMETR Leitura de mapas Brasil e dados meteorologicos 29102024 rmlist ls requiresf requireraster requiresp requiregeobr Leitura dos mapas do Brasil Obter dados do INMET Instituto Nacional de Meteorologia requireBrazilMet Mapa das estacoes INMET estacoes seestationsinfo UF readstatecodestateall year2020 saveUF file BrasilUFRData loadBrasilUFRData UF asUF Spatial UF spTransformUF CRSprojlonglat ellpsWGS84 Desenha o mapa do Brasil com as coordenadas das estacoes parmarc0000 plotUF bordergrey withestacoes pointsxLongitude yLatitude pch19 colblue cex05 202402leafletRmd title O pacote Leaflet author Mateus Melo date 27012022 output htmldocument r setup includeFALSE knitroptschunksetecho TRUE httpsrgraphgallerycompackageleaflethtml requireleaflet requireleafletextras requiredplyr requiresp requirespData requiresf requireviridis Criar paletas de cores requireleafsync Sincronizar os leaflets dir getwd setwddir Leaflet e a base de dados de Boston Importando a base de dados r Import Importando base dados readcsvbostoncorrectedcsvsep Diferentes formas de adicionar camadas O pacote leaflet funciona com base em camadas Cada camada e adicionada a um widget objeto de mapa e adiciona diferentes atributos Vamos comecar passo a passo r Leaflet Criando o Widget de mapa vazio mapa leaflet mapa Adicionando os tiles OpenStreetMap padrao mapa leaflet addTiles mapa Adicionando pontos de interesse O recorte do zoom da area eh definido automaticamente com base nas coordenandas dos pontos mapa leaflet addTiles addMarkerslng dadosLON lat dadosLAT mapa Criando um mapa a partir de um data frame Adicionando circulos ao inves de Markers df dataframeLONG dadosLON LAT dadosLAT headdf mapa leafletdf addTiles addCircleslng LONG lat LAT mapa Alterando alguns parametros de customizacao O pacote possui uma gama enorme de customizacao Desde o mapa ate icones praticamente tudo pode ser customizado Vamos testar agora alguns parametros para mudar a cara do nosso mapa r Customizacao LeafletOptions Checar documentacao Configurando zoom minimo maximo e ponto inicial mapa leafletdata df options leafletOptionsminZoom 2 maxZoom 15 setViewlng 710589 lat 423601 zoom 12 addTiles addCircleslng LONG lat LAT mapa Mudando mapa base Checar opcoes em httpleafletextrasgithubioleafletproviderspreviewindexhtml mapa leafletdata df options leafletOptionsminZoom 8 maxZoom 10 setViewlng 710589 lat 423601 zoom 12 addTiles addCircleslng LONG lat LAT addProviderTilesOpenTopoMap providersOpenTopoMap mapa Desenhando polígonos Sr1 Polygoncbindc2 4 4 1 2 c2 3 5 4 2 Sr2 Polygoncbindc5 4 2 5 c2 3 2 2 Sr3 Polygoncbindc4 4 5 10 4 c5 3 2 5 5 Sr4 Polygoncbindc5 6 6 5 5 c4 4 3 3 4 hole TRUE Srs1 PolygonslistSr1 s1 Srs2 PolygonslistSr2 s2 Srs3 PolygonslistSr4 Sr3 s34 SpP SpatialPolygonslistSrs1 Srs2 Srs3 13 mapa leafletdata df addTiles addPolygonsdata SpP addProviderTilesprovidersOpenTopoMap mapa Visualização da base de dados Agora vamos aplicar o pacote para a visualizacao das informacoes que a base de dados nos fornece O primeiro passo e decidir qual variavel queremos visualizar r AnaliseBoston Qual variavel queremos analisar resposta dadosPTRATIO Criando uma paleta de cores Para consulta httpswwwdatanoviacomenblogtoprcolorpalettestoknowforgreatdatavisualization pal colorNumericviridis domain rangeresposta Criando o mapa mapa leafletdados addTiles addCircleMarkers color palresposta radius 2 Podemos ou fixar um tamanho do raio dos círculos ou fazêlo variar de acordo com o valor da variável observada radius resposta fillOpacity 1 addLegendpal pal values resposta opacity 1 title mapa Podemos perceber que apesar de nos apresentar todos os dados a aglomeracao e distanciamento de alguns pontos acaba nao facilitando nossa visualizacao E se tentarmos usar ao inves de pontos uma area contínua Como ficaria os dados em um heatmap r Heatmap E um heatmap Utilizando o pacote leafletextras mapa leafletdados addTiles addHeatmapradius 8 mapa Um heatmap nao nos traz muita informacao pois apenas indica o local da observação Ele nao nos fornece valores de variaveis Choropleth maps Uma outra alternativa para visualizacao entao passa a ser um mapa com areas interativas Agora vamos ver como fazer um mapa no estilo Choropleth utilizando dados georreferenciados ShapefilesGeoJSON etc r choropleth Importando um arquivo espacial ShapeFile Referências para encontrar arquivos georreferenciados httpsforestgiscomdownloaddeshapefiles httpswwwcdcgovepiinfosupportdownloadsshapefileshtml httpshubarcgiscomsearch bostontr readOGRsystemfileshapesbostontractsshp packagespData1 bostontr streadsystemfileshapesbostontractsshp packagespData1 bostontr asUF bostontr Visualizando um shapefile mapa leafletbostontr addTiles addPolygons mapa Qual variavel queremos analisar resposta dadosMEDV Adicionando cores e labels pal colorNumericviridis domain rangeresposta labels paste0uniquedadosTOWN resposta Gerando mapa mapa leafletbostontr addTiles addPolygons opacity 2 weight 1 color white fillColor palresposta fillOpacity 1 highlight highlightOptionsweight 2color black label labels mapa Adicionando legenda mapa addLegendpal pal values resposta opacity 07 title Resposta Agora que ja conseguimos gerar varios mapas interativos podemos utilizar um dos modelos de visualizacao da literatura lecionado na disciplina de visualizacao de dados para analisarmos melhor os dados em conjunto Iremos utilizar um pacote para gerar uma visualizacao de Pequenos Multiplos Pessoalmente acho que a parte mais bacana da visualizacao de dados e que ela consegue gerar varios insights que as vezes nao podem ser percebidos apenas com dados e regressoes e mais importante ainda ela pode ajudar a levantar duvidas e questoes que tambem podem passar despercebidas r PeqsMultiplos MEDV resposta dadosMEDV pal colorNumericviridis domain rangeresposta labels paste0uniquedadosTOWN resposta mapaMEDV leafletbostontr addTiles addPolygons opacity 2 weight 1color white fillColor palresposta fillOpacity 1 highlight highlightOptions weight 2 color black label labels addLegendpal pal values resposta opacity 07 title MEDV LSTAT resposta dadosLSTAT pal colorNumericviridis domain rangeresposta labels paste0uniquedadosTOWN resposta mapaLSTAT leafletbostontr addTiles addPolygons opacity 2 weight 1color white fillColor palresposta fillOpacity 1 highlight highlightOptions weight 2 color black label labels addLegendpal pal values resposta opacity 07 title LSTAT PTRATIO resposta dadosPTRATIO pal colorNumericviridis domain rangeresposta labels paste0uniquedadosTOWN resposta mapaPTRATIO leafletbostontr addTiles addPolygons opacity 2 weight 1color white fillColor palresposta fillOpacity 1 highlight highlightOptions weight 2 color black label labels addLegendpal pal values resposta opacity 07 title PTRATIO B resposta dadosB pal colorNumericviridis domain rangeresposta labels paste0uniquedadosTOWN resposta mapaB leafletbostontr addTiles addPolygons opacity 2 weight 1color white fillColor palresposta fillOpacity 1 highlight highlightOptions weight 2 color black label labels addLegendpal pal values resposta opacity 07 title B CRIM resposta dadosCRIM pal colorNumericviridis domain rangeresposta labels paste0uniquedadosTOWN resposta mapaCRIM leafletbostontr addTiles addPolygons opacity 2 weight 1color white fillColor palresposta fillOpacity 1 highlight highlightOptions weight 2 color black label labels addLegendpal pal values resposta opacity 07 title CRIM NOX resposta dadosNOX pal colorNumericviridis domain rangeresposta labels paste0uniquedadosTOWN resposta mapaNOX leafletbostontr addTiles addPolygons opacity 2 weight 1color white fillColor palresposta fillOpacity 1 highlight highlightOptions weight 2 color black label labels addLegendpal pal values resposta opacity 07 title NOX leafsyncsyncmapaMEDV mapaLSTAT mapaB mapaPTRATIO mapaCRIM mapaNOX ncol 3 202403leafletshinyR Utilizando o leaflet no shiny httpsrstudiogithubioleafletshinyhtml visto em 27012022 libraryshiny libraryleaflet Leitura dos dados dados readcsvbostoncorrectedcsvsep df dataframeLONG dadosLON LAT dadosLAT Gerando cores em codigos RGB rcolors rgbtcol2rgbcolors 255 namesrcolors colors ui fluidPage leafletOutputmymap p actionButtonrecalc New points server functioninput output session points eventReactiveinputrecalc valores aleatorios de latitudes e longitudes dataframeLAT rnorm40 2 13 LONG rnorm40 48 ignoreNULL FALSE outputmymap renderLeaflet mapa leafletpoints addTiles addCircleslng LONG lat LAT addProviderTilesOpenTopoMap shinyAppui server 202404plotlyShinyNaoReativoR libraryshiny libraryplotly httpsplotlycomr datamtcars ui fluidPage headerPanelExemplo sidebarPanel selectInputxcolX Variable namesmtcars selectInputycolY Variable namesmtcars mainPanel plotlyOutputplot server functioninput output outputplot renderPlotly plot1 plotly x mtcarsinputxcol y mtcarsinputycol type scatter mode markers shinyAppuiserver 202405plotlyShinyR libraryshiny libraryplotly httpsplotlycomr datamtcars ui fluidPage headerPanelExample sidebarPanel selectInputxcolX Variable namesmtcars selectInputycolY Variable namesmtcars mainPanel plotlyOutputplot server functioninput output x reactive mtcarsinputxcol y reactive mtcarsinputycol outputplot renderPlotly plot1 plotly x x y y type scatter mode markers shinyAppui server 2024leafletshinyR Utilizando o leaflet no shiny httpsrstudiogithubioleafletshinyhtml visto em 27012022 libraryshiny libraryleaflet Gerando cores em codigos RGB rcolors rgbtcol2rgbcolors 255 namesrcolors colors ui fluidPage leafletOutputmymap p actionButtonrecalc New points server functioninput output session points eventReactiveinputrecalc valores aleatorios de latitudes e longitudes cbindrnorm40 2 13 rnorm40 48 ignoreNULL FALSE outputmymap renderLeaflet leaflet addProviderTilesprovidersStamenTonerLite options providerTileOptionsnoWrap TRUE addMarkersdata points shinyAppui server