Функция heatmap.2
в gplots
имеет встроенное определение разрывов.
library(gplots)
x <-matrix(c(seq(0,90,10),runif(90,0,16000)),10)
my.breaks <-c(0,1,20,70,200,16000)
my.col=c("white","green","yellow","orange","red")
heatmap.2(x, col = my.col, breaks=my.breaks)