Shiny APP of th Endangered Fauna from Brazil

• The data are based on the Official List 2020 of the Environment Ministery of the Brazilian Government.
• The Brazilian government concerns species threatened with extinction, overexploitation, unsustainable, and - with negative consequences that, sooner or later, will be harmful from the point of view economic, social or environmental.
• This problem requires specific recovery policies for both terrestrial and aquatic fauna and flora.
• More information can be obtained from: http://dados.mma.gov.br/dataset/especies-ameacadas

Shiny APP of th Endangered Fauna from Brazil

• Shiny application shows the interactive graphics about Brazil’ Fauna.
• I published my app on the website: https://www.shinyapps.io/admin/#/application/5211110 with URL https://natureza.shinyapps.io/Developing_Data_Products/
• But if you can’t access this because I haven’t the Shiny’ professional profile, I published the files ui.R and server.R on the github’ URL: https://github.com/rodricar/Developing-Data-Products
• The next slides I put the initials steps to download and read the file with its structure.

Downloading and Reading the File (Code)

library(tidyverse)

fileUrl <- "http://dados.mma.gov.br/dataset/41a79b71-445f-4a6a-8c70-d46af991292a/resource/1f13b062-f3f6-4198-a4c5-3581548bebec/download/lista-de-especies-ameacas-2020.csv"

setwd("C:/Users/Rejane/Documents/Cursos_R/Developing_Data_Products/")

download.file(fileUrl, 
              destfile = "lista-de-especies-ameacas-2020.csv", 
              method = "auto")

endangered_species <- data.table::fread("lista-de-especies-ameacas-2020.csv",                                           encoding = "UTF-8") %>%
janitor::clean_names()

Reading and Structure File

dplyr::glimpse(endangered_species)

## Rows: 3,287
## Columns: 15
## $ fauna_flora                                 <chr> "Flora", "Fauna", "Flora",~
## $ grupo                                       <chr> "Angiospermas", "Aves", "A~
## $ familia                                     <chr> "Salicaceae", "Cracidae", ~
## $ especie_simplificado                        <chr> "Abatia angeliana", "Aburr~
## $ nome_comum                                  <chr> "-", "Jacutinga", "-", "-"~
## $ categoria_de_ameaca                         <chr> "Vulnerável (VU)", "Em Per~
## $ sigla_categoria_de_ameaca                   <chr> "VU", "EN", "CR", "CR", "V~
## $ bioma                                       <chr> "Mata Atlântica", "Cerrado~
## $ principais_ameacas                          <chr> "Perda de Habitat/Degradaç~
## $ presenca_em_areas_protegidas                <chr> "Sim", "Sim", "Sim", "Sim"~
## $ plano_de_acao_nacional_para_conservacao_pan <chr> "Sim", "Não", "Sim", "Não"~
## $ ordenamento_pesqueiro                       <chr> "Não", "Não", "Não", "Não"~
## $ nivel_de_protecao_na_estrategia_nacional    <int> 2, 4, 2, 2, 2, 3, 2, 2, 3,~
## $ especie_exclusiva_do_brasil                 <chr> "Sim", "Não", "Sim", "Sim"~
## $ estados_de_ocorrencia                       <chr> "PR", "BA; ES; MG; PR; RJ;~

Selecting Data and Plotting Graphics

• Plotting the Fauna’ Data as the user-chosen filter Group
• Plotting the the Fauna’ Data as the user-chosen filter Exclusive or Not of Brazil