Skip to contents

A função contar_n_obs_sp_uc_estacao_ano() gera uma tabela contendo o número total de observações para cada espécie, em cada Unidade de Conservação, em cada estação e em cada ano.

Usage

contar_n_obs_sp_uc_estacao_ano(dados = monitora_aves_masto_florestal)

Arguments

dados

recebe a tibble gerada pela função filtrar_dados(). Por configuração, carrega a base de dados burtos de aves e médios e grandes mamíferos do Pojeto Monitora Componente Florestal monitora_aves_masto_florestal.

Value

Retorna um objeto do tipo tibble contendo sete colunas, nome_uc que contem o nome da Unidade de Conservação, nome_uc_abv que contem o nome abreviado da Unidadade de Conservação, nome_sp contendo o nome da espécie, nome_sp_abv que contem o nome abreviado da espécie, estacao que contem as estações seca e chuvosa, ano que contem o ano em que a espécie foi amostrada e n contendo o número de observações realizadas para espécie em cada ano.

Author

Vitor N. T. Borges-Junior Luciana A. Fusinatto

Examples

# número de observações para cada espécie, em cada UC, estação e ano - dados brutos
contar_n_obs_sp_uc_estacao_ano()
#> # A tibble: 4,199 × 7
#>    nome_uc               nome_uc_abv     nome_sp nome_sp_abv estacao   ano     n
#>    <fct>                 <fct>           <fct>   <fct>       <fct>   <dbl> <int>
#>  1 esec_da_terra_do_meio esec_da_terr_d… aburri… abur_cuju   chuvosa  2016     1
#>  2 esec_da_terra_do_meio esec_da_terr_d… aburri… abur_cuju   chuvosa  2017     2
#>  3 esec_da_terra_do_meio esec_da_terr_d… aburri… abur_cuju   seca     2014     3
#>  4 esec_da_terra_do_meio esec_da_terr_d… aburri… abur_cuju   seca     2017     3
#>  5 esec_da_terra_do_meio esec_da_terr_d… aburri… abur_cuju   seca     2018     1
#>  6 esec_da_terra_do_meio esec_da_terr_d… alouat… alou_disc   seca     2018     1
#>  7 esec_da_terra_do_meio esec_da_terr_d… ateles… atel_marg   chuvosa  2016     2
#>  8 esec_da_terra_do_meio esec_da_terr_d… ateles… atel_marg   seca     2014     4
#>  9 esec_da_terra_do_meio esec_da_terr_d… ateles… atel_marg   seca     2016     3
#> 10 esec_da_terra_do_meio esec_da_terr_d… ateles… atel_marg   seca     2017     1
#> # ℹ 4,189 more rows

# número de observações para cada espécie, em cada UC, estação e ano - dados filtrados
dados_filtrados <- filtrar_dados(
dados = monitora_aves_masto_florestal,
  nome_uc == "resex_tapajos_arapiuns"
)

contar_n_obs_sp_uc_estacao_ano(dados_filtrados)
#> # A tibble: 366 × 7
#>    nome_uc                nome_uc_abv nome_sp    nome_sp_abv estacao   ano     n
#>    <fct>                  <fct>       <fct>      <fct>       <fct>   <dbl> <int>
#>  1 resex_tapajos_arapiuns rese_tapa   aburria_c… abur_cuju   chuvosa  2016     1
#>  2 resex_tapajos_arapiuns rese_tapa   aburria_c… abur_cuju   chuvosa  2017     9
#>  3 resex_tapajos_arapiuns rese_tapa   aburria_c… abur_cuju   chuvosa  2018     3
#>  4 resex_tapajos_arapiuns rese_tapa   aburria_c… abur_cuju   seca     2016     1
#>  5 resex_tapajos_arapiuns rese_tapa   aburria_c… abur_cuju   seca     2017     3
#>  6 resex_tapajos_arapiuns rese_tapa   aburria_c… abur_cuju   seca     2018     2
#>  7 resex_tapajos_arapiuns rese_tapa   aburria_c… abur_cuju   seca     2019     3
#>  8 resex_tapajos_arapiuns rese_tapa   aburria_c… abur_cuju   seca     2020     3
#>  9 resex_tapajos_arapiuns rese_tapa   aburria_c… abur_cuju   seca     2021     5
#> 10 resex_tapajos_arapiuns rese_tapa   alouatta_… alou_nige   chuvosa  2015     5
#> # ℹ 356 more rows