如何将R中的传单地图输出为可以使用Leaflet命令进行编辑的格式？

Question

我在使用R进行数据处理和使用GIS软件制作地图方面有一些经验，所以我只是尝试使用Leaflet for R软件包制作我的第一张Leaflet地图。 在本教程的基础上，我已经能够做到这一点，但是我想对最终地图进行一些调整，这些调整似乎可以使用“常规Leaflet”来实现，但不能使用R包（使用图块）图层标签仅在自定义地图窗格中显示，以便地理标签显示在我的多边形上方等）。 很好，除非我无法弄清楚地图输出文件中的哪些地方可以使用Leaflet语法进行必要的编辑。

我根据以下示例使用以下代码导出地图：

saveWidget(myMap, 'myMap.html', selfcontained = FALSE)    

我对HTML输出不是很熟悉。 我已经在QGIS中制作了已导出为HTML文件的地图，但是我不需要编辑源代码。 我正在寻找一个可以在其中添加Leaflet命令的文件。 index.html文件似乎是唯一包含我的地图特定信息的文件，其他文件包含index.html文件引用以显示地图的代码。 我以为这是使用Leaflet命令编辑代码的地方，但是它看起来根本不像我所看到的Leaflet映射代码示例。 我不包括我的全index.html文件在这里，因为它太长时间，但看起来一点都不像单张脚本这里 。 没有var =或L.tileLayer, L.polygon等。我看不到地图对象，只是坐标。

我假设发生的事情是，当我使用HTML窗口小部件输出Leaflet映射时，R转换为Leaflet，然后将其转换为基本Javascript，我在index.html文件中看到了。 所以首先，我想知道这是否正确。

如果正确的话，我的问题是：是否有一种方法可以将地图从R输出到Leaflet命令中，而不仅仅是Javascript中？

如果不正确，我的问题是：我可以使用Leaflet编辑我现在在地图输出文件夹中的文件吗？ （我可能会误解Leaflet，这是一个不同于典型Javascript的自定义命令库，对吧？）

如果这是一个非常基本的问题，我事先表示歉意，我绝对是这里的新手。

编辑：这是我的地图的HTML文件的图像。 我假设这都是基本的Javascript（或者甚至是简化的Javascript？），并且如果我想进一步调整地图，则必须在这里通过引用Leaflet源代码来完成。 除非有一种方法可以引用第一个答复中提到的htmlwidgets :: onRender命令中的Leaflet库，然后我才能在其中编写Leaflet。

地图的HTML文件

Answer 1

实际上， leaflet htmlwidget可以实现您在幕后所描述的功能。 代替直接的传单命令，它使用此处定义的方法来操作地图，如下面的屏幕快照所示。

来自R的呼叫

来自R的调用存储在map$x$calls 。 让我们使用?leaflet一些代码制作一个快速映射，以便我们看到正在发生的事情。

# from ?leaflet
library(leaflet)

rand_lng = function(n = 10) rnorm(n, -93.65, .01)
rand_lat = function(n = 10) rnorm(n, 42.0285, .01)

m = leaflet() %>%
  addTiles() %>%
  fitBounds(0, 40, 10, 50) %>%
  setView(-93.65, 42.0285, zoom = 17) %>% 
  addPopups(
    -93.65, 42.0285, 'Here is the <b>Department of Statistics</b>, ISU'
  ) %>%
  clearBounds()

m$x$calls

或更像是这样的图形（请参见此处的实时示例 ）。

创建传单小部件时，这些调用将作为JSON发送。 这种方法为使用传单提供了许多帮助，对于不熟悉传单或JavaScript的R用户特别有用。 但是，此中间步骤可能会使您要完成的工作稍微困难一些。

的OnRender

如果我理解正确，则htmlwidgets::onRender()可能完全符合您的要求。 让我们来看看它的作用。

htmlwidgets::onRender(
  m,
  "
  function(el, x, data) {
    // our leaflet map is available as this
    console.log(this);
  }
  "
)

如果您在浏览器中打开地图并使用开发人员工具（ctrl + shift + i）进行检查，您将看到传单地图可用于进一步操作。

跟进

希望对您有所帮助。 如果您还有其他问题，请告诉我，我们将竭诚为您解答。