如何在tmap中设置标题和图例的位置？

Question

我是编程新手，目前正在学习使用R进行空间分析的入门课程。以下代码生成了下面的tmaps。如何使每个tmap的标题居中，并将图例放在右上角而不覆盖地图本身？

非常感谢您的帮助。

  ga1 = tm_shape(a2georgia) +
  tm_polygons('PctBlack', style='quantile', breaks=c(4.98,11.75, 22.35,27.64, 32.55, 40.06,   48.18, 79.64),
              n=8, palette=c('lightblue','khaki1', 'red3'), title='Quantiles(8)',
              border.col='grey27', alpha=.9) +
  tm_layout(legend.position = c("right", "top"), title= '% of Population of Black Race', title.position = c('right', 'top'))


ga_cartogram <- cartogram_cont(a2georgia, "PctBlack", itermax=5)

  ga2 = tm_shape(ga_cartogram) + 
  tm_polygons("PctBlack", style='quantile', breaks=c(4.98,11.75, 22.35,27.64, 32.55, 40.06, 48.18, 79.64), 
              n=8, palette=c('lightblue','khaki1', 'red3'), title='Quantiles(8)',
              border.col='grey27', alpha=.9) +
  tm_layout(legend.position = c("right", "top"), title= '% of Population of Black Race',  title.position = c('right', 'top'))


tmap_arrange(ga1,ga2)

- Hubmeister

---

文档中似乎有 main.title.position，可能的值是 center。你看过吗？ - Roman Luštrik

刚刚尝试了一下，图例的位置变高了，但仍然略微超过地图。主标题没有受到影响。 - Hubmeister

Answer 1

问题在于{tmap}在多边形的边界框内绘制图例和标题。为了腾出更多空间，您需要稍微扩展边界框。

我以前写过一篇关于这个主题的博客文章，您可能想看一下：https://www.jla-data.net/eng/adjusting-bounding-box-of-a-tmap-map/ 由于您的示例不完全可重现，因此我将在与{sf}捆绑并因此广泛可用的北卡罗来纳州形状文件上演示该技术。

library(sf)
library(tmap)

# NC counties - a shapefile shipped with the sf package
nc <- st_read(system.file("shape/nc.shp", package ="sf"))


# bad, bad map...
tm_shape(nc) + tm_polygons("NWBIR74", style='quantile', 
                           breaks=c(4.98,11.75, 22.35,27.64, 32.55, 40.06, 48.18, 79.64),
                           n=8, palette=c('lightblue','khaki1', 'red3'), 
                           title='Quantiles(8)',
                           border.col='grey27', alpha=.9) +
  tm_layout(legend.position = c("right", "top"), 
            title= '% of Population of Black Race', 
            title.position = c('right', 'top'))

# make some bbox magic
bbox_new <- st_bbox(nc) # current bounding box

xrange <- bbox_new$xmax - bbox_new$xmin # range of x values
yrange <- bbox_new$ymax - bbox_new$ymin # range of y values

# bbox_new[1] <- bbox_new[1] - (0.25 * xrange) # xmin - left
 bbox_new[3] <- bbox_new[3] + (0.25 * xrange) # xmax - right
# bbox_new[2] <- bbox_new[2] - (0.25 * yrange) # ymin - bottom
bbox_new[4] <- bbox_new[4] + (0.2 * yrange) # ymax - top

bbox_new <- bbox_new %>%  # take the bounding box ...
  st_as_sfc() # ... and make it a sf polygon

# looks better, does it?
tm_shape(nc, bbox = bbox_new) + tm_polygons("NWBIR74", style='quantile', 
                           breaks=c(4.98,11.75, 22.35,27.64, 32.55, 40.06, 48.18, 79.64),
                           n=8, palette=c('lightblue','khaki1', 'red3'), 
                           title='Quantiles(8)',
                           border.col='grey27', alpha=.9) +
  tm_layout(legend.position = c("right", "top"), 
            title= '% of Population of Black Race', 
            title.position = c('right', 'top'))

- Jindra Lacko

---

太棒了，感谢您的回复。我可以请您澄清一下吗？您是说需要一个sf几何体吗？bbox_new <- bbox_new %>% #获取边界框... st_as_sfc() # ...并将其转换为sf多边形 - Hubmeister

sf::st_as_sfc是必需的，因为tmap::tm_shape的bbox参数需要一个几何体，而sf::st_bbox返回一个向量；请查看{sf}文档以获取更详细的解释 https://www.rdocumentation.org/packages/sf/versions/0.8-1/topics/st_bbox - Jindra Lacko