栅格图中等距的图例

【问题标题】：Equally spaced legend in a raster plot栅格图中等距的图例
【发布时间】：2019-04-30 18:10:35
【问题描述】：

library(raster)
library(viridis)

data(volcano)
volcanoR <- raster(volcano)

breakpoints <- c(94,100,120,140,160,180,185, 189, 195)

par(mfrow = c(1, 2))

plot(volcanoR, main = "1")
plot(volcanoR, breaks = breakpoints, col = viridis(length(breakpoints) -1), main = "2")

在图 2 中，您会看到图例标签彼此非常接近，甚至重叠。有什么办法，我可以让它们不重叠且等间距，如图 1 所示。

【问题讨论】：

标签： r plot raster viridis

【解决方案1】：

这个问题我不清楚，但我认为你可以使用levelplot：

library(raster)
library(lattice)

data(volcano)
volcanoR <- raster(volcano)

breakpoints <- c(94,100,120,140,160,180,185, 189, 195)
levelplot(volcano, at=breakpoints, labels=breakpoints,
          par.settings=list(regions=list(col=topo.colors(8))))

【讨论】：