2016-05-16 17 views
2

這是一個小腳本,我把它放在一起。嘗試從CSV數據構建地圖。只是變得空白的地圖witrh沒有數據點

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

library(DT) 
datatable(MyData[,c("name","address1","address2","city","state","code","country")]) 


library(leaflet) 
map <- 
    MyData %>% 
    leaflet() %>% 
    addTiles() %>% 
    addCircles(~name, ~address1, ~address2, ~city, ~state, ~country, radius = 200, color="blue", opacity = 0.8) 
map 

數據已下載,看起來沒問題。

enter image description here

但是,沒有顯示在我的地圖。

enter image description here

我試圖遵循以下鏈接的例子。這似乎超級簡單,但我似乎缺少重要的東西。

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

是否有人在這裏有任何想法,我做錯了什麼?

謝謝。

回答

2

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 

enter image description here

+0

謝謝!非常棒!還必須有一種方法可以使用address1和addrss2,對。我做了一些關於如何從一個地址獲取經度和緯度的研究,而不使用Google的API。我嘗試了幾個庫,但沒有得到任何工作。有沒有一種方法玩具做這個與一些R包和地址1 +地址2,就像你在我發佈的原始鏈接中看到的一樣? – ryguy7272

+0

我還沒有嘗試從地址獲取緯度/經度,但我確定有一種方法。在你發佈的鏈接中,他們使用的數據已經包含lat和lon,所以他們不需要從地址中獲取經緯度。 – eipi10

相關問題