, , , " -10" " 15". , .
rasterVis::levelplot:
# First, some fake data
r <- raster(matrix(runif(100, -20, 30), 10))
library(rasterVis)
levelplot(r, margin=FALSE, at=c(-Inf, seq(-10, 15, 2.5), Inf),
colorkey=list(at=seq(-12.5, 17.5, 2.5),
labels=c(expression(-infinity),
seq(-10, 15, 2.5),
expression(infinity)))
)

at levelplot , . , -Inf -10 , 2,5 , 15, Inf. at colorkey . -12,5 17,5. labels colorkey , . expression .
, . , 7 5 , 14 2:
library(RColorBrewer)
colr <- colorRampPalette(rev(brewer.pal(11, 'RdBu')))(14)[3:14]
col.regions:
levelplot(r, margin=FALSE, at=c(-Inf, seq(-10, 15, 2.5), Inf),
colorkey=list(at=seq(-12.5, 17.5, 2.5),
labels=c(expression(-infinity),
seq(-10, 15, 2.5),
expression(infinity))),
col.regions=colr
)
