terra 中的水平图例 R package

Question

对于terra ，我想将图例水平放置在map下方。从help看来，这可以通过将字符传递给legend （例如legend = "bottomleft" ）或将列表传递给plg来完成，其中plg来自基地-R 图例 function。但是，对我来说这些都不起作用。 请参阅下面的代码示例。

谢谢！

rm(list = ls())
library(terra)

f <- system.file("ex/elev.tif", package="terra") 
r <- rast(f)

terra::plot(r)
terra::plot(r, legend = "bottomleft")
terra::plot(r, plg = list(horiz = TRUE))
terra::plot(r, plg = list(x = 6, y = 49.5, horiz = TRUE))

在所有情况下，生成的 map 如下所示：

编辑：通过将范围传递给 plg，覆盖 plot 轴限制之外的区域，图例移动到正确的位置，但horiz = TRUE仍然不旋转它：

e <- c(5.6, 6.6, 49.2, 49.3)
terra::plot(r, plg = list(ext = e, horizontal = TRUE), mar = rep(4, 4))

Answer 1

查看gitHub 中的 terra 代码，我找到了解决方案。 您需要通过plg列表传递loc和ext arguments：

rm(list = ls())
library(terra)
library(RColorBrewer)

f <- system.file("ex/elev.tif", package="terra") 
r <- rast(f)

e <- c(5.5, 7.0, 49.35, 49.38)
terra::plot(r, plg = list(ext = e, loc = "bottom"))

# Change color scale, range, ticks
terra::plot(r,
            col = brewer.pal(7, "BrBG"), range = c(150, 500),
            plg = list(ext = l_ext, loc = "bottom", title = "myvar",
                       at = c(150, 200, 250, 350, 450, 500)))

Answer 2

您可以使用 package raster和spplot ，它可以让您选择 plot plot 下面的图例。您可以使用以下代码：

library(raster)
library(terra)

f <- system.file("ex/elev.tif", package="terra") 
r <- rast(f)
spplot(r, scales = list(draw = TRUE), colorkey = list(space = "bottom"))

Output：