使用googleVis包在R中绘制位置变量时遇到问题？

Question

所以我有自行车盗窃的这个数据集（链接：https://www.opendataphilly.org/dataset/bicycle-thefts/resource/f9809381-76f6-4fca-8279-621e088ddaa0）。

我尝试使用此代码在R中绘制位置变量代码运行，然后我将进入一个新窗口，但它是空白的。什么都没有出现。

我做错了什么？

这是我尝试的内容：

我将数据集重命名为bt

install.packages("ggmap")
library(ggmap)
install.packages("googleVis")
library(googleVis)    

bt$LOCATION_B <- as.character(bt$LOCATION_B)
bt$geom <- gsub(",", ":", bt$geom)
placeNames <- as.character(bt$LOCATION_B)    
plotData <- data.frame(name = placeNames, latLong = unlist(bt$geom))

sites <- gvisMap(plotData, locationvar = "latLong", tipvar = "name",
    options = list(displayMode = "Markers", mapType = "terrain", 
     colorAxis = "{colors:['red', 'blue']}", height = 600,
    useMapTypeControl=TRUE, enableScrollWheel='TRUE'))       

积（点）