{"id":1740,"date":"2015-11-07T11:10:26","date_gmt":"2015-11-07T10:10:26","guid":{"rendered":"http:\/\/pzd.hmy.temporary.site\/?p=1740"},"modified":"2017-04-28T18:24:51","modified_gmt":"2017-04-28T22:24:51","slug":"building-interactive-maps-with-leaflet","status":"publish","type":"post","link":"https:\/\/datascienceplus.com\/building-interactive-maps-with-leaflet\/","title":{"rendered":"Building Interactive Maps with Leaflet"},"content":{"rendered":"

Leaflet<\/a> is an JavaScript library for building interactive maps. RStudio<\/a> 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.<\/p>\n

As mentioned on the RStudio page, the basic steps to create a Leaflet map are:<\/p>\n

1. Create a map widget using leaflet()<\/code>
\n\t2. Add layers to the map using addTiles()<\/code>, addMarkers()<\/code>, etc.
\n\t3. Print the map.\n<\/p><\/blockquote>\n

Okay, let’s get started. We will need the leaflet<\/code> and magrittr<\/code> packages for this. <\/p>\n

Let’s create a basic map centered at San Francisco. First, we create a widget by calling leaflet()<\/code>. Then, we add tiles to the map using addTiles()<\/code>. By default, it uses Open Street Map<\/a> tiles. If you would like to use other tiles, please refer here<\/a>. 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()<\/code> function. The addMarker()<\/code> function allows us to add a marker at our desired location, with it’s own popup message!<\/p>\n

\r\nlibrary(leaflet)\r\nlibrary(magrittr)\r\n\r\nSFmap <- leaflet() %>% \r\n  addTiles() %>% \r\n  setView(-122.42, 37.78, zoom = 13) %>% \r\n  addMarkers(-122.42, 37.78, popup = 'Bay Area')\r\nSFmap<\/pre>\n
This gives the following map:
\n\"SFmap\"<\/a>
\nIf 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()<\/code> 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<\/a> and here<\/a>)!<\/p>\n
The above map with a circle marker can be built as follows:<\/p>\n
\r\nSFmap <- leaflet() %>% \r\n  addTiles() %>% \r\n  setView(-122.42, 37.78, zoom = 13) %>% \r\n  addCircleMarkers(-122.42, 37.78, popup = 'Bay Area', radius = 5, color = 'red')<\/pre>\n
and looks likes this:
\n\"SFmap\"<\/a><\/p>\n
Let’s plot an interactive map showing the location of incidents reported to the San Francisco Police Department. The data is available here<\/a>. Let’s read in the data and see what it looks like.<\/p>\n
SFdata <- read.csv('SFPD_Incidents_-_Current_Year__2015_.csv')\r\nhead(SFdata)\r\n  IncidntNum               Category                                              Descript DayOfWeek       Date  Time PdDistrict      Resolution                Address         X        Y\r\n1  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\r\n2  150927700 SEX OFFENSES, FORCIBLE                                        SEXUAL BATTERY  Thursday 10\/22\/2015 23:59    CENTRAL            NONE 900 Block of SUTTER ST -122.4160 37.78823\r\n3  150926570                ASSAULT                                               BATTERY  Thursday 10\/22\/2015 23:45   RICHMOND            NONE   100 Block of 19TH AV -122.4787 37.78508\r\n4  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\r\n5  156262768          LARCENY\/THEFT                               PETTY THEFT OF PROPERTY  Thursday 10\/22\/2015 23:40   SOUTHERN            NONE     MARKET ST \/ 6TH ST -122.4103 37.78223\r\n6  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<\/em><\/pre>\n
(There is another location column at the end which I omitted here as it is just a concatenation of the X and Y columns.)<\/p>\n
Now let us look at how many incidents of each category were reported.<\/p>\n
table(SFdata$Category)\r\n                      ARSON                     ASSAULT                  BAD CHECKS                     BRIBERY                    BURGLARY          DISORDERLY CONDUCT DRIVING UNDER THE INFLUENCE \r\n                        255                       10711                          26                          59                        4749                         396                         360 \r\n              DRUG\/NARCOTIC                 DRUNKENNESS                EMBEZZLEMENT                   EXTORTION             FAMILY OFFENSES      FORGERY\/COUNTERFEITING                       FRAUD \r\n                       3315                         473                         115                          25                          54                         561                        2523 \r\n                   GAMBLING                  KIDNAPPING               LARCENY\/THEFT                 LIQUOR LAWS                   LOITERING              MISSING PERSON                NON-CRIMINAL \r\n                         22                         286                       34683                         133                          24                        3755                       15360 \r\n             OTHER OFFENSES     PORNOGRAPHY\/OBSCENE MAT                PROSTITUTION                     ROBBERY                     RUNAWAY             SECONDARY CODES      SEX OFFENSES, FORCIBLE \r\n                      16143                           4                         261                        3054                         124                        1676                         687 \r\n SEX OFFENSES, NON FORCIBLE             STOLEN PROPERTY                     SUICIDE              SUSPICIOUS OCC                        TREA                    TRESPASS                   VANDALISM \r\n                         15                         777                          64                        4367                           1                        1093                        6309 \r\n              VEHICLE THEFT                    WARRANTS                 WEAPON LAWS \r\n                       6361                        5378                        1346 <\/em><\/pre>\n
To ensure that the map is plotted quickly, I am going to subset the data to only include observations pertaining to bribery or suicide.<\/p>\n
data <- subset(SFPDdata, Category == 'BRIBERY' | Category == 'SUICIDE')<\/pre>\n
Now, let us plot all these incidents on the map!<\/p>\n
SFMap %>% \r\n  addTiles() %>% \r\n  setView(-122.42, 37.78, zoom = 13) %>% \r\n  addMarkers(data = data, lng = ~ X, lat = ~ Y, popup = data$Category)\r\nSFMap<\/pre>\n
The map looks like this:
\n\"SFMap\"<\/a>
\nHere, clicking on each marker will give a popup showing whether the incident which occurred at that particular location was bribery or suicide.<\/p>\n
A lot of the markers are clumped together rather closely. We can cluster them together by specifying clusterOptions<\/code> as follows:<\/p>\n
SFMap %>%\r\n  addTiles() %>% \r\n  setView(-122.42, 37.78, zoom = 13) %>% \r\n  addCircleMarkers(data = data, lng = ~ X, lat = ~ Y, radius = 5, \r\n                   color = ~ ifelse(Category == 'BRIBERY', 'red', 'blue'),\r\n                   clusterOptions = markerClusterOptions())<\/pre>\n
which will give the following map:
\n\"SFMap\"<\/a>
\nThe 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.<\/p>\n
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<\/a>.<\/p>\n","protected":false},"excerpt":{"rendered":"
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 […]<\/p>\n","protected":false},"author":5,"featured_media":1749,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[8],"tags":[97,98,96,232],"class_list":["post-1740","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-visualizing-data","tag-leaflet","tag-maps","tag-plot","tag-rstats"],"views":12917,"_links":{"self":[{"href":"https:\/\/datascienceplus.com\/wp-json\/wp\/v2\/posts\/1740","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/datascienceplus.com\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/datascienceplus.com\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/datascienceplus.com\/wp-json\/wp\/v2\/users\/5"}],"replies":[{"embeddable":true,"href":"https:\/\/datascienceplus.com\/wp-json\/wp\/v2\/comments?post=1740"}],"version-history":[{"count":0,"href":"https:\/\/datascienceplus.com\/wp-json\/wp\/v2\/posts\/1740\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/datascienceplus.com\/wp-json\/wp\/v2\/media\/1749"}],"wp:attachment":[{"href":"https:\/\/datascienceplus.com\/wp-json\/wp\/v2\/media?parent=1740"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/datascienceplus.com\/wp-json\/wp\/v2\/categories?post=1740"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/datascienceplus.com\/wp-json\/wp\/v2\/tags?post=1740"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}