我试图在地图上绘制旧金山的罪行。下面的代码旨在映射每个犯罪(纬度、经度),当单击标记时,显示数据集的“类别”列。现在,当我单击标记时,下面的代码会显示一个空白文本框。有人可以帮忙吗?
sf <- read.csv("https://raw.githubusercontent.com/uwescience/datasci_course_materials/master/assignment6/sanfrancisco_incidents_summer_2014.csv")
crime <- data.frame(lat = c(sf$Y),
lng = c(sf$X))
cat <- c(sf$Category)
library(leaflet)
crime %>%
leaflet() %>%
addTiles() %>%
addMarkers(popup = paste(sf$Category), clusterOptions = markerClusterOptions())