Building Interactive Maps with Leaflet

[This article was first published on DataScience+, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Leaflet is an JavaScript library for building interactive maps. RStudio released a package that allows us to build these maps in R! You can do some really cool things in Leaflet, and I will demonstrate a few of those below. Leaflet is compatible with Shiny apps and R Markdown documents.

As mentioned on the RStudio page, the basic steps to create a Leaflet map are:

1. Create a map widget using leaflet()
2. Add layers to the map using addTiles(), addMarkers(), etc.
3. Print the map.

Okay, let’s get started. We will need the leaflet and magrittr packages for this.

Let’s create a basic map centered at San Francisco. First, we create a widget by calling leaflet(). Then, we add tiles to the map using addTiles(). By default, it uses Open Street Map tiles. If you would like to use other tiles, please refer here. We can set the desired longitude and latitude that we want the map to be centered at, and also set the zoom level using the setView() function. The addMarker() function allows us to add a marker at our desired location, with it’s own popup message!

library(leaflet)
library(magrittr)

SFmap <- leaflet() %>% 
  addTiles() %>% 
  setView(-122.42, 37.78, zoom = 13) %>% 
  addMarkers(-122.42, 37.78, popup = 'Bay Area')
SFmap

This gives the following map:
SFmap
If you click the blue marker, you will see a small popup with the text ‘Bay Area’. There are a variety of options to customize the marker. For example, addCircleMarkers() lets you use circle shaped markers instead of the default ones. You can even add your own icons to use as markers (more info here and here)!

The above map with a circle marker can be built as follows:

SFmap <- leaflet() %>% 
  addTiles() %>% 
  setView(-122.42, 37.78, zoom = 13) %>% 
  addCircleMarkers(-122.42, 37.78, popup = 'Bay Area', radius = 5, color = 'red')

and looks likes this:
SFmap

Let’s plot an interactive map showing the location of incidents reported to the San Francisco Police Department. The data is available here. Let’s read in the data and see what it looks like.

SFdata <- read.csv('SFPD_Incidents_-_Current_Year__2015_.csv')
head(SFdata)
  IncidntNum               Category                                              Descript DayOfWeek       Date  Time PdDistrict      Resolution                Address         X        Y
1  150927700               BURGLARY           BURGLARY OF APARTMENT HOUSE, UNLAWFUL ENTRY  Thursday 10/22/2015 23:59    CENTRAL            NONE 900 Block of SUTTER ST -122.4160 37.78823
2  150927700 SEX OFFENSES, FORCIBLE                                        SEXUAL BATTERY  Thursday 10/22/2015 23:59    CENTRAL            NONE 900 Block of SUTTER ST -122.4160 37.78823
3  150926570                ASSAULT                                               BATTERY  Thursday 10/22/2015 23:45   RICHMOND            NONE   100 Block of 19TH AV -122.4787 37.78508
4  150925312        STOLEN PROPERTY STOLEN PROPERTY, POSSESSION WITH KNOWLEDGE, RECEIVING  Thursday 10/22/2015 23:40   SOUTHERN JUVENILE BOOKED    0 Block of SPEAR ST -122.3949 37.79311
5  156262768          LARCENY/THEFT                               PETTY THEFT OF PROPERTY  Thursday 10/22/2015 23:40   SOUTHERN            NONE     MARKET ST / 6TH ST -122.4103 37.78223
6  150925312                ROBBERY                ROBBERY, ARMED WITH A DANGEROUS WEAPON  Thursday 10/22/2015 23:40   SOUTHERN JUVENILE BOOKED    0 Block of SPEAR ST -122.3949 37.79311

(There is another location column at the end which I omitted here as it is just a concatenation of the X and Y columns.)

Now let us look at how many incidents of each category were reported.

table(SFdata$Category)
                      ARSON                     ASSAULT                  BAD CHECKS                     BRIBERY                    BURGLARY          DISORDERLY CONDUCT DRIVING UNDER THE INFLUENCE 
                        255                       10711                          26                          59                        4749                         396                         360 
              DRUG/NARCOTIC                 DRUNKENNESS                EMBEZZLEMENT                   EXTORTION             FAMILY OFFENSES      FORGERY/COUNTERFEITING                       FRAUD 
                       3315                         473                         115                          25                          54                         561                        2523 
                   GAMBLING                  KIDNAPPING               LARCENY/THEFT                 LIQUOR LAWS                   LOITERING              MISSING PERSON                NON-CRIMINAL 
                         22                         286                       34683                         133                          24                        3755                       15360 
             OTHER OFFENSES     PORNOGRAPHY/OBSCENE MAT                PROSTITUTION                     ROBBERY                     RUNAWAY             SECONDARY CODES      SEX OFFENSES, FORCIBLE 
                      16143                           4                         261                        3054                         124                        1676                         687 
 SEX OFFENSES, NON FORCIBLE             STOLEN PROPERTY                     SUICIDE              SUSPICIOUS OCC                        TREA                    TRESPASS                   VANDALISM 
                         15                         777                          64                        4367                           1                        1093                        6309 
              VEHICLE THEFT                    WARRANTS                 WEAPON LAWS 
                       6361                        5378                        1346 

To ensure that the map is plotted quickly, I am going to subset the data to only include observations pertaining to bribery or suicide.

data <- subset(SFPDdata, Category == 'BRIBERY' | Category == 'SUICIDE')

Now, let us plot all these incidents on the map!

SFMap % 
  addTiles() %>% 
  setView(-122.42, 37.78, zoom = 13) %>% 
  addMarkers(data = data, lng = ~ X, lat = ~ Y, popup = data$Category)
SFMap

The map looks like this:
SFMap
Here, clicking on each marker will give a popup showing whether the incident which occurred at that particular location was bribery or suicide.

A lot of the markers are clumped together rather closely. We can cluster them together by specifying clusterOptions as follows:

SFMap % 
  addTiles() %>% 
  setView(-122.42, 37.78, zoom = 13) %>% 
  addCircleMarkers(data = data, lng = ~ X, lat = ~ Y, radius = 5, 
                   color = ~ ifelse(Category == 'BRIBERY', 'red', 'blue'),
                   clusterOptions = markerClusterOptions())

which will give the following map:
SFMap
The number inside each circle represents the total number of incidents in that area. Areas with higher incidents are marked by yellow circles and areas with lower incidents are marked by green circles. When you click on a cluster, the map will automatically zoom into that area and split into smaller clusters or show the individual incidents depending on how zoomed in you are. The circle markers are colored red for incidents corresponding to bribery, and blue for incidents corresponding to suicide.

That brings us to the end of the article. I hope you enjoyed it. If you have any questions/feedback, please feel free to leave a comment or reach out to me on Twitter.

To leave a comment for the author, please follow the link and comment on their blog: DataScience+.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)