リーフレットのマップに複数の等値線をプロットする方法

Question

これはRmapzenのパッケージを使って一度に1つのアイソクロネをプロットすることができます。codeで、各アイソクロナスはspオブジェクトとして生成されます。添付の写真のように地図？

Answer 1

こんにちは、TravelTime APIを使用してリーフレットマップに複数のアイソクロンを作成することは可能です。あなたは、アイソクロネの各形状、輸送モード、および最大旅行時間の出発/到着時間を設定するだけで済みます。これは、私の作品

Answer 2

：サンプル要求とget API keys from here

（私はこのAPIを作成するための責任が会社のために働く免責事項）を見てみましょう。しかし、ちょっと混乱します。 マップキーを変更することを忘れないでください。

library(rmapzen) 
library(leaflet) 
library(ggmap) 
#packages 

Sys.setenv(MAPZEN_KEY = "mapzen-******") 
#API key 

ucb <- geocode("Via Giovanni Spadolini 7, Milan, Italy") 
ucb1 <- geocode("Via Valtellina 15, Milan, Italy") 
#origin address 

iso5 <- as_sp(mz_isochrone(
    ucb, 
    costing_model = mz_costing$auto(), 
    contours = mz_contours(5), 
    polygons = TRUE 
)) 
iso15 <- as_sp(mz_isochrone(
    ucb, 
    costing_model = mz_costing$auto(), 
    contours = mz_contours(15), 
    polygons = TRUE 
)) 
iso1_5 <- as_sp(mz_isochrone(
    ucb1, 
    costing_model = mz_costing$auto(), 
    contours = mz_contours(5), 
    polygons = TRUE 
)) 
iso1_15 <- as_sp(mz_isochrone(
    ucb1, 
    costing_model = mz_costing$auto(), 
    contours = mz_contours(15), 
    polygons = TRUE 
)) 

m = leaflet() %>% 
    addProviderTiles("CartoDB.DarkMatter") %>% 
    addPolygons(data = iso15, color = "green", fillColor = "green", fillOpacity = .5)%>% 
    addPolygons(data = iso5, color = "blue", fillColor = "blue", fillOpacity = .5)%>% 
    addPolygons(data = iso1_15, color = "green", fillColor = "green", fillOpacity = .5)%>% 
    addPolygons(data = iso1_5, color = "blue", fillColor = "blue", fillOpacity = .5) 
m