是什么原因导致标记的位置在闪亮的传单图中不准确(约500米)?

时间:2017-11-18 23:36:38

标签: shiny leaflet r-leaflet

我正在尝试创建一个传单地图作为R-Shiny项目的一部分,该项目在我之前使用Google API从地址信息进行地理编码的位置显示圆圈标记。将lon / lat值放回Google可以得到地址的确切位置。

当我使用下面的代码从我的闪亮项目中的那些lon / lat值创建地图时,标记位置在随机方向上偏离了几百米(在最大缩放级别)。

根据谷歌搜索,我的猜测是它与标记因缩放级别或不兼容的地图投影而改变位置有关。

  output$mymap <- renderLeaflet({

alldata_sel = alldata  
if(input$dachverbandCheck != T){alldata_sel = filter(alldata_sel, Dachverband==input$dachverband)}
if(input$landkreisCheck != T){alldata_sel = filter(alldata_sel, Landkreis==input$landkreis)}
if(input$leistungstypCheck != T){alldata_sel = filter(alldata_sel, 
                                        LeistungstypBezeichnung==input$leistungstyp)}
if(input$traegerCheck != T){alldata_sel = filter(alldata_sel, Traegername==input$traeger)}

  #initialize map and setView
  leaflet(options = leafletOptions(minZoom = 5, maxZoom = 18)) %>%
  addProviderTiles(providers$CartoDB.Positron) %>% 
  addCircleMarkers(
    data = alldata_sel,
    lng=~longitude, # Longitude coordinates
    lat=~latitude, # Latitude coordinates
    radius=~KapRadius, 
    stroke=FALSE, # Circle stroke
    fillOpacity=0.5, # Circle Fill Opacity
    color = rgb(alldata_sel$colour_r, alldata_sel$colour_g, alldata_sel$colour_b,
                maxColorValue = 255)
  )
})

0 个答案:

没有答案