Data acquisition
## Download data (if required) ----
dl_wildfinder_data()
Data importation
Mammals species list
## Import species list ----
sp_list <- read_sp_list(here::here("data", "wildfinder", "wildfinder-mammals_list.csv"))
Content of the wildfinder-mammals_list file
15168 |
Mammalia |
Artiodactyla |
Antilocapridae |
Antilocapra |
americana |
Pronghorn |
Antilocapra americana |
15290 |
Mammalia |
Artiodactyla |
Bovidae |
Addax |
nasomaculatus |
Addax |
Addax nasomaculatus |
15169 |
Mammalia |
Artiodactyla |
Bovidae |
Aepyceros |
melampus |
Impala |
Aepyceros melampus |
15170 |
Mammalia |
Artiodactyla |
Bovidae |
Alcelaphus |
buselaphus |
Hartebeest |
Alcelaphus buselaphus |
15176 |
Mammalia |
Artiodactyla |
Bovidae |
Alcelaphus |
lichtensteinii |
Lichtenstein’s Hartebeest |
Alcelaphus lichtensteinii |
15177 |
Mammalia |
Artiodactyla |
Bovidae |
Ammodorcas |
clarkei |
Dibatag |
Ammodorcas clarkei |
Ecoregions list
## Import ecoregions list ----
eco_list <- read_eco_list(here::here("data", "wildfinder", "wildfinder-ecoregions_list.csv"))
Content of the wildfinder-ecoregions_list file
AA0106 |
Halmahera rain forests |
Australasia |
Tropical and Subtropical Moist Broadleaf Forests |
AA0107 |
Huon Peninsula montane rain forests |
Australasia |
Tropical and Subtropical Moist Broadleaf Forests |
AA0105 |
Central Range montane rain forests |
Australasia |
Tropical and Subtropical Moist Broadleaf Forests |
AA0102 |
Banda Sea Islands moist deciduous forests |
Australasia |
Tropical and Subtropical Moist Broadleaf Forests |
AA0103 |
Biak-Numfoor rain forests |
Australasia |
Tropical and Subtropical Moist Broadleaf Forests |
AA0104 |
Buru rain forests |
Australasia |
Tropical and Subtropical Moist Broadleaf Forests |
Merging table
## Import merging table ----
sp_eco <- read_sp_eco(here::here("data", "wildfinder", "wildfinder-ecoregions_species.csv"))
Content of the wildfinder-ecoregions_species file
AT0101 |
17507 |
AT0101 |
17688 |
AT0101 |
17730 |
AT0101 |
17736 |
AT0101 |
17741 |
AT0101 |
17789 |
Species selection
## Select species ----
sp_list <- select_species(sp_list, family = params$"mammals_family")
List of World Canidae species
14705 |
Atelocynus microtis |
Canidae |
14706 |
Canis adustus |
Canidae |
14707 |
Canis aureus |
Canidae |
14708 |
Canis latrans |
Canidae |
14709 |
Canis lupus |
Canidae |
14710 |
Canis mesomelas |
Canidae |
14712 |
Canis simensis |
Canidae |
14713 |
Cerdocyon thous |
Canidae |
14714 |
Chrysocyon brachyurus |
Canidae |
14715 |
Cuon alpinus |
Canidae |
14720 |
Lycalopex culpaeus |
Canidae |
95599 |
Lycalopex fulvipes |
Canidae |
14721 |
Lycalopex griseus |
Canidae |
14722 |
Lycalopex gymnocercus |
Canidae |
14723 |
Lycalopex sechurae |
Canidae |
14724 |
Lycalopex vetulus |
Canidae |
14717 |
Lycaon pictus |
Canidae |
14718 |
Nyctereutes procyonoides |
Canidae |
14719 |
Otocyon megalotis |
Canidae |
14725 |
Speothos venaticus |
Canidae |
14726 |
Urocyon cinereoargenteus |
Canidae |
14727 |
Urocyon littoralis |
Canidae |
14728 |
Vulpes bengalensis |
Canidae |
14729 |
Vulpes cana |
Canidae |
14730 |
Vulpes chama |
Canidae |
14731 |
Vulpes corsac |
Canidae |
14732 |
Vulpes ferrilata |
Canidae |
14704 |
Vulpes lagopus |
Canidae |
27932 |
Vulpes macrotis |
Canidae |
14733 |
Vulpes pallida |
Canidae |
14734 |
Vulpes rueppelli |
Canidae |
14735 |
Vulpes velox |
Canidae |
14736 |
Vulpes vulpes |
Canidae |
14737 |
Vulpes zerda |
Canidae |
Add ecoregions
## Add ecoregions to species list ----
sp_eco_list <- add_ecoregions(sp_list, sp_eco, eco_list)
Complete dataset for Canidae species
Atelocynus microtis |
Araucaria moist forests |
Atelocynus microtis |
Bolivian Yungas |
Atelocynus microtis |
Caqueta moist forests |
Atelocynus microtis |
Eastern Cordillera real montane forests |
Atelocynus microtis |
Maraj≤ varzea |
Atelocynus microtis |
Maranhao Babaτu forests |
Atelocynus microtis |
Mato Grosso seasonal forests |
Atelocynus microtis |
Alto Paranß Atlantic forests |
Atelocynus microtis |
Purus-Madeira moist forests |
Atelocynus microtis |
Rio Negro campinarana |
Count ecoregions
## Count ecoregions by species ----
counts_data <- count_ecoregions(sp_eco_list)
Number of ecoregions per Canidae species
Vulpes vulpes |
331 |
Canis lupus |
216 |
Canis latrans |
138 |
Canis aureus |
130 |
Urocyon cinereoargenteus |
128 |
Cuon alpinus |
118 |
Speothos venaticus |
67 |
Lycaon pictus |
61 |
Cerdocyon thous |
57 |
Nyctereutes procyonoides |
57 |
Vulpes corsac |
54 |
Vulpes lagopus |
49 |
Atelocynus microtis |
46 |
Canis adustus |
41 |
Canis mesomelas |
33 |
Vulpes cana |
31 |
Vulpes rueppelli |
31 |
Vulpes macrotis |
30 |
Vulpes bengalensis |
28 |
Chrysocyon brachyurus |
25 |
Lycalopex culpaeus |
25 |
Otocyon megalotis |
24 |
Vulpes ferrilata |
21 |
Lycalopex gymnocercus |
17 |
Vulpes chama |
13 |
Lycalopex griseus |
11 |
Vulpes velox |
8 |
Vulpes zerda |
8 |
Lycalopex vetulus |
7 |
Vulpes pallida |
3 |
Canis simensis |
2 |
Lycalopex sechurae |
2 |
Lycalopex fulvipes |
1 |
Urocyon littoralis |
1 |
## Barplot ----
plot_counts(counts_data)