if (FALSE) {
library(expowo)
mapspdist <- powoSpecies(family = "Martyniaceae",
hybridspp = FALSE,
country = NULL,
verbose = TRUE,
save = FALSE,
dir = "results_powoSpecies",
filename = "Martyniaceae_spp")
# To create multiple maps for each genus within the input data according to
# political countries.
powoMap(inputdf = mapspdist,
botctrs = FALSE,
distcol = "native_to_country",
taxclas = "genus",
verbose = FALSE,
save = FALSE,
vir_color = "viridis",
bre_color = NULL,
leg_title = "SR",
dpi = 600,
dir = "results_powoMap",
filename = "global_richness_country_map",
format = "jpg")
# To create multiple maps for each genus within the input data according to
# botanical country subdivisions.
powoMap(inputdf = mapspdist,
botctrs = TRUE,
distcol = "native_to_botanical_countries",
taxclas = "genus",
verbose = FALSE,
save = FALSE,
vir_color = "viridis",
bre_color = NULL,
leg_title = "SR",
dpi = 600,
dir = "results_powoMap",
filename = "global_richness_botcountry_map",
format = "jpg")
}
Run the code above in your browser using DataLab