如何将我的数据添加到tmap图层并绘制密度世界地图？

作者: 你咖喱人biss嗷
发布时间: 2024-12-26 04:03:32 (29天前)
转自：

3 条回复

0#
回复此人
一腔诗意喂了狗 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 您需要合并您的数据 <code> df </code> 至 <code> World </code> 这是一个 <code> SpatialPolygonsDataFrame </code> 。之后你就可以了 <code> 1950 </code> 列作为的一部分 <code> World </code> 多边形。 </p> <P> 的<strong> 编辑 </强> ：正如RobertH在评论中指出的那样，最好使用它 <code> World <- merge(World, df, by = "name") </code> </p> <pre class="lang-r prettyprint-override"> <code> library(tmap) data(World) str(World, max.level = 2) #> Formal class 'SpatialPolygonsDataFrame' [package "sp"] with 5 slots #> ..@ data :'data.frame': 177 obs. of 15 variables: #> ..@ polygons :List of 177 #> ..@ plotOrder : int [1:177] 136 7 28 31 169 23 9 74 5 84 ... #> ..@ bbox : num [1:2, 1:2] -16656124 -8451673 16656124 8375779 #> .. ..- attr(*, "dimnames")=List of 2 #> ..@ proj4string:Formal class 'CRS' [package "sp"] with 1 slot # Merge df data into World World <- sp::merge(World, df, by = "name") tm_shape(World) + tm_polygons("1950", palette = "Blues", title = "Income class", contrast = 0.7, border.col = "gray30", id = "name") + tm_text("iso_a3", size = "AREA", col = "gray30", root = 3) + tm_style_classic() </code> </pre> <P> <a href="https://i.stack.imgur.com/jJgy6.png" rel="nofollow noreferrer"> <img src =“https://i.stack.imgur.com/jJgy6.png”alt =“在此处输入图片说明”/> </A> </p> <P> 创建于2018-03-21由 <a href="http://reprex.tidyverse.org" rel="nofollow noreferrer"> 代表包 </A> （v0.2.0）。 </p> </DIV>

编辑
1#
回复此人
！啊啊 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 使用 <code> append_data </code> 功能来自 <code> tmaptools </code> ... </p> <pre> <code> library(tmap) library(tmaptools) data(World) df <- read.csv(header = T, text = " Country,Population United States,1000 Germany,3000 Brazil,5000 France,6000 ") World <- append_data(World, df, key.shp = "name", key.data = "Country", ignore.na = T) tm_shape(World) + tm_polygons("Population", title = "Pop Class", palette = "Blues", contrast = 0.7, border.col = "gray30", id = "name") + tm_text("iso_a3", size = "AREA", col = "gray30", root = 3) </code> </pre> </DIV>

编辑

登录后才能参与评论