Beautiful places to visit in my area Trikala Greece

Loading the leaflet library

library(leaflet)

Adding the places

meteora <- data.frame(lat=c(39.7217,39.5557,39.5043,39.2972,39.4245), long=c(21.6306,21.7679,21.5351,21.7525,21.5136))

Adding the popups

Popups <- c("https://meteora.com/","https://trikalacity.gr/en/",
                  "https://madeintrikala.gr/elati-pertouli/",
                  "https://www.discovergreece.com/el/thessaly-sporades/lake-plastira",
                  "http://www.wondergreece.gr/v1/el/Perioxes/N_Trikalwn/Fysi/Katarraktes/2130-Katarraktis_Palaiokaryas")

Creating the map

map <- meteora %>% 
  leaflet() %>%
  addTiles() %>%
  addMarkers(popup = Popups)
map