R：尽管中断不均匀，但在栅格图例中设置相等的间隔

Question

我制作了带有自定义间隔中断的栅格图，如您在cuts中所见。但这会导致图例可视化，其中将不均匀的间隔考虑在内。我要等间隔。我发现this就是这个问题，我想知道是否有一种方法可以不使用image.plot()来实现？

下面的代码是此问题的示例。

library('raster')

r <- raster(nrow = 5856, ncol = 9141)
r <- setValues(r, sample(1:ncell(r)), replace = TRUE)

ramp <- colorRampPalette(c('midnightblue', 'steelblue', 'darkgoldenrod', 'tomato2', 'firebrick'))
cuts <- c(1, 10000000, 20000000, 30000000, 33000000, 37000000, 39000000, 45000000, 54000000)
plot(r, breaks = cuts, col = ramp(10))