尝试从CSV数据构建地图。只是得到空白地图没有数据点

Question

这是我放在一起的一个小脚本。

opts_chunk$set(fig.height=expression(opts_current$get("fig.width")))

数据已下载，似乎没问题。

但是，我的地图上没有显示任何内容。

我试图按照以下链接中的示例进行操作。这似乎非常简单，但我似乎错过了一些关键的东西。

https://blogs.msdn.microsoft.com/visualstudio/2016/03/22/introducing-r-tools-for-visual-studio-3/

这里有没有人知道我做错了什么？

感谢。

Answer 1

addCircles需要每个啤酒厂的纬度和经度坐标来绘制地图上的点。在这种情况下，您可以从breweries_geocode数据集（从您下载啤酒厂数据的同一网页）获取它们并将它们合并到MyData：

MyData2 <- read.csv(file="http://www.grex.org/~ev/breweries_geocode.csv", header=TRUE, sep=",")

map <- 
  MyData %>% 
  left_join(MyData2, by=c("id")) %>%
  leaflet() %>% 
  addTiles() %>% 
  addCircles(~longitude, ~latitude, popup=~name, radius = 200, color="blue", opacity = 0.8)

map