Как решить проблему с пустым levelplot() в R?

Question

Я использую levelplot() в R для создания цветного изображения матрицы (36 X 32). Матрица содержит много значений NaN в ней. Когда я пытаюсь генерировать levelplot используя следующие команды

range = c(815.4, 816.2) 
matpalette <- colorRampPalette(c("blue", "black", "red"))(100) 
levelplot(t(m1),scales = list(draw = FALSE), col.regions = matpalette, xlab = "", ylab = "", at = seq(min(m1), max(m1), length = 100), main=main) 

Я получаю следующее сообщение об ошибке:

Error in seq.default(min(m1), max(m1), length = 100) : 'from' cannot be NA, NaN or infinite 

понимается Эта ошибка. Вместо использования мин (m1) и макс (m1) в levelplot(), когда я попробовать использовать следующее:

levelplot(m1,scales = list(draw = FALSE), col.regions = matpalette, xlab = "", ylab = "", at = seq(range[1], range[2], length = 100), main=main) 

я получаю пустой участок, только с Colorbar и диапазона, заданного в качестве значений клеща ,

Что мне нужно, это график значений в матрице и тем же Colorbar и значения идентичны клеща, как и в levelplot условии. Может ли кто-нибудь помочь мне в этом?

# Вариант 2

s <- seq(from=range[1], to=range[2], by=0.1) 

levelplot(t(m1), scales=list(tick.number=0), xlab=" ", ylab=" ", colorkey = list(at=s, labels=as.character(s)),col.regions = two.colors(n=256, start='blue', end='red', middle='black'), main=main) 

Colorbar, которую я получаю, как этот

Примечание: Диапазон используется отличается

Answer 1

Как это ??

test <- read.csv("test.csv") 
library(lattice) 
library(colorRamps) # for colorRampPalette 
matpalette <- colorRampPalette(c("blue", "black", "red"))(100) 
levelplot(as.matrix(test[,-1]),col.regions=matpalette) 

Вот более или менее то же самое, используя ggplot

library(ggplot2) 
library(reshape2) # for melt(...) 
library(grid)  # for unit(...) 
gg <- melt(test,id="X") 
ggplot(gg,aes(x=X,y=variable,fill=value))+ 
    geom_tile()+ 
    scale_fill_gradientn(name="",colours=matpalette,na.value="white")+ 
    scale_x_continuous(expand=c(0,0))+ 
    scale_y_discrete(expand=c(0,0))+ 
    coord_fixed()+ theme_bw()+ 
    theme(legend.key.height=unit(.15,"npc"))