1

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

当我使用下面的代码从闪亮项目中的这些 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)
  )
})
4

0 回答 0