如何设置spplot的默认主题？

Question

比方说，我有一些空间数据，我想使用 sp 包中的 spplot 函数绘制它：

library('sp')
library('lattice')
demo(meuse, ask = FALSE, echo = FALSE)
spplot(meuse.grid[,'dist'])

改变主题很容易，例如col.regions，只有一个情节：

spplot(meuse.grid[,'dist'], col.regions=rainbow(100))

但是，如果我想更改所有地块的 col.regions 怎么办？我尝试了一些功能，例如：

trellis.par.set(sp.theme(set = FALSE, regions = list(col = rainbow(100)))) #1
trellis.par.set(regions = list(col = rainbow(100))) #2
lattice.options(default.theme = sp.theme(set = FALSE, regions = list(col = rainbow(100)))) #3

但似乎没有任何效果。所以我的问题是 - 如何正确设置 spplot 的默认主题？

Answer 1

查看以下代码以手动 re-define spplot 的默认配色方案（另请参阅 ?spplot，其中进一步描述了 set_col_regions）。

## re-define default color scheme
old_theme <- get_col_regions()
new_theme <- set_col_regions(rainbow(100))

## sample data
data("meuse.grid")
coordinates(meuse.grid) <- ~x+y
proj4string(meuse.grid) <- CRS("+init=epsg:28992")
gridded(meuse.grid) <- TRUE

## display data with c
spplot(meuse.grid, zcol = "dist")

自定义配色方案适用于任何随后创建的 'spplot' 对象，例如

library(mapview)
spplot(poppendorf, "B007n")

如何设置spplot的默认主题？

How to set the default theme for spplot?

gis

plot

r

lattice

sp