Question

我正在使用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命令中？

format（x，scientific = 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)

Answer 1

要更改格式，您需要将定义格式的函数传递给legend.format来电的tm_*部分。

我相信legend.format = list(fun = function(x) formatC(x, digits = 0, big.mark = " ", format = "f"))应该做到这一点。默认情况下，大间隔= 3，您可以省略它。

前段时间我写了一篇关于tmap图例格式的博客文章，其中包括使用C样式格式并在数字中添加货币/百分比符号。
请随意查看http://www.jla-data.net/2017/09/20/2017-09-19-tmap-legend/

编辑：现在我明白了！不是传说，而是地图上的标签！我的坏......

您需要在绘制之前将标签转换为文本。我无法重现您的代码，因此我在欧洲数据集中包含了一个示例，包含在tmap中。

library(tmap)
library(tidyverse)

data(Europe)

Europe$pop_est_adj <- as.character(formatC(Europe$pop_est, 
                                           big.mark = " ", 
                                           format = "f", 
                                           digits = 0))

tm_shape(Europe) + tm_borders() +
  tm_shape(Europe) + tm_text(text = "pop_est_adj", size = .7)

Answer 2

m1 <- tm_shape(World) +
      tm_polygons("pop_est", palette="RdYlGn", n=8,
          title="Población estimada", id="name",
          legend.show = FALSE) 
m2 <- tm_shape(World) +
      tm_polygons("pop_est", palette="RdYlGn", n=8,
          title="Población estimada", id="name") + 
      tm_layout(legend.only = TRUE,
                legend.format = list(text.separator = 'a',
                                     fun = function(x) formatC(x, digits = 0, big.mark = ".", format = "f")))
tmap_arrange(m1, m2)

tmap：如何将格式应用于小倍数等值线上的数字标签

2 个答案: