| legend_colorbar | R Documentation | 
Functions draw single color bar outside of maps panels. legend_colorbar (without prefix dot) is a wrapper for non-public .legend_colorbar (with prefix dot)
legend_colorbar(...)
## non-public
.legend_colorbar(ct, units = "", labels = NA, align = NULL, shift = 1, cex = 1,
                 adj = NA, las = 1, forceLabel = FALSE, lomar = 0, himar = 0,
                 turn = FALSE, useRaster = NA, trim = 0L, abbrev = 24L,
                 opacity = NA, verbose = FALSE)
| ... | Set of arguments, which are recognized via their names (using regular expressions) and classes.  Passed to non-public  
 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| ct | 
 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| units | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| labels | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| align | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| shift | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| cex | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| adj | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| las | Argument of values  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| forceLabel | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| lomar | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| himar | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| turn | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| useRaster | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| trim | Argument of values  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| abbrev | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| opacity | Argument of class  | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| verbose | Argument of class  | 
If units are expression, then possible way for formatting is:
units=as.expression(substitute(bold(degree*C)))
NULL
Nikita Platonov platonov@sevin.ru
session_grid(NULL)
display(ursa_dummy(1),units="Required 99 labels; displayed less"
        ,colorbar.labels=99,las=3,gridline.trim=FALSE,colorbar.trim=1L)
cname <- c("Apple","Orange","Cherry","Blueberry","Strawberry","Currant")
a <- ursa_dummy(4)
b <- list(colorize(a[1],value=seq(50,200,length=length(cname))
                  ,name=cname)#,stretch="category")
         ,colorize(a[2]*10,ramp=FALSE),colorize(a[3]*100),colorize(a[4]/10))
la <- legend_align(b[3:4])
leg <- vector("list",10)
leg[[1]] <- list(1,"left")
leg[[2]] <- list(1,"right")
for (i in seq(4)) {
   leg[[i+2]] <- list("top",i)
   leg[[i+6]] <- list("bottom",i)
}
compose_open(layout=c(1,4),legend=leg,scale=NA,dev=FALSE) # use 'dev=TRUE' to check layout
compose_panel(b)
legend_colorbar(b[[1]],lomar=20,himar=0) ## "left"
legend_colorbar(b[[4]],labels=c(6,7.5,12,15,20)
               ,units="Manual set of labels") ## "right"
legend_colorbar(b[[1]],las=2,adj=0.5,turn=TRUE,lomar=6,himar=6
               ,units="Central adjustment; inverse order") ## ("top",1)
legend_colorbar(b[[2]],cex=0.9
               ,units="Horizontal labels can be overlapped") ## ("top",2)
legend_colorbar(b[[3]],las=3,align=la
               ,units="Increased width, but aligned -->") ## ("top",3)
legend_colorbar(b[[4]],las=3,align=la,labels=3
               ,units="<-- Reduced width, but aligned") ## ("top",4)
legend_colorbar(b[[1]],las=2,adj=0,shift=0.9,turn=FALSE,lomar=2,himar=10
               ,units="Left adjustement. Non-optimal; shifted") ## ("bottom",1)
legend_colorbar(b[[2]],las=3,adj=0
               ,units="But right adj. is default for numeric") ## ("bottom",2)
legend_colorbar(b[[3]],labels=99,las=3,trim=2L
               ,units="Required 99 labels, but displayed less") ## ("bottom",3)
legend_colorbar('Caption from named item'=b[[4]],labels=99) ## ("bottom",4)
compose_close()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.