Вы можете передать axis.args
и legend.args
в качестве аргументов для вызова функции только легенды, как для image.plot
в пакете fields
.
Например, чтобы указать позиции и метки тиков, а также уменьшить размер меток, следует выполнить следующее. Он также будет принимать аргументы, такие как legend.width
и 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))