brks_SOS <- c(-Inf, seq(110, 150, 5), Inf)
key <- list(
at = brks_SOS,
space = 'right', height = 1,
tri.upper = 0.05, tri.lower = 0.05,
labels=list(cex=1.2, fontface='bold'),
rect = list(col = "black", lwd = 0.2)
)
g <- draw.colorkey(key)
grid.newpage()
grid.draw(g)
## sp
\dontrun{
library(sp)
demo(meuse, ask = FALSE, echo = FALSE)
spplot(meuse, c("ffreq"), col.regions= "black",
pch=c(1,2,3), key.space=list(x=0.1,y=.95,corner=c(0,1)))
spplot(meuse.grid)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.