library("spocc")
spp <- c('Danaus plexippus','Accipiter striatus','Pinus contorta')
dat <- occ(spp, from=c('gbif','ecoengine'), limit=30, gbifopts=list(hasCoordinate=TRUE))
dat <- fixnames(dat, "query")
# Define colors
map_gist(data=dat, color=c('#976AAE','#6B944D','#BD5945'))
map_gist(data=dat$gbif, color=c('#976AAE','#6B944D','#BD5945'))
map_gist(data=dat$ecoengine, color=c('#976AAE','#6B944D','#BD5945'))
# Define colors and marker size
map_gist(data=dat, color=c('#976AAE','#6B944D','#BD5945'), size=c('small','medium','large'))
# Define symbols
map_gist(data=dat, symbol=c('park','zoo','garden'))
Run the code above in your browser using DataLab