Compare Locations/Events with Geobubble Charts in leaflet (03_05)

This lesson is called Compare Locations/Events with Geobubble Charts in leaflet (03_05), part of the Mapping with R course. This lesson is called Compare Locations/Events with Geobubble Charts in leaflet (03_05), part of the Mapping with R course.

Transcript

Click on the transcript to go to that point in the video. Please note that transcripts are auto generated and may contain minor inaccuracies.

Your Turn

Solution

library(tidyverse)
library(sf)
library(tigris)
library(rmapshaper)
library(janitor)
library(leaflet)

us_airport_passengers <- read_csv("data/us-airport-passenger-numbers_2019.csv")

us_airport_passengers_2019 <- us_airport_passengers %>% 
  mutate(airport = str_remove_all(airport, "[\\[].*[\\]]")) %>% 
  filter(year == 2019) %>% 
  slice_max(total_passengers, n = 10) %>% 
  st_as_sf(coords = c("long", "lat"))

us_contiguous_sf <- states() %>% 
  clean_names() %>% 
  mutate(statefp = as.numeric(statefp)) %>% 
  filter(statefp < 60,
         !statefp %in% c(2, 15)) %>% 
  ms_simplify()

popup_airport <- function(airport, passengers){
  
  format_passengers <- scales::number(passengers, scale = 1E-6, suffix = " Million", accuracy = 1)
  
  paste(
    airport, "flew", format_passengers, "passengers in 2019"
  )
  
}


# ==== Data viz ====

scale_airport <- function(passengers){
  
  sqrt(passengers) * 5E-3
  
}


us_airport_passengers_2019 <- us_airport_passengers_2019 %>% 
  arrange(desc(total_passengers))

leaflet() %>% 
  addPolygons(data = us_contiguous_sf,
              weight = 1,
              color = "white",
              fillColor = "forestgreen",
              fillOpacity = 0.7) %>% 
  addCircleMarkers(data = us_airport_passengers_2019,
                   radius = ~scale_airport(total_passengers),
                   fillColor = "grey",
                   fillOpacity = 1,
                   weight = 1,
                   color = "black",
                   label = ~airport,
                   popup = ~popup_airport(airport, total_passengers))

Open the 03_05 project.

Use the your-turn.R script in 03_05 to create a geobubble chart of the busiest airports in the US.

Ensure small circles are not overlapped by bigger circles
Give the circles both a fill color and border color
Add a label to each airport

Learn More

In the video I mentioned that the {leaflegend} package provides the ability to add a bubble size legend. The 03_05 folder also includes an example script demonstrating how to use this package.

I’ve purposefully not added the fill legend to this chart as I feel it is confusing using two different aesthetics to communicate the same variable. However, in the 03_06 folder I’ve included a script that shows you how to do this.