将多边形添加到地图R传单

我正在尝试使用

rCharts

包显示带有R的地图。我开始简单，所以我想添加一个多边形到我的地图。但我不知道怎么做。有什么想法吗<代码>添加多边形不起作用

map <- Leaflet$new()


map$tileLayer(provider = 'Stamen.TonerLite')

map$setView(c(48.1, 16.7), zoom = 10)
map$addPolygon(
  c(48.99831, 49.08815, 49.08815, 48.99831, 48.99831),
  c(13.42666, 13.42666, 13.56383, 13.56358, 13.42666),
  layerId=c("1"),
  options=opts,
  defaultOptions=opts)
map

---

map通过转换为geoJSON格式将多边形添加到地图中，如rCharts源代码中的示例10所示：

请注意geoJSON和setView中的xy坐标之间的lat和long有多么不同。这里的代码给了我一个靠近德国的捷克共和国的蓝色盒子

xy = cbind(
  c(13.42666, 13.42666, 13.56383, 13.56358, 13.42666),
    c(48.99831, 49.08815, 49.08815, 48.99831, 48.99831)
    )

xyjson = RJSONIO::toJSON(xy)

jsonX = paste(
    '{"type":"FeatureCollection","features":[
        {"type":"Feature",
         "properties":{"region_id":1, "region_name":"My Region"},
         "geometry":{"type":"Polygon","coordinates": [ ',xyjson,' ]}}
       ]
      }')

polys = RJSONIO::fromJSON(jsonX)
map = Leaflet$new()
map$tileLayer(provider = 'Stamen.TonerLite')
map$setView(c(49.1,13.5), zoom = 8)
map$geoJson(polys)
map
# or print(map) from a script probably.

如果您有多个多边形，则需要创建多个
{“类型”结构：“
”、
，并在
“FeatureCollection”的
“features”
的方括号内用逗号分隔它们
。为了更好地显示结构，我重新缩进了一些内容。现在，像
brew
包这样的模板系统将帮助您……
通过转换为geoJSON格式将多边形添加到地图中，如rCharts源代码中的示例10所示：

请注意geoJSON和setView中的xy坐标之间的lat和long有多么不同。这里的代码给了我一个靠近德国的捷克共和国的蓝色方框

xy = cbind(
  c(13.42666, 13.42666, 13.56383, 13.56358, 13.42666),
    c(48.99831, 49.08815, 49.08815, 48.99831, 48.99831)
    )

xyjson = RJSONIO::toJSON(xy)

jsonX = paste(
    '{"type":"FeatureCollection","features":[
        {"type":"Feature",
         "properties":{"region_id":1, "region_name":"My Region"},
         "geometry":{"type":"Polygon","coordinates": [ ',xyjson,' ]}}
       ]
      }')

polys = RJSONIO::fromJSON(jsonX)
map = Leaflet$new()
map$tileLayer(provider = 'Stamen.TonerLite')
map$setView(c(49.1,13.5), zoom = 8)
map$geoJson(polys)
map
# or print(map) from a script probably.

如果您有多个多边形，则需要创建多个
{“类型”结构：“
”、
，并在
“FeatureCollection”的
“features”
的方括号内用逗号分隔它们
。为了更好地显示结构，我对内容进行了缩进。现在，像
brew
软件包这样的模板系统将帮助您……
“无法工作”如何？错误消息？在地图上看不到它？它在代码中吗？你是指
传单
包吗？还是不是来自CRAN的其他东西？在哪里？什么版本？我正在使用“rCharts”包，我得到以下错误消息：envRefInferField中的错误（x，What，getClass（class（x）），selfEnv）：“addPolygon”不是引用类“传单”的有效字段或方法名。您为什么会认为“addPolygon”有什么办法吗？你在什么地方读过吗？软件包里没有这样的东西……你说得对！你知道我可以用什么函数向我的地图添加多边形吗？用leaftletR软件包会更容易吗？我的传单软件包的问题是，一旦我做了，我就不知道如何在shiny中实现地图。“不工作”怎么办？错误消息？在地图上看不到它？它在代码中吗？你是指
传单
包吗？还是不是来自CRAN的其他东西？在哪里？什么版本？我正在使用“rCharts”包，我得到以下错误消息：envRefInferField（x，What，getClass（x）），selfEnv中的错误：“addPolygon”不是引用类“传单”的有效字段或方法名“What Making you think”addPolygon"有什么办法吗？你在什么地方读过吗？软件包里没有这样的东西……你说得对！你知道我可以用什么函数向我的地图添加多边形吗？用leaftletR软件包会更容易吗？我的传单软件包的问题是，一旦我制作了地图，我就不知道如何实现它。新的bie的问题是，那么我怎么能画两个多边形呢？（我实际上要画几百个，我也希望能给多边形添加标签/弹出窗口/颜色）我怀疑要求软件包作者添加一些功能可能会更容易，因为这是一种非常常见的用法-但我已经编辑了一些，以说明如何在原则上做到这一点。新手问题，但我如何才能绘制两个多边形？（我实际上要绘制数百个，也希望能够为多边形添加标签/弹出窗口/颜色）我怀疑要求软件包作者添加一些功能可能会更容易，因为这是一种非常常见的用法——但我已经编辑了一些内容，以说明如何在原则上做到这一点。