# Point map, using output from occurrencelist, example 1
out <- occurrencelist(scientificname = 'Accipiter erythronemius',
coordinatestatus = TRUE, maxresults = 100)
gbifmap_list(input = out) # make a map using vertmap
# Point map, using output from occurrencelist, example 2, a species with more data
out <- occurrencelist(scientificname = 'Puma concolor', coordinatestatus = TRUE,
maxresults = 100)
gbifmap_list(input = out) # make a map
gbifmap_list(input = out, region = 'USA') # make a map, just using the US map
# Point map, using output from occurrencelist, many species
splist <- c('Accipiter erythronemius', 'Junco hyemalis', 'Aix sponsa')
out <- occurrencelist_many(splist, coordinatestatus = TRUE, maxresults = 20)
gbifmap_list(out)
# Point map, using output from occurrencelist, many species
splist <- c('Accipiter erythronemius', 'Junco hyemalis', 'Aix sponsa', 'Ceyx fallax',
'Picoides lignarius', 'Campephilus leucopogon')
out <- occurrencelist_many(splist, coordinatestatus = TRUE, maxresults = 100)
gbifmap_list(out)
# Get occurrences or density by area, using min/max lat/long coordinates
# Setting scientificname="*" so we just get any species
out <- occurrencelist(scientificname="*", minlatitude=30, maxlatitude=35,
minlongitude=-100, maxlongitude=-95, coordinatestatus = TRUE, maxresults = 500)
# Using `geom_point`
gbifmap_list(out, "state", "texas", geom_point)
# Using geom_jitter to move the points apart from one another
gbifmap_list(out, "state", "texas", geom_jitter, position_jitter(width = 0.3,
height = 0.3))
# And move points a lot
gbifmap_list(out, "state", "texas", geom_jitter, position_jitter(width = 1, height = 1))
# Customize the plot by passing options to `ggplot()`
mycustom <- function(){
list(geom_point(size=9)
)}
out <- occurrencelist(scientificname = 'Accipiter erythronemius',
coordinatestatus = TRUE, maxresults = 100)
gbifmap_list(out, customize = mycustom())
Run the code above in your browser using DataLab