International Airports in the Dominican Republic

This map shows the 8 international airports that the Dominican Republic has. The map also shows in blue circles the largest cities in the country, where the size of the circle represents how large is its population.

library(leaflet)

# Reading dataset with dominican cities, population and location
data_do <- read.csv("https://simplemaps.com/static/data/country-cities/do/do.csv")

# Creating dataset with dominican international airports location
names <- c("María Montez International Airport","Punta Cana International Airport",
           "La Romana International Airport","Gregorio Luperón International Airport",
           "Samaná El Catey International Airport","Cibao International Airport",
           "El Higüero","Las Américas-JFPG International Airport")
lat <- c(18.252778,18.566667,18.452222,19.757778,19.27,19.406111,18.572222,18.429444)
lng <- c(-71.122222,-68.351944,-68.911111,-70.57,-69.7375,-70.604722,-69.985556,-69.668889)
dr_airports <- data.frame(names,lat,lng)

# Creating airport icon
airportIcon <- makeIcon(
  iconUrl = "https://icon-library.com/images/airport-icon-png/airport-icon-png-29.jpg",
  iconWidth = 31,
  iconHeight = 31)

# Creating interactive map
leaflet() %>%
  addTiles() %>%
  addCircles(lat = data_do$lat, 
             lng = data_do$lng, 
             label = data_do$city,
             weight = 1, 
             radius = sqrt(data_do$population) * 10) %>%
  addMarkers(lat = dr_airports$lat, 
             lng = dr_airports$lng, 
             label = dr_airports$names,
             icon = airportIcon)