Last active
August 9, 2022 20:55
-
-
Save fernandobarbalho/40f7e6c0cf925065e21084062e5ad513 to your computer and use it in GitHub Desktop.
script para leitura e tratamento de tabela do ibama sobre oleamento de praias do NE
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tabulizer) | |
| library(dplyr) | |
| setwd("~/GitHub/oleogate/data") | |
| #Extrai tabelas do arquivo pdf. | |
| #Esse arquivo foi baixado do seguinte link | |
| # https://politica.estadao.com.br/blogs/estadao-verifica/wp-content/uploads/sites/690/2019/10/Ibama.pdf | |
| #A tabela é extraída para um arquivo csv de forma a poder trabalhar melhor questões de encoding | |
| tabulizer::extract_tables("ibama.pdf", output = "csv",outdir = getwd()) | |
| library(readr) | |
| #lê o arquivo já com o formato de encoding apropriado | |
| ibama <- read_csv("ibama-2.csv", locale = locale(encoding = "LATIN1")) | |
| devtools::install_github("laresbernardo/lares") | |
| library(lares) | |
| library(stringr) | |
| library(rlang) | |
| names(ibama)[1]<- "Localidade" | |
| names(ibama)[2]<-"Municipio" | |
| names(ibama)[3]<-"data_avistamento" | |
| names(ibama)[4]<-"uf" | |
| #Converte tudo em maíusculo e faz limpeza de texto para facilitar joins com outras tabelas | |
| ibama$Municipio<- str_to_upper(cleanText(ibama$Municipio)) | |
| ibama$Localidade<- str_to_upper(cleanText(ibama$Localidade)) | |
| #Corrige nomenclatura de alguns municípios | |
| ibama[ibama$Municipio== "PORTO DE PEDRA",2]<- "PORTO DE PEDRAS" | |
| ibama[ibama$Municipio== "CEARAMIRIM",2]<- "CEARA-MIRIM" | |
| #Corrige UFs de alguns municípios | |
| ibama[ibama$Municipio== "SAO CRISTOVAO",4]<- "SE" | |
| ibama[ibama$Municipio== "SIRINHAEM",4]<- "PE" | |
| ibama[ibama$Municipio== "ILHA GRANDE",4]<- "PI" |
Boa. Vou fazer também uma outra atualização e aproveito e faço o ReadMe.
Obrigado pela sugestão.
…________________________________
From: Emmanuel G. Brandão <notifications@github.com>
Sent: Tuesday, October 29, 2019 1:56 PM
To: fernandobarbalho <fernandobarbalho@noreply.github.com>
Cc: Fernando Almeida Barbalho <fbarbalho@hotmail.com>; Author <author@noreply.github.com>
Subject: Re: fernandobarbalho/gist:40f7e6c0cf925065e21084062e5ad513
Seria interessante gerar um ReadMe sobre como rodar
—
You are receiving this because you authored the thread.
Reply to this email directly, view it on GitHub<https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fgist.github.com%2F40f7e6c0cf925065e21084062e5ad513%3Femail_source%3Dnotifications%26email_token%3DAJTCFI4STV2N46R5MS7XLQTQRA6KVA5CNFSM4JGI7BU2YY3PNVWWK3TUL52HS4DFVNDWS43UINXW23LFNZ2KUY3PNVWWK3TUL5UWJTQAF3J4Y%23gistcomment-3068876&data=02%7C01%7C%7Cf09b82ed284042fb5baa08d75c77dda9%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637079542190667229&sdata=9u3LQOJAkhpItxIMDXuSs3Ipy2AR6wquSvkJWQzE65c%3D&reserved=0>, or unsubscribe<https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fgithub.com%2Fnotifications%2Funsubscribe-auth%2FAJTCFI4JCSJVSE2ZP7CXMHDQRA6KVANCNFSM4JGI7BUQ&data=02%7C01%7C%7Cf09b82ed284042fb5baa08d75c77dda9%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637079542190667229&sdata=2D5Dc946nMNmAynh9R9IOgjF15C3HX8vT3YL%2FTM%2BGtg%3D&reserved=0>.
Muito legal, Fernando! Seu gist me inspirou: https://gist.github.com/kguidonimartins/31859e480d5ba4163510f50f28e9171b
Que massa Karlo. Ficou muito bom!
Parabéns!!!
…________________________________
From: Karlo Guidoni Martins <notifications@github.com>
Sent: Wednesday, October 30, 2019 3:17 AM
To: fernandobarbalho <fernandobarbalho@noreply.github.com>
Cc: Fernando Almeida Barbalho <fbarbalho@hotmail.com>; Author <author@noreply.github.com>
Subject: Re: fernandobarbalho/gist:40f7e6c0cf925065e21084062e5ad513
Muito legal, Fernando! Seu gist me inspirou: https://gist.github.com/kguidonimartins/31859e480d5ba4163510f50f28e9171b<https://apc01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fgist.github.com%2Fkguidonimartins%2F31859e480d5ba4163510f50f28e9171b&data=02%7C01%7C%7C98c784da9ab340bf458c08d75ce7b16c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637080022489085091&sdata=k5FE0zvxezrl0VH0gDk4sh96zyW9QwIZyWeXOgi6a%2FQ%3D&reserved=0>
—
You are receiving this because you authored the thread.
Reply to this email directly, view it on GitHub<https://apc01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fgist.github.com%2F40f7e6c0cf925065e21084062e5ad513%3Femail_source%3Dnotifications%26email_token%3DAJTCFIZINZPOKJXV5FKOWGTQRD4ENA5CNFSM4JGI7BU2YY3PNVWWK3TUL52HS4DFVNDWS43UINXW23LFNZ2KUY3PNVWWK3TUL5UWJTQAF3LCW%23gistcomment-3069483&data=02%7C01%7C%7C98c784da9ab340bf458c08d75ce7b16c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637080022489095102&sdata=P9wvPL%2FFJ%2FWJAF12YfNIzdzWjjvLu%2FyBwimns3hRqg0%3D&reserved=0>, or unsubscribe<https://apc01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fgithub.com%2Fnotifications%2Funsubscribe-auth%2FAJTCFI3ETCYVAS32ZWOEOE3QRD4ENANCNFSM4JGI7BUQ&data=02%7C01%7C%7C98c784da9ab340bf458c08d75ce7b16c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637080022489105101&sdata=CCO8Dmgn0bimv3P5khHNwooCZqKYMhiNiUA1q83iFkc%3D&reserved=0>.
Acredito que Ilha dos Poldros é no MA mesmo e não PI.
Acredito que Ilha dos Poldros é no MA mesmo e não PI.
Olá, não vi referência a Ilha dos Poldros no script. A alteração que é feita é a de Ilha Grande.
Olá, não vi referência a Ilha dos Poldros no script. A alteração que é feita é a de Ilha Grande.
Sim, a linha toda é:
Ilha dos Poldros, Ilha Grande, 2019-09-20, MA, 02° 44' 49.04" S, 41° 48' 08.11" W, 2019-09-28, Óleo - Não Observado
Olá, não vi referência a Ilha dos Poldros no script. A alteração que é feita é a de Ilha Grande.
Sim, a linha toda é:
Ilha dos Poldros, Ilha Grande, 2019-09-20, MA, 02° 44' 49.04" S, 41° 48' 08.11" W, 2019-09-28, Óleo - Não Observado
Entendi. O join entre as tabelas do ibge e do ibama é pelo município e não pela localidade. A tabela do IBAMA indica que a ilha dos Poldros fica no município de Ilha Grande. As pesquisas que eu fiz indicam que esse município fica no Piauí no Delta do Parnaíba, na fronteira com o Maranhão, daí eu fiz a alteração. Agora fica a dúvida se o que está errado é a localidade ou o município.
Provavelmente o município se acreditamos nas posições. (Fiz a checagem por elas.)
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Seria interessante gerar um ReadMe sobre como rodar