柵格圖中等距的圖例

Question

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所示。

Answer 1

這個問題對我來說並不明確，但我認為您可以使用levelplot來做到這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))))