有什么方法可以使用 tm_layout 自定义图例直方图

Question

请看下面我用tmap包画的地图。我没有找到任何可用于自定义直方图图例字体的参数。从下面的代码中，您可以看到我已经设置了 legend.text.fontface = 'bold'。但是，这没有用。

psp1 <-   tm_shape(province) + 
  tm_borders(col = 'black') + 
  tm_shape(county) + 
  tm_polygons(col = '+1 °C', title = 'Changes in %', style = 'pretty', aes.palette = 'div', n=5, legend.hist = T) + 
  tm_compass(north = 0, type = 'arrow', show.labels =0, position = c('right','top')) + 
  tm_layout(legend.format = list(fun = function(x) formatC(x, digits = 1, format = "f")),
    legend.outside = T, legend.outside.position = 'bottom',
    legend.hist.width = 1,
    legend.hist.height = 0.5,
    legend.stack = 'horizontal',
    legend.title.fontface = 'bold',
    legend.text.fontface = 'bold')

Answer 1

非常有趣的问题。实际上，似乎无法使用 legend.text.fontface = 'bold'

更改直方图标签的字体

希望可以使用 tmap 库所基于的 base R 库 grid 来改变这一点。

所以，请在下面找到一个可能的解决方案来满足您的要求（希望这个答案不会来得太晚并且它仍然对您有用）

其他 Whosebug 用户的初步说明：为了运行下面的 reprex 正确，您需要首先下载 OP 在这个中提供的数据。

Reprex

第 1 步 - 使用图例构建地图

library(sf)
library(tmap)
library(RColorBrewer)


setwd("Add the path to your working directory")

# Import data
province <- st_read("province.shp")
county <- st_read("county.shp")


# Split the 'sf' object 'county' into a list of five 'sf' objects 
county_warm_list <- split(county , f = county$warming)

# Build the map with the legend
psp1 <- tm_shape(province) + 
  tm_borders(col = 'black') + 
  tm_shape(st_sf(county_warm_list[[3]])) +  # using the scenario +3°C
  tm_polygons(col = 'estimate', 
              title = 'Changes in %', 
              style = 'pretty', 
              aes.palette = 'div', 
              n=5, 
              legend.hist = TRUE, 
              midpoint = 0) + 
  tm_compass(north = 0, 
             type = 'arrow', 
             show.labels =0, 
             position = c('right','top')) + 
  tm_layout(legend.show = TRUE,
            legend.format = list(fun = function(x) formatC(x, digits = 1, format = "f")),
            legend.outside = TRUE, 
            legend.outside.position = 'bottom',
            legend.hist.width = 1,
            legend.hist.height = 0.5,
            legend.stack = 'horizontal',
            legend.title.fontface = 'bold',
            legend.text.fontface = 'bold')

第 2 步 - 将图例中的所有标签加粗（即包括直方图中的标签）

library(grid)

# Convert the 'tmap' object psp1 into a 'grob' object ('grob' = 'grid graphical object')
psp1 <- tmap_grob(psp1)


# Find the name of the element we want to change using 'grid.list()' which
# returns a listing of 'grobs' (including gTree)
grid.ls(psp1)
#> GRID.gTree.41
#>   multiple_1
#>     BG
#>       mapBG
#>       mapElements
#>         GRID.gTree.11
#>           tm_polygons_1_2
#>         GRID.gTree.12
#>           tm_polygons_1_3
#>       GRID.rect.13
#>       meta_with_bg
#>         meta
#>           GRID.gTree.16
#>             GRID.gTree.15
#>               compass
#>                 GRID.polygon.14
#>   outside_legend                 !!!! "outside_legend" element !!!!
#>     meta_with_bg
#>       meta
#>         legend
#>           GRID.rect.39
#>           GRID.gTree.40
#>             GRID.gTree.19
#>               GRID.gTree.18
#>                 GRID.text.17
#>             GRID.gTree.23
#>               GRID.gTree.22
#>                 GRID.rect.20
#>                 GRID.text.21
#>             GRID.gTree.38
#>               GRID.gTree.37
#>                 GRID.gTree.36
#>                   GRID.gTree.25
#>                     GRID.rect.24
#>                   GRID.gTree.27
#>                     GRID.polyline.26
#>                   GRID.gTree.29
#>                     GRID.text.28
#>                   GRID.gTree.33
#>                     GRID.gTree.30
#>                       GRID.lines.31
#>                       GRID.polyline.32
#>                   GRID.gTree.35
#>                     GRID.text.34

在上面 grob 个对象的列表中，您可以看到一个名为 "outside_legend" 的元素。因此，我们将修改它以将图例的字体加粗：

# Edit the 'outside_legend' element of the 'grob' object 'psp1' using  
# 'editGrob()' and save it in the new 'grob' object 'my_map'
my_map <- editGrob(psp1, gPath("outside_legend"), gp = gpar(fontface = "bold"))


# Draw the 'grob' object 'my_map' 
# !!!! NB: may take a few seconds to be displayed in the graphic device !!!!
grid.draw(my_map)

第 3 步 - 手动或程序保存地图 （在后一种情况下，您需要安装 rstudioapi 库）

rstudioapi::savePlotAsImage(
  "my_map.png",   # add the path if different of the working directory
  format = "png", # other possible formats: "jpeg", "bmp", "tiff", "emf", "svg", "eps"
  width = 670,
  height = 710
)

就是这样:-)

^{由 reprex package (v2.0.1)}

于 2022-01-30 创建

有什么方法可以使用 tm_layout 自定义图例直方图

Is there any way to customize legend histogram using tm_layout

r

tmap