legend_align | R Documentation |
When multiple panels on the same axis, the different order of values or different units of values may provoke different shifting of values and caption from panels. legend_align
repairs it by the taking names of classes of the required rasters. The function output is for argument aling
of legend_colorbar
.
legend_align(obj)
obj |
Object of class |
The function is defined as:
c(unlist(sapply(obj,function(x) names(ursa_colortable(x)))))
Character vector.
Nikita Platonov platonov@sevin.ru
legend_colorbar
session_grid(NULL) a <- ursa_dummy(5,mul=1/4,min=-150,max=200) a[1] <- a[1]*100 a[2] <- -a[2]*10 a[3] <- a[3]/10 a[4] <- a[4]/1000 b <- lapply(a,colorize) la.top <- legend_align(b[c(1,2)]) la.left <- legend_align(c(b[[1]],b[[3]])) la.bottom <- legend_align(b[c(3,4)]) la.right <- legend_align(b[c(2,4)]) leg <- vector("list",12) leg[[1]] <- list("top",2) leg[[2]] <- list("top",3) leg[[3]] <- list("bottom",1) leg[[4]] <- list("bottom",2) leg[[5]] <- list(2,"left") leg[[6]] <- list(1,"right") leg[[7]] <- list(3,"left") leg[[8]] <- list(2,"right") leg[[9]] <- list("top",1) leg[[10]] <- list("bottom",3) leg[[11]] <- list(1,"left") leg[[12]] <- list(3,"right") cl <- compose_design(layout=c(3,3),legend=leg,byrow=TRUE,skip=5) print(cl) compose_open(cl) ct <- compose_panel(b[c(5,1,2,1,4,3,4,5)],decor=FALSE) L <- 2 Tr <- 2 legend_colorbar(b[1],trim=Tr,las=L,align=la.top,units="top aligned --->") legend_colorbar(b[2],trim=Tr,las=L,align=la.top,units="<--- top aligned") legend_colorbar(b[3],trim=Tr,las=L,align=la.bottom,units="bottom aligned --->") legend_colorbar(b[4],trim=Tr,las=L,align=la.bottom,units="<--- bottom aligned") legend_colorbar(b[1],trim=Tr,las=L,align=la.left,units="<--- left aligned") legend_colorbar(b[2],trim=Tr,las=L,align=la.right,units="<--- right aligned") legend_colorbar(b[3],trim=Tr,las=L,align=la.left,units="left aligned --->") legend_colorbar(b[4],trim=Tr,las=L,align=la.right,units="right aligned --->") legend_colorbar(b[5],trim=Tr,las=L,units=" *** not aligned ***") legend_colorbar(b[5],trim=Tr,las=L,units=" *** not aligned ***") legend_colorbar(b[5],trim=Tr,las=L,units=" *** not aligned ***") legend_colorbar(b[5],trim=Tr,las=L,units=" *** not aligned ***") compose_close()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.