leaflet()%>%
addTiles()%>%
setView(lat = 51.545483, lng=9.905548,zoom=18)%>%
addMarkers(lng = Ein$Longitude, lat = Ein$Latitude, popup =
str_c(as.character(Ein$Ein),"Einstiege:",as.character(Ein$Einstiege),
"Ausstiege:", as.character(Ein$Ausstiege),sep="<br/>") ,label =
as.character(Ein$Ein))%>%
addPolylines(data=lines1,color=~pal(lines1@data$`(pers = n())`),fillOpacity
= 1,popup =str_c(as.character(lines1@data$ref), "Durchschnittliche
Stationen", as.character(lines1@data$`(Stationen =
mean(round(StationenGesamt, 2), na.rm = TRUE))`),"Durchschnittliche
WLQ:",as.character(lines1@data$WLQ),sep="<br/>"))%>%
addLegend(position="bottomright",pal=pal, values=lines1@data$`(pers = n())`,
labels)%>%
registerPlugin(polylineoffset_Plugin)