brisaster.antarcticus | R Documentation |
Dataset that contains the presence records of the echinoid species Brisaster antarcticus reported from several oceanographic campaigns including RV Marion Dufresne MD03 1974 & MD04 1975, POKER 2 (2010) and PROTEKER 2013, 2014, 2015.
Brisaster antarcticus (Doderlein 1906) is distributed from 3.5 to 75.6W and -53.35 to -45.95S in the Southern Ocean. The species is mainly found around Kerguelen and Crozet Islands. Brisaster antarcticus commonly lives from 100 to 600 meters depth. It is a detrivorous species for which reproduction includes dispersal (David et al. 2005).
See Guillaumot et al. (2016) for more details.
data('Brisaster.antarcticus')
A data frame containing 43 occurrences and 13 descriptive variables of the associated environmental conditions
id
Occurrence number indicator
scientific.name
Species scientific name
scientific.name.authorship
Author of the species description
genus
Genus scientific name and its associated author
family
Family scientific name and its associated author
order.and.higher.taxonomic.range
Order scientific name and its associated author
decimal.Longitude
Longitude in decimal degrees
decimal.Latitude
Latitude in decimal degrees
depth
Depth in meters
campaign
Campaign origin of the data
reference
Campaign reference
vessel
Campaign vessel
David B, Chone T, Mooi R, De Ridder C (2005) Antarctic Echinoidea. Synopses of the Antarctic Benthos 10.
Doderlein L (1906) Die Echinoiden der Deutschen Tiefsee-Expedition. Deutsche Tiefsee Expedition 1898-1899. 5: 63-290.
Guillaumot C, A Martin, S Fabri-Ruiz, M Eleaume & T Saucede (2016). Echinoids of the Kerguelen Plateau: Occurrence data and environmental setting for past, present, and future species distribution modelling, Zookeys, 630: 1-17.
data('Brisaster.antarcticus') x <- brisaster.antarcticus #(be careful of the capital letter distinction) # plot of the occurrences: # selecting the species according to the campaigns brisaster7475 <- subset(x,x$year==1974 | x$year==1975) brisaster20102015 <- subset(x,x$campaign=='POKER II'| x$campaign=='PROTEKER') # drawing the background (depth) library(grDevices) blue.palette <- colorRampPalette(c('blue','deepskyblue','azure'))(100) data('predictors1965_1974') depth <- raster :: subset(predictors1965_1974, 1) raster::plot(depth, col=blue.palette,main= "Brisaster antarcticus occurrences") data('worldmap') # adding the occurrence data to the background points(worldmap,type="l") points(brisaster7475[,c('decimal.Longitude','decimal.Latitude')], col='orange',pch=16) points(brisaster20102015[,c('decimal.Longitude','decimal.Latitude')], col='darkgreen',pch=16) legend('bottomleft', legend=c('Brisaster antarcticus 1974-1975','Brisaster antarcticus 2010-2015'), col= c('orange','darkgreen'), pch= c(15, 15),cex=0.9)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.