R中tmap对象图例中的重复颜色

Question

有人在R 中遇到过tmap 的此类问题吗？见下图。无论我尝试哪种风格（pretty、kmeans、jenks 等等），图例中总是存在重复的颜色。我也试过设置midpoint = NA，但问题依旧。

这是我用来创建这样一个情节的代码。代码下方是用于绘图的向量。抱歉 dput 似乎不适用于 sf 对象。请随意使用任何空间数据来复制示例。反馈总是appriciated！

tm_shape(sfpr) + tm_borders(col = "gray") + 
  tm_polygons(col = 'Pperc', 
              style = "kmeans",
#              midpoint = NA,
              palette = viridis(4, begin = 0.48, end = 1)) + 
  tm_layout(inner.margins = c(0.1, 0.15, 0.1, 0.1), 
            legend.title.size = 1.5, 
            legend.text.size = 1.1, 
            legend.position = c("left", "bottom"), 
            legend.format = list(digits = 0), 
            main.title = "Maps on the reduction of phosphate losses (in 1000 lbs)", 
            main.title.position = "center")
> sfpr$Pperc
 [1]   -1.49   -0.02    0.12    0.27   -0.36 -247.86  -21.74   -8.88   28.63  -14.48   -0.56

Answer 1

问题是由数据集中的负值和正值引起的。如果您设置auto.palette.mapping = T（已弃用）或为midpoint 使用不同的数值，这将解决您的问题。我根据您的最小/最大值生成了一些虚拟数据。顺便说一句，您应该使用tm_borders() + tm_fill() 或只使用tm_polygons()，因为后者会填充多边形并绘制轮廓。

library(tidyverse)
library(tmap)
library(sf)
library(urbnmapr)
library(viridis)

# create dummy data
sfpr <- get_urbn_map("states", sf = T) %>%  
  as.tibble() %>% 
  mutate(Pperc = runif(51, -248 ,29)) %>% 
  st_as_sf() 

tm_shape(sfpr) +
  tm_borders(col = "gray") + 
  tm_fill("Pperc",
          style = "kmeans",
          palette = viridis(4, begin = 0.48, end = 1), 
          auto.palette.mapping = T) +
  tm_layout(inner.margins = c(0.1, 0.15, 0.1, 0.1), 
            legend.title.size = 1.5, 
            legend.text.size = 1.1, 
            legend.position = c("left", "bottom"), 
            legend.format = list(digits = 0), 
            main.title = "Maps on the reduction of phosphate losses (in 1000 lbs)", 
            main.title.position = "center")