My cycling route

Date: 01.02.2019

This blue route is called “Frankfurt Grüngürtel Radweg”

library(leaflet)
library(dplyr)

data=read.csv2(file="D:/Coursera/RWorkingDirectory/FrankfurtGrungurtel.csv", sep = ",", dec = "." )
data<-data[,c(1,2)]
names(data)<-c("lat","lng")
head(data)

my_map <- data %>% leaflet() %>% addTiles() %>% addCircles(weight =1, radius = 30, color = "blue") 
my_map <- my_map %>% addMarkers(lat =50.110640, lng=8.672915, popup = "I need a break!")
my_map