Ось справді простий приклад
library(raster)
data(volcano)
volcanoR <- raster(volcano)
#making colors below 100 red and above 180 blue in this example
breakpoints <- c(94,100,120,140,160,180,195)
colors <- c("red","white","white","white","white","blue")
plot(volcanoR,breaks=breakpoints,col=colors)
Вам просто потрібно передати сюжету вектор точок розриву та вектор кольорів, щоб вони відповідали точкам прориву. Ознайомтесь з RColorbrewer
пакетом для деяких дуже приємних вбудованих кольорових рамп. Ознайомтесь також з classInt
пакетом для виготовлення точок прориву.