First Leaflet

Europes Airports

This map shows you every European airport that has an IATA_FAA number. See data prep for source information

Data prep

airports <- 
      read.csv("https://raw.githubusercontent.com/jpatokal/openflights/master/data/airports.dat", 
               header = FALSE)
colnames(airports) <- c("ID", "name", "city", "country", "IATA_FAA", "ICAO", "lat", "lon", "altitude", "timezone", "DST")
airports<-airports[,c(2:9,12)]
airports<-airports[(grepl("Europ",airports[,9], ignore.case = T)) & airports$IATA_FAA!="\\N",]

Leaflet map for european airports

airports %>%
      leaflet() %>%
       addTiles() %>%
       addMarkers(
             popup = paste("City: ", airports$city,
                           "Name: ", airports$name,
                           "ICAO: ", airports$ICAO),
             clusterOptions = markerClusterOptions()
       )