1 | mapBubbles(dat, depths = NULL, plotMap = T, maxValue = max(dat$Z), maxSize = 0.3, circle.fg = "black", circle.bg = rgb(0, 0, 0, 0.3), type = "surface", zeroSize = 0.04, fgZero = gray(0.5), bgZero = gray(0.5), legendPos = "bottomright", legendBreaks = NULL, legendType = "vert", legendTitle = NULL, legendCex = 0.8, legendTitleCex = legendCex, ...)
|
dat |
|
depths |
|
plotMap |
|
maxValue |
|
maxSize |
|
circle.fg |
|
circle.bg |
|
type |
|
zeroSize |
|
fgZero |
|
bgZero |
|
legendPos |
|
legendBreaks |
|
legendType |
|
legendTitle |
|
legendCex |
|
legendTitleCex |
|
... |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | ## Not run:
library(PBSmapping)
data(westCoastLL)
data(WCstatesInlandPBS)
#create a fake dataset
datt <- data.frame(Latitude=c(42,43,44,45,46,47,runif(10,42,47)),Longitude=c(-126,-125.5,-128,-127.5,-126.5,-126.5,runif(10,-128,-125)),Z=c(1,2,3,4,5,6,rep(0,10)))
#plot the dataset
mapBubbles(datt,xlim=c(-130,-120),ylim=c(40,49),col="green4",bg="lightblue")
#place legend elsewhere
mapBubbles(datt,xlim=c(-130,-120),ylim=c(40,49),legendPos="bottomleft")
#nested legend with title
mapBubbles(datt,xlim=c(-130,-120),ylim=c(40,49),legendBreaks=c(2,6),legendType="nested",legendTitle="Abundance")
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.