3

我想使用 R 中的世界地图来可视化我的数据，其中要在某些点（给定坐标）添加标签。标签应该是一些 3D 矩形，其高度与数据表中的值成比例。我会使用 R 包“传单”（或任何替代方案，如果更好的话）。全世界大约有10-15个点，每个位置有两个值（具体来说，点是主要油田的位置，值是例如规模和储量）。我希望每个点有两个这样的 3D 矩形，比如说，红色和蓝色彼此靠近，具有适当的高度和数字，并且每个点都标有油田的名称。我找到了带有传单包的解决方案，将圆圈添加到具有适当半径的地图中。

数据和库由代码加载：

library(leaflet)
basins<-read.csv("somedata.csv")

somedata.csv 具有以下结构（四个数据线仅作为最小的工作示例）：

basin,lat,lon,res.density,rel.area
Central Sumatra,1,96,16.7,75
North Sea,58.4,2,20,24
Maracaibo basin,9,-71,74.4,14.3
Los Angeles,33,-118,31.2,32

圆圈标记的地图由命令调用

m=leaflet(data = basins) %>% addTiles() %>% addCircleMarkers(~lon, ~lat , popup = ~as.character(basin),radius=~res.density*0.4,label=~htmlEscape(basin),labelOptions=labelOptions(noHide=T,textOnly=TRUE,direction="bottom"))

然而，这个解决方案不是很好，因为它不允许可视化第二个值（通过参数 radius=~res.density ，其中 res.density 是我的 .csv 表中盆地的第一个值的名称）。

我想复制一些看起来像这张图片的东西，它是由 GMT 制作的。有一个普通（2D）地图就足够了，但是每个点需要两个这样的矩形，每个矩形的字段名称和值。

图片来自 GMT 包

在此处输入图像描述

4

1 回答 1

9

您可以在包的帮助下添加条形图 leaflet.minicharts，如下所示：

library("leaflet")
library("htmltools")
library("leaflet.minicharts")

basins <- read.table(text="basin,lat,lon,res.density,rel.area
Central Sumatra,1,96,16.7,75
North Sea,58.4,2,20,24
Maracaibo basin,9,-71,74.4,14.3
Los Angeles,33,-118,31.2,32", header=T, sep=",")

leaflet(data = basins) %>% 
  addProviderTiles("OpenStreetMap.Mapnik") %>% 
  addLabelOnlyMarkers(lng = ~lon, lat = ~lat, label = ~htmlEscape(basin),
                      labelOptions = labelOptions(noHide = TRUE, textOnly = TRUE, 
                                                  direction = "bottom", offset = c(0,5))) %>%
  addMinicharts(basins$lon, basins$lat, type = "bar", 
                chartdata = basins[, c("res.density", "rel.area")], width = 50, height = 60)

可能为了简单起见，您可以省略 addCircleMarkers。

在此处输入图像描述

于 2017-08-07T08:37:35.597 回答