Настройте легенду с дискретными данными

Question

У меня есть данные, значение которых колеблется в пределах (Мин = -3,686638e + 18, Макс = 1,674103e + 17). Я хочу график, где значения ниже нуля (0) должны отображаться одним цветом, а значения от нуля (0) до (1.647103e + 17) должны быть разделены на 15 классов (цвета / оттенка). Я пробовал plot, levelplot и spplot, но не смог выполнить задачу. Данные

> library (raster)
> DAM <- raster("data.tif")
> plot(DAM,col=rev(heat.colors(8, alpha = 1)) ,zlim=c(-6.3913e+17,  5.1913e+16))
> levelplot(DAM,labels = list(at = seq(-6.3913e+17,  5.1913e+16, 1.70E+16)))
> spplot(DAM,labels = list(at = seq(0,  5.1913e+16, 1.70E+16))

Как достичь цели?

Answer 1

Я умею строить, но не вижу удовлетворительных результатов. Это потому, что большая часть моей ценности находится в близком диапазоне, который можно увидеть на частотном графике. Я не знаю, как построить с такими дискретными данными.

> plot(DAM, 
+      breaks = c(0,  1e+15, 0.647103e+16, 1e+16, 1.647103e+16, 2e+16, 2.6e+16, 5e+16,8e+17, 9e+17,10e+17), col = rev(heat.colors(8, alpha = 1)))