R：使用 spplot 地图中的自定义调色板

我正在努力使用在多个多边形上引入自定义调色板spplot来自sp包裹。 我正在绘制几个字段并希望显示我的评级，其值可以为 0、1、2、4 或 5。我需要为此使用自定义颜色。我尝试的是：

spplot(Map,zcol="Rating", 
       col.regions=c("0"="#00cc00","1"="#ffff66","2"="#e5c100",
                     "3"="orange","4"="#ff5e5e","5"="red"), 
       colorkey=TRUE)

然而，它会产生重复的颜色，如下图所示。我该如何解决这个问题？我知道如何使用 ggplot 来完成它，但出于多种原因，我需要知道如何使用 spplot 来完成它。 非常感谢您的帮助。

Edit:这是一个地图示例，它确实按照我需要的方式工作：

con <- url("http://gadm.org/data/rda/DEU_adm3.RData")
print(load(con))
close(con)
t1<-gadm[grep("Sachsen|Hessen|Bayern",gadm$NAME_1),]
col=c("red","yellow")
spplot(t1,zcol="TYPE_3",col.regions=col)

我注意到以下内容：当我将原始“Large SpatialPolygonsDataframe”与我的数据进行子集化时，生成的地图是“Formal Class SpatialPolygonsDataframe”。这在我刚刚发布的示例中不会发生。谁能告诉我是什么原因导致这种行为？不幸的是，我无法上传原始（敏感）数据。

当您的zcol is numeric。将其转换为factor并且您的绘图应该按预期显示。

如果您进行转换，您会看到此行为t1$TYPE_3转为数字：

t1$TYPE_3.num <- as.numeric(t1$TYPE_3)
spplot(t1, 'TYPE_3.num', col.regions=c('red', 'yellow'))

因此，假设有 6 个可能的因子水平，标签为 0 到 5，请尝试：

Map$Rating.fac <- factor(M$Rating, levels=0:5)

然后使用zcol='Rating.fac'并将 6 种颜色的向量传递给col.regions.