Question

我们正在尝试制作一个自动化流程，我们在地图上绘制物种分布图。我们正在成功使用此代码，但似乎无法在单独的窗口中获取这些结果（分布图）。现在它只是在循环期间覆盖地图，所以我们最终只得到最后一个。我们使用的包是robis（来自obis网站）。

以下是我们使用的脚本：

year = 2006
while (year <= 2015) {
  data <- occurrence("Phocoena phocoena", year = year)
  mapp = leafletmap(data)
  show(mapp)
  year = year + 1
}

提前致谢。

Answer 1

由于您未在此处给出可重现的示例，因此使用leaflet

的示例代码

library(leaflet)
m <- leaflet() %>%
  addTiles(group = "OSM") %>%
  addProviderTiles("Stamen.TonerLite") %>%
  addLayersControl(baseGroups = c("OSM", "Stamen.TonerLite"))
ind <- c(1:10)
for (i in ind) {
  m <- addCircleMarkers(map = m,
                       lat = 40 + ind[i],
                       lng = 8 + ind[i],
                       color = "blue",
                       stroke = FALSE,
                       radius = 10,
                       fillOpacity = 0.8,
                       clusterOptions = markerClusterOptions())
}
print(m)

我希望有所帮助。如果没有，请提供您正在使用的数据和包裹。

在新窗口显示结果（传单地图）[R Studio]

1 个答案: