无法在tmap中产生全彩色渐变

时间:2019-08-20 07:48:06

标签: r tmap

在新版本的tmap(2.3版)中,auto.palette.mapping=FALSE已被弃用。现在我们必须提供midpoint。问题是如何选择midpoint?我有一个倾斜的数据集用于映射。以相等的间隔,调色板中的所有颜色都将出现,但是当我使用style= "fixed"并提供breaks时,调色板的所有颜色都不会出现。我正在使用以下代码

library("rgdal")
library("rgeos")
library(tmap)
library(RColorBrewer)

加载数据

Coastal.data <- read.csv("Data.csv")
Output.Areas <-  readOGR(".", "Coastal_districts_F")

将数据连接到shapefile

OA.Census <- merge(Output.Areas, Coastal.data, by.x="NAME_2", by.y="Districts")

沿海数据(地区)和沿海地区shapefile(NAME_2)中的公共字段是地区和NAME_2

将坐标系设置为longlat

proj4string(OA.Census) <- CRS("+proj=longlat +datum=WGS84")

映射

tm_shape(OA.Census) + tm_fill(c("Population"), 
                              style = "fixed", breaks =c(0, 50000, 100000, 300000, 600000, 1000000, 1600000),
                              palette = "-RdYlGn",
                              title = c("Population"))+
  tm_borders(alpha=.4) +tm_scale_bar(position=c("left", "bottom"),size=0.75)+
  tm_compass(position=c("center", "top"))+ 
  tm_layout(fontfamily ="serif",legend.text.size = 1.1, legend.title.size = 1.4, legend.position = c("right", "bottom"), frame = T)

它给了我enter image description here

绿色逐渐褪色。在早期版本中,使用auto.palette.mapping=FALSE给了我完美的映射。 当我删除style = "fixed", breaks =c(0, 50000, 100000, 300000, 600000, 1000000, 1600000),这部分时,它会等间隔地给我调色板中的所有颜色。enter image description here

该代码的数据已在以下链接http://www.filedropper.com/mappingtmap中提供。

0 个答案:

没有答案