我在 R Leafjet 中在地图上放置标记时遇到问题

问题描述

这是我的代码：

m <- leaflet() %>%
  addProviderTiles(providers$Stamen.Toner) %>%
  setView(lng = -107.9917071,lat = 59.5,zoom = 3.5) %>%
  addpolygons(data = plant,color = "#660000",weight = 1,smoothFactor = 0.5) %>%
  addCircleMarkers(lng = plant$lon,lat = plant$lat)
m

无论我尝试什么，都会收到以下错误消息：

polygonData.default(data) 中的错误：不知道如何获取路径 来自类 spec_tbl_df 的对象的数据

我的数据来自的数据框是一个简单的 5 行 x 3 列坐标和地点名称。

想法？

解决方法

您有点数据，而不是多边形。

library(leaflet)

plant <- data.frame(
  stringsAsFactors = FALSE,Name = c("University","University","University"),lat = c(43.5339923,49.8091536,3.52682,49.2519564,45.5069177),lon = c(-80.2244647,-97.1330418,-113.5244937,-123.2465285,-73.5791163)
)


leaflet() %>%
  addProviderTiles(providers$Stamen.Toner) %>%
  setView(lng = -107.9917071,lat = 59.5,zoom = 3.5) %>%
  # I removed the addPolygons(),you are adding points,not polygons
  addCircleMarkers(lng = plant$lon,lat = plant$lat)