У меня есть тепловая карта, которая колеблется от -100 до 100. Мне бы хотелось, чтобы любое значение ниже 0 было красным, а значения выше 0 - градиентом синего цвета.

Я видел примеры получения градиентов красного и синего, но не для красного, чтобы быть постоянным красным.

Что я пробовал до сих пор:

bk = c(seq(-100,-0.1,length=1), seq(-0.1,0.1,length=1), seq(0.1,100,length=100))
rc1 <- colorRampPalette(colors = c("red"))
rc2 <- colorRampPalette(colors = c("blue"))(length(bk)-1)
hmcols <- c(rc1, rc2)

но я получаю ошибку

"Error in image.default(1:nc, 1:nr, x, xlim = 0.5 + c(0, nc), ylim = 0.5 +  : 
  must have one more break than colour"