传单R中的空白弹出窗口

Question

我正在尝试在地图上绘制旧金山的罪行。 以下代码旨在映射每种犯罪（经纬度），单击标记时，将显示数据集的“类别”列。 现在，当我单击标记时，下面的代码显示一个空白文本框。 有人可以帮忙吗？

    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())

Answer 1

请尝试以下操作：

sf <- read.csv("https://raw.githubusercontent.com/uwescience/datasci_course_materials/master/assignment6/sanfrancisco_incidents_summer_2014.csv")

library(leaflet)

sf %>% 
   leaflet() %>%
   addTiles() %>%
   addMarkers(lat = ~Y, lng = ~X, popup = ~Category, clusterOptions = markerClusterOptions())

我不确定您的问题是什么，但是使用公式语法可以使Leaflet自行构建弹出标签列表，并且不需要显式调用paste或子集原始数据帧。