r - 您如何在 tmap 中定位标题和图例?
问题描述
我是编程新手,目前正在参加一个使用 R 的介绍性空间分析课程。以下代码产生了下面包含的 tmap。如何将每个 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)
解决方案
问题是 {tmap} 在多边形的边界框内绘制图例和标题。为了腾出更多空间,您必须稍微扩展边界框。
不久前我写了一篇关于这个主题的博客文章,你可能想看看那个https://www.jla-data.net/eng/adjusting-bounding-box-of-a-tmap-map/
由于您的示例不能完全重现,我将在北卡罗来纳州 shapefile 上演示该技术,该技术随 {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'))
推荐阅读
- flutter - 我有三个文本字段,想在前两个之间进行选择,并使用第三个
- amazon-web-services - 我应该为 AWS 路由 53 DNS 设置使用哪些名称服务器
- python - 如何将多台计算机连接到套接字服务器?
- c++ - 如何使字符串出现在编译的二进制可执行文件的开头?
- python - 多次将 numpy.argpartition() 分配给列表元素时的内存泄漏
- python - 位图数组如何比逻辑数组更有效?
- c# - C# asp.net 更新 gridview 值而不刷新页面
- javascript - 在 JavaScript 中同时读/写 var
- java - Java 电子邮件侦听器
- paypal - 用于客户未来付款的贝宝 sdk 集成