R: Как определить цветовую шкалу в image.plot на основе расстояния до значения 1

Question

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

Цветовая шкала в R: image.plot основана на порядке значений.

  cols = rev(brewer.pal(11,'Spectral'))
  rf <- colorRampPalette(cols)   # make colors
  r <- rf(20)

  image.plot(1:nrow(joint_number), 1:ncol(joint_number), 
             (joint_number), 
             axes = FALSE, col = r)

Как сделать цветовую шкалу на основе расстояния до 1, т.е. чем ближе к 1, тем ярче цвет?