if (FALSE) {
library(maps)
species_vector<-c("Abies_lasiocarpa","Abies_amabilis")
abies_maps <- BIEN_ranges_load_species(species = species_vector)
xanthium_strumarium <- BIEN_ranges_load_species(species = "Xanthium strumarium")
#Plotting files
plot(abies_maps) # plots the sf, but doesn't mean much without any reference
map('world', fill = TRUE, col = "grey")#plots a world map (WGS84 projection), in grey
plot(xanthium_strumarium,col="forest green",add = TRUE) #adds the range of X. strumarium
plot(abies_maps[1,], add = TRUE, col ="light green")
}
Run the code above in your browser using DataLab