spplist <- c('Geothlypis trichas','Tiaris olivacea','Pterodroma axillaris',
'Calidris ferruginea','Pterodroma macroptera','Gallirallus australis',
'Falco cenchroides','Telespiza cantans','Oreomystis bairdi',
'Cistothorus palustris')
keys <- sapply(spplist, function(x) name_backbone(x, rank="species")$usageKey)
count_facet(keys, by='country', countries=3, removezeros = TRUE)
count_facet(keys, by='country', countries=3, removezeros = FALSE)
count_facet(by='country', countries=3, removezeros = TRUE)
count_facet(by='country', countries=20, removezeros = TRUE)
# Pass in country names instead
countries <- isocodes$code[1:10]
count_facet(by='country', countries=countries, removezeros = TRUE)
# get occurrences by georeferenced state
## across all records
count_facet(by='georeferenced')
## by keys
out <- count_facet(keys, by='georeferenced')
library("reshape2")
dcast(out, .id ~ georeferenced)
# by basisOfRecord
count_facet(by="basisOfRecord")
Run the code above in your browser using DataLab