我正在尝试创建一个传单地图作为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)
)
})