layers - Propiedades de leyenda cuando legend.only=T(paquete raster)

r leaflet layers

Question

Al trazar solo la leyenda (de un objeto raster - una barra de colores):

require(raster)
r = raster()
r[] = 1
plot(r, legend=F)
plot(r, zlim=c(-10,10), legend.only=T)

¿Cómo puedo controlar el tamaño de la etiqueta del eje de la leyenda, la longitud de la marca y otras propiedades de la leyenda? Sé que puedo llamar al par(...) antes de la última llamada de la plot() , pero ¿hay una forma más limpia?

Answer 1

Puede pasar axis.args y legend.args como argumentos a la función de leyenda solo llamada, como para image.plot en el paquete de fields .

Por ejemplo, para especificar las posiciones y etiquetas de tick y para reducir el tamaño de la etiqueta de tick, lo siguiente debería hacer el truco. También aceptará argumentos como legend.width y legend.shrink .

require(raster)
data(volcano)
r <- raster(volcano)
plot(r, col=topo.colors(100), legend=FALSE, axes=FALSE)
r.range <- c(minValue(r), maxValue(r))
plot(r, legend.only=TRUE, col=topo.colors(100),
legend.width=1, legend.shrink=0.75,
axis.args=list(at=seq(r.range[1], r.range[2], 25),
labels=seq(r.range[1], r.range[2], 25),
cex.axis=0.6),
legend.args=list(text=''Elevation (m)'', side=4, font=2, line=2.5, cex=0.8))

Answer 2

También es posible trabajar con el argumento ''smallplot'' cuando ''legend.only = TRUE''. Trabajos pequeños desde la esquina inferior / izquierda del área de trazado smallplot = c (min% desde la izquierda,% max desde la izquierda, min% desde la parte inferior,% max desde la parte inferior).

# load data & plot
require(raster); data(volcano); r <- raster(volcano)
plot(r, col=topo.colors(100), legend=FALSE, axes=FALSE)
r.range <- c(minValue(r), maxValue(r))
plot(r, legend.only=TRUE, col=topo.colors(100), legend.width=1, legend.shrink=0.75,
smallplot=c(0,.09, .3,.75)); par(mar = par("mar"))
plot(r, legend.only=TRUE, col=topo.colors(100), legend.width=1, legend.shrink=0.75,
smallplot=c(0.3,0.5, 0.2,0.7)); par(mar = par("mar"))
plot(r, legend.only=TRUE, col=topo.colors(100), legend.width=1, legend.shrink=0.75,
smallplot=c(0.85,0.9, 0.7,0.9)); par(mar = par("mar"))
plot(r, legend.only=TRUE, col=topo.colors(100), legend.width=1, legend.shrink=0.75,
smallplot=c(0.7,0.90, 0.05,0.2)); par(mar = par("mar"))