Блокировка цветной клавиши в levelplot в r

Question

Я использую levelplots для отображения матриц и графики ниже. Хотя те же col.regions используются для обоих графиков, цветная клавиша отличается. Как мы можем заблокировать (или установить) цветную клавишу для обоих уровней? Я хочу тот же цветной ключ (от 0 до 60) для обоих участков.

Answer 1

Попробуйте установить at и colorkey параметров.

В моем примере я использую пакет rasterVis, который просто расширяет функции построения lattice для растров, но это не обязательно. Я просто хотел использовать функцию BuRdTheme() для установки моей собственной темы.

Пример:

require(rasterVis) 

# My matrix 
my.mat1 <- matrix(rnorm(5*5),5,5) 
my.mat2 <- matrix(rnorm(5*5,2,2),5,5) 

# Custom theme (from rasterVis package) 
my.theme <- BuRdTheme() 

# Find the min and max values 
my.min <- min(my.mat1, my.mat2) 
my.max <- max(my.mat1, my.mat2) 

# Customize the colorkey 
my.at <- seq(my.min, my.max, length.out=length(my.theme$regions$col)-1) 
my.ckey <- list(at=my.at, col=my.theme$regions$col) 

# Level plot 
levelplot(my.mat1, par.settings=my.theme, at=my.at, colorkey=my.ckey) 
levelplot(my.mat2, par.settings=my.theme, at=my.at, colorkey=my.ckey)