List of the busiest airports in the United States

Data set

The information is aggregated from the following sources.

  1. https://en.wikipedia.org/wiki/List_of_the_busiest_airports_in_the_United_States
  2. https://opendata.socrata.com/dataset/Airport-Codes-mapped-to-Latitude-Longitude-in-the-/rxrh-4cxm/data
   rank code latitude longitude passenger_2107              city state
1     1  ATL  33.6367  -84.4281       51916451           Atlanta    GA
2     2  LAX  33.9425 -118.4072       42459545       Los Angeles    CA
3     3  ORD  41.9808  -87.9067       38593028           Chicago    IL
4     4  DFW  32.8969  -97.0381       33528927 Dallas-Fort Worth    TX
5     5  DEN  39.8617 -104.6731       30714011            Denver    CO
6     6  JFK  40.6397  -73.7789       29458297     New York City    NY
7     7  SFO  37.6189 -122.3750       27862429     San Francisco    CA
8     8  LAS  36.0800 -115.1522       24248814         Las Vegas    NV
9     9  SEA  47.4502 -122.3088       23518824           Seattle    WA
10   10  CLT  35.2139  -80.9431       22917874         Charlotte    NC
                                               name
1  Hartsfield Jackson Atlanta International Airport
2                 Los Angeles International Airport
3              Chicago O'Hare International Airport
4           Dallas/Fort Worth International Airport
5                      Denver International Airport
6             John F. Kennedy International Airport
7               San Francisco International Airport
8                    McCarran International Airport
9              Seattle Tacoma International Airport
10          Charlotte Douglas International Airport
                                                       link
1                                       http://www.atl.com/
2                                   https://www.flylax.com/
3  https://www.flychicago.com/ohare/home/pages/default.aspx
4                               https://www.dfwairport.com/
5                                https://www.flydenver.com/
6                               https://www.jfkairport.com/
7                        https://www.flysfo.com/flight-info
8                                 https://www.mccarran.com/
9                       https://www.portseattle.org/sea-tac
10             http://www.cltairport.com/Pages/default.aspx

Code

library(leaflet)

setwd("C:/Users/sc56603/DataScience/Developing Data Products/Assignment 1- R Markdown and Leaflet")
airportData <- read.csv("top10_us_airports.csv")
airportData <- airportData[, c("rank","code","latitude","longitude","passenger_2107","city","state",
                               "name","link")]

airportIcon <- makeIcon(
        iconUrl = "http://ortambo-airport.com/images/flights.svg",
        iconWidth = 31*215/230, iconHeight = 30,
        iconAnchorX = 31*215/230/2, iconAnchorY = 15
)

airportLatLong <- data.frame(lat = airportData$latitude, lng = airportData$longitude)
airportSites <- paste("<a href='", airportData$link, "'>", airportData$name ,"</a>",
                      "<BR>", airportData$city, ",", airportData$state,
                      "<BR><BR>Rank :", airportData$rank, "<BR>Code: ", airportData$code,
                      "<BR>Passengers: ", round(airportData$passenger_2107/1000000,2), "millions"
)

hoverLabels <- paste("#", airportData$rank, " ", airportData$code, 
                     " - ", airportData$name)

airportLatLong %>% 
        leaflet() %>%
        addTiles() %>%
        addMarkers(icon = airportIcon, popup = airportSites, label = hoverLabels)