我正在使用 tmap 绘制小倍数，每个竞争对手一个。我正在获得多个波兰的等值线地图，这些地图分为县，按销售值着色，例如 ggplot facet_wrap）。
首先，我将数据附加到一个 shp 文件中，并将每个竞争对手的值（对于一个国家的每个小地图）作为单独的列。每行是一个省。
county_marketshare<-df_monthly_val %>%
filter(win_name %in% best6) %>%
select(win_name,value,inv_province) %>%
group_by(win_name,inv_province)%>%
summarise(value=round(sum(value)),0)%>%
spread(key="win_name", value=value)
这一切都很好。然后我绘制我的形状。我的“best6”是列名称、竞争对手名称的列表，并且为每个名称打印一张地图，总共六张地图。
tm_shape(pl_geo) +
tm_polygons(best6,
id = "province",
palette = colfunc(20),
style="quantile", #("pretty", "fixed" (describe breaks))
legend.show = FALSE,
free.scales.fill=FALSE
)+
tm_text(text =c(best6), legend.size.show = FALSE,ymod = -0.7, size = .8 )
这些图还可以，但我对数字标签不满意，希望以更易读的方式格式化它们。
tm_text 在每个省的形状上打印值。请注意，作为参数文本，它采用列的向量名称以及每个竞争对手的每个省的值。
如何为 tmap 中的数字标签添加格式？例如，我怎样才能将以下行添加到我的 tm_text 命令？
格式（x，科学 = FALSE，big.mark=""，big.interval=3)}）
编辑：我尝试了 Jindra Lacko 的解决方案，图例标签按指定格式设置，但地图中仍然没有标签。
tm_shape(pl_geo) +
tm_polygons(best6,
id = "province",
palette = colfunc(20),
style="quantile", #("pretty", "fixed" (describe breaks))
legend.show = TRUE,
free.scales.fill=FALSE)+
tm_text(c(best6) , legend.size.show = FALSE,ymod = -0.7, size = 1,
legend.format = list(fun = function(x) formatC(x, digits = 0, big.mark = " ", format = "f")))
EDIT2：我想进一步澄清这个问题，因为它不是很清楚。
对于 choropleth 绘制小的 ultiples，如 ggplot2 中的 facet_wrap，在 tmap 中需要将“宽格式”的数据列附加到 shp 数据。（至少我从各种教程中了解到）
每个小图都从列中获取数据。
这意味着与一个图不同，tm_texts 获取列的名称，以便 tmap 可以打印小的倍数。这意味着我不能简单地重新格式化，将值更改为文本，因为那里没有值，但shp 数据中的列名。
最后编辑：按照 Jindra Lacko的回答，我创建了 6 列，与源数据一样多，并对其进行了格式化，以便我可以将它们分别传递给 tm_text：
county_marketshare<-df_monthly_val %>%
filter(win_name %in% best6) %>%
select(win_name,value,inv_province) %>%
group_by(win_name,inv_province)%>%
summarise(value=round(sum(value),0))%>%
spread(key="win_name", value=value, fill=0) %>% # teraz muszę stworzyc kolumny sformatowane "finansowo"
mutate(!!as.symbol(paste0(best6[1],"_lbl")):= formatC(!!as.symbol(best6[1]),digits = 0, big.mark = " ", format = "f",zero.print = ""),
!!as.symbol(paste0(best6[2],"_lbl")):= formatC(!!as.symbol(best6[2]),digits = 0, big.mark = " ", format = "f",zero.print = ""),
!!as.symbol(paste0(best6[3],"_lbl")):= formatC(!!as.symbol(best6[3]),digits = 0, big.mark = " ", format = "f",zero.print = ""),
!!as.symbol(paste0(best6[4],"_lbl")):= formatC(!!as.symbol(best6[4]),digits = 0, big.mark = " ", format = "f",zero.print = ""),
!!as.symbol(paste0(best6[5],"_lbl")):= formatC(!!as.symbol(best6[5]),digits = 0, big.mark = " ", format = "f",zero.print = ""),
!!as.symbol(paste0(best6[6],"_lbl")):= formatC(!!as.symbol(best6[6]),digits = 0, big.mark = " ", format = "f",zero.print = "")
)
county_marketshare$inv_province <- iconv(county_marketshare$inv_province,from = "utf-8", to = "ascii//TRANSLIT")
pl_geo <-
append_data(
shp = pl_geo,
data = county_marketshare,
key.shp = "jpt_nazwa_",
key.data = "inv_province",
ignore.na = T
)
然后我可以分别传递数字系列列的名称来为形状着色，并分别为 tm_text 传递文本格式的系列列的名称。
colfunc <- colorRampPalette(c("white","green"))
mytext <- paste0(pl_geo$jpt_nazwa_)
best6lab<-paste0(best6,"_lbl")
pl_best6suppl_prov<-
tm_shape(pl_geo) +
tm_polygons(best6,
id = "province",
palette = colfunc(40),
style="kmeans", #("pretty", "fixed" (describe breaks))
legend.show = FALSE)+
tm_facets(free.scales.fill = FALSE)+
tm_text("jpt_nazwa_", size = .7, legend.size.show = FALSE,col="darkgreen")+
tm_shape(pl_geo) +
tm_text(c(best6lab) , legend.size.show = FALSE,ymod = -0.7, size = 1) +
tm_layout(panel.labels = best6)
