R - 绘制栅格时移动图例的最简单方法

Question

我需要绘制光栅文件。

在我的输出图像中，图例上的数字有时不可见 - 尤其是当我将图形窗口拆分为两列或更多列时（例如：par（mfrow = c（1,2）））。

我想过将图例移到底部（光栅图像下方）以解决此问题。 但是，我发现的大多数示例都建议使用全新的颜色和项目定义创建全新的图例。

我想使用默认图例。 我只需将它移到底部。 我试过这样做如下：

library('raster')
data(volcano)
r <- raster(volcano)
# Trying to draw default legend below raster plot
plot(r, legend=F)
# Now trying to draw legend. Default is okay for me, I want to move it below only:
plot(r, legend.only=TRUE, legend.args=list("bottom", text='My values [m^3]'))

不幸的是，我的代码不起作用（似乎没有使用“底部”参数）。

Answer 1

TL;博士

尝试将horizontal = TRUE传递给plot()函数调用。

library('raster')

data(volcano)
r <- raster(volcano)

plot(r, legend.only=TRUE, horizontal = TRUE, legend.args = list(text='My values [m^3]'))

调整

您现在可以将side=或line=参数传递给legend.args列表，以指定图例标签的位置（默认为side = 3和line = 0 ）。 例如，您可以使用side = 1将“我的值[m ^ 3]”文本放在图例下方，并使用line = 2将其与图例中的距离相对较远（相对于它的顶部！）。

plot(r, legend.only=TRUE, horizontal = TRUE, 
        legend.args = list(text='My values [m^3]', side = 1, line = 2))

高级调整

如果你想在图的右边或底部以外的某个地方绘制图例，你必须首先用axes = FALSE绘制你的栅格，然后重新绘制它，但传递参数legend.only = TRUE和smallplot= c(xleft, xright, ybottom, ytop)指定绘图区域中绘制彩色框的位置。

背景

诀窍在于legend.args列表被传递给mtext()函数，因此使用legend()函数和使用x=参数（例如，“bottom”，“ legend.args mtext()来定义基本R绘图中的图例位置的标准方法无法获得。

您可能认为axis.args列表会有所帮助，因为这也可能（可能违反直觉）控制图例的绘制方式。 axis.args列表传递给axis()函数以绘制图例的一些特征，而axis()函数有一个side=参数，用于设置图的哪一侧（在我们的例子中是图例）将是画！ 但不，在绘制光栅图时， side=参数是通过其他方式设置的。

你可能会问的是什么意思？ 这是horizontal=参数！

horizontal=参数可以传递给plot()调用，以表示您是否希望光栅图例位于图的右侧（默认情况下， horizontal = FALSE将axis() side=参数设置为axis()函数调用中的4绘制图例的底部或绘图的底部（当horizontal = TRUE ，在绘制图例的`axis（）函数调用中将side=参数设置为1）

Answer 2

以下是使用rasterVis的方法：

library(rasterVis)
levelplot(r, margin=FALSE, colorkey=list(space="bottom"), par.settings = RdBuTheme())

Answer 3

或者尝试spplot ，它也使用包lattice ：

spplot(r, scales = list(draw = TRUE), colorkey = list(space = "bottom"))