class: center, middle, inverse, title-slide .title[ # GridDER ] .subtitle[ ## Detecção e avaliação de dados de grade no R ] .author[ ### ] .institute[ ### LatinR 2022 ] .date[ ### 10 a 14 de outubro de 2022 ] --- name: hello class: middle, center, inverse #### <img style="border-radius: 50%;" src="data:image/png;base64,#https://avatars.githubusercontent.com/u/11633554?v=4" width="150px"/> Pesquisadora e Cientista de Dados <br> Atuação: Biodiversidade e Mudanças Globais <br> Bióloga | MSc. Biologia Ambiental | PhD. in Zoologia <br> [
@Tai-Rocha](https://github.com/Tai-Rocha) [
@Tai_Rocha_](https://twitter.com/Tai_Rocha_) [
tainaweb-en.netlify.app](https://tainaweb-en.netlify.app/) --- Ferramenta para melhorar dados de grade ([GBIF](https://www.gbif.org/)) <br/> .pull-left[ <img src="data:image/png;base64,#images/logo.png" width="50%" style="display: block; margin: auto;" /> ] <iframe src="https://ecoevorxiv.org/6qy5u/" width="50%" height="450" data-external="1"></iframe> --- <br/> .pull-left[ <img src="data:image/png;base64,#images/logo.png" width="50%" style="display: block; margin: auto;" /> ] - Rastrear pontos em grade - Quantificar variação geográfica e ambiental .pull-right[ <img src="data:image/png;base64,#images/grades.png" width="100%" style="display: block; margin: auto auto auto 0;" /> ] --- class: chapter-slide # Instalação e funções do pacote --- #### Instalação ```r # remotes::install_github("BiogeographyLab/gridder") ``` --- #### Dados do pacote ```r library(gridder) data("occs_unique") data("ne_10m_admin_0_countries") ``` --- #### Visulizando os dados <img src="data:image/png;base64,#index_files/figure-html/data_plot-1.png" style="display: block; margin: auto;" /> --- ### `infer_crs` Inferir o CRS (sistema de referência de coordenadas) ```r # results_crs = gridder::infer_crs(occ_path = occs_unique, cup_num = 4) # readr::write_rds(mtcars, "latinr_proposal/results_crs.rds", "xz", compression = 9L) ``` --- ### `infer_crs` Vamos ler o resultado que está salvo em .rds ```r results_crs = readRDS("latinr_proposal/results_crs.rds") print(results_crs$selected[1:5, c("code", "note")]) ``` ``` ## code note ## 1 2154 truth ## 1336 2154 RGF93 / Lambert-93 ## 6350 5698 RGF93 / Lambert-93 + NGF-IGN69 height ## 6351 5699 RGF93 / Lambert-93 + NGF-IGN78 height ## 4355 3947 RGF93 / CC47 ``` --- ### `infer_resolution` Inferir a resolução espacial ```r result_res=gridder::infer_resolution(input_coord = input_occ_prj@coords, flag_unit="meter") print(result_res$res_x) ``` ``` ## [1] 40000 ``` ```r print(result_res$res_y) ``` ``` ## [1] 20000 ``` --- ### `infer_extent` Inferir a extensão espacial ```r result_ext = gridder::infer_extent(method="crs_extent", crs_grid=2154, flag_adjust_by_res=TRUE, res_x=result_res$res_x, res_y=result_res$res_y) print(result_ext) ``` ``` ## [1] -400000 6080000 1200000 7180000 ``` --- ### `grid_generation` Simulando um sistema de grade baseado em metadados ```r simulated_grid = gridder::grid_generation(res_x=40000, res_y=20000, unit="m", flag_crs=TRUE, country="France", extent_unit="empirical_occ_extent", input_extent=result_ext, crs_num=2154, flag_maskByCountry=TRUE) ``` ``` ## [1] 40000 ## [1] 20000 ## [1] "m" ## [1] -400000 6080000 1200000 7180000 ``` --- ### `grid_generation` <img src="data:image/png;base64,#index_files/figure-html/check_simulated-1.png" style="display: block; margin: auto;" /> --- ##### Calculando a variação ambiental de um sistema de grade Sist. de grade disponibilizado no pacote ```r data("grid_ID_9") plot(grid_ID_9) ``` <img src="data:image/png;base64,#index_files/figure-html/gri_id_9-1.png" style="display: block; margin: auto;" /> --- Variação da elevação para o sistema de grade (grid_id_9) ```r nasadem = rgee::ee$Image('NASA/NASADEM_HGT/001')$select('elevation') ``` `assess_env_uncertainty` ```r std_dev = gridder::assess_env_uncertainty(x= nasadem, y= grid) ``` ``` ## [1] "Extracting information [0/336]..." ## Number of features: Calculating ... Number of features: 336 ``` --- ### `assess_env_uncertainty` ```r print(std_dev, n=3) ``` ``` ## Simple feature collection with 336 features and 12 fields ## Geometry type: POLYGON ## Dimension: XY ## Bounding box: xmin: 38.1667 ymin: 55.0833 xmax: 43 ymax: 56.8333 ## Geodetic CRS: WGS 84 ## First 3 features: ## Name alttdMd begin drwOrdr dscrptn end extrude icon tessllt timstmp ## 1 ?1 NA NA NA ??????? ?1 NA 0 NA -1 NA ## 2 ?2 NA NA NA ??????? ?2 NA 0 NA -1 NA ## 3 ?3 NA NA NA ??????? ?3 NA 0 NA -1 NA ## visblty elevation geometry ## 1 -1 12.579737 POLYGON ((39.5 56.75, 39.66... ## 2 -1 6.765410 POLYGON ((39.6667 56.75, 39... ## 3 -1 6.164659 POLYGON ((39.8333 56.7083, ... ``` --- Visualizando a variação da elevação no espaço geográfico <img src="data:image/png;base64,#index_files/figure-html/uncert_plot-1.png" style="display: block; margin: auto;" /> --- class: middle, inverse, title-slide .pull-left[ <br/> <br/> <br/> # Obrigada! # Gracias! <br/> ] .pull-right[ ### <br/> <br/> <img style="border-radius: 50%;" src="data:image/png;base64,#https://avatars.githubusercontent.com/u/11633554?v=4" width="150px"/> ### ### [
@Tai-Rocha](https://github.com/Tai-Rocha) [
@Tai_Rocha_](https://twitter.com/Tai_Rocha_) [
tainaweb-en.netlify.app](https://tainaweb-en.netlify.app/) ]