You had point data, not polygons.
library(leaflet)
plant <- data.frame(
stringsAsFactors = FALSE,
Name = c("University","University",
"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)
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…