将列值放在qtm映射上

Question

我有一张地图，并希望放置地区的价值

工作代码

library(ggmap)
library(rgdal)
library(rgeos)
library(maptools)
library(dplyr)
library(tidyr)
library(tmap)

doe <- readOGR(dsn = ".", layer = "doesep")

qtm(shp = doe, fill = "sep12_PERC", fill.palette = "Blues", fill.title = "Installs")

输出

我想在地图上显示区号，即

我尝试了这个，但没有工作（地区专栏的名称是＆＃34; SchoolDist＆＃34;）

qtm(shp = doe, fill = "sep12_PERC", fill.palette = "Blues", fill.title = "Installs") + tm_layout(title = "SchoolDist", title.position=c("center", "center"))