## Not run:
# # Select number of countries to facet on
# count_facet(by='country', countries=3, removezeros = TRUE)
# # Or, pass in country names
# count_facet(by='country', countries='AR', removezeros = TRUE)
#
# 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=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")
# ## End(Not run)
Run the code above in your browser using DataLab