class: center, middle, inverse, title-slide # Leaflet Package Presentation ## RStudio ### Javante Foster ### Due: 05/15/19, Wednes. --- background-image: url(http://www.brooklyn.cuny.edu/web/abo_misc/180827_Map_689x892.jpg) background-position: center background-size: contain --- class: inverse, center, middle # *Warning -- class: inverse, center, middle ### This is A Very Short, -- class: inverse, center, middle ### Simple, -- class: inverse, center, middle ### Basic, -- class: inverse, center, middle ### Bare-bones, -- class: inverse, center, middle ### Tutorial for Leaflet Package --- # What is the Leaflet package? - create interactive map - rstudio and shinyapp --- # Leaflet Package? - Download "leaflet"package from the library -- `Tools -> Install Packages -> leaflet`; -- - Load the leaflet package ```r library(leaflet) ``` --- # From there? ## General Map --- ```r library(leaflet) leaflet() %>% addTiles() ``` <div id="htmlwidget-f094c51c7636384a1d84" style="width:504px;height:504px;" class="leaflet html-widget"></div> <script type="application/json" data-for="htmlwidget-f094c51c7636384a1d84">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"© <a href=\"http://openstreetmap.org\">OpenStreetMap<\/a> contributors, <a href=\"http://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA<\/a>"}]}]},"evals":[],"jsHooks":[]}</script> --- # Map features? -- - addMarkers() -- - the longitute (lng), latitude (lat), and popup name --- ```r leaflet() %>% addTiles() %>% addMarkers(lng = -73.952533, lat =40.631021, popup="CUNY Brooklyn College") ``` <div id="htmlwidget-3f02528f8132dede4518" style="width:504px;height:504px;" class="leaflet html-widget"></div> <script type="application/json" data-for="htmlwidget-3f02528f8132dede4518">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"© <a href=\"http://openstreetmap.org\">OpenStreetMap<\/a> contributors, <a href=\"http://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA<\/a>"}]},{"method":"addMarkers","args":[40.631021,-73.952533,null,null,null,{"interactive":true,"draggable":false,"keyboard":true,"title":"","alt":"","zIndexOffset":0,"opacity":1,"riseOnHover":false,"riseOffset":250},"CUNY Brooklyn College",null,null,null,null,{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null]}],"limits":{"lat":[40.631021,40.631021],"lng":[-73.952533,-73.952533]}},"evals":[],"jsHooks":[]}</script> --- # Markers - Changing Your Markers - addCircleMarkers([lng, lat]) --- Example: ```r leaflet() %>% addTiles() %>% addCircleMarkers(lng=-73.952533, lat=40.631021, popup="CUNY Brooklyn College") ``` <div id="htmlwidget-dc9716b5b6032d756b9e" style="width:504px;height:504px;" class="leaflet html-widget"></div> <script type="application/json" data-for="htmlwidget-dc9716b5b6032d756b9e">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"© <a href=\"http://openstreetmap.org\">OpenStreetMap<\/a> contributors, <a href=\"http://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA<\/a>"}]},{"method":"addCircleMarkers","args":[40.631021,-73.952533,10,null,null,{"interactive":true,"className":"","stroke":true,"color":"#03F","weight":5,"opacity":0.5,"fill":true,"fillColor":"#03F","fillOpacity":0.2},null,null,"CUNY Brooklyn College",null,null,{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null]}],"limits":{"lat":[40.631021,40.631021],"lng":[-73.952533,-73.952533]}},"evals":[],"jsHooks":[]}</script> --- ```r a <- runif(50,1,50) b <- runif(50,1,50) long_lat <- data.frame(a,b) leaflet(long_lat) %>% addTiles() %>% addCircleMarkers(lng = a, lat = b) ``` <div id="htmlwidget-024f92aa6cb6f4ddcfc1" style="width:504px;height:504px;" class="leaflet html-widget"></div> <script type="application/json" data-for="htmlwidget-024f92aa6cb6f4ddcfc1">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"© <a href=\"http://openstreetmap.org\">OpenStreetMap<\/a> contributors, <a href=\"http://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA<\/a>"}]},{"method":"addCircleMarkers","args":[[18.4491015335079,15.5882098095026,48.9657637621276,45.9012585573364,43.2102783138398,13.7056384631433,23.4358611651696,39.6901911874302,8.89224427356385,31.0223276973702,5.44472925527953,25.3050537554082,49.461524666287,4.76370138581842,14.6973086188082,49.2695269663818,11.5550746184308,23.7546739755198,16.7661065505818,31.1329314422328,6.0653635316994,36.2134040535893,37.7908453762066,8.4877902881708,26.2338703395799,36.9599688895978,22.9600599783007,40.6695549478754,26.7611040065531,32.2063747439533,47.2357449408155,31.3215482190717,26.1108716337476,45.4108293615282,16.3537490502931,14.2492939291988,41.6932335847523,24.7679785203654,32.4376340983436,4.00375401740894,7.51741521549411,19.7812804386485,47.1343920785002,32.2928479213733,21.7613987957593,43.9194654941093,6.58054308407009,5.06149077718146,6.9797106878832,45.4317254023626],[47.0828193284106,29.3402840860654,38.7860157785472,6.53841910045594,23.7223917082883,11.4649855329189,11.7207824944053,15.2677019056864,6.56058195210062,26.276222565677,13.0981028478127,1.50774637260474,16.8214089649264,28.3747491436079,25.7817430982832,10.7570529903751,43.6114990846254,43.6246527584735,14.3635933061596,5.73726824810728,43.1657634542789,30.0885044957977,5.21537140058354,35.8094793406781,35.9948146783281,1.60865728463978,9.66433241707273,23.5330992396921,21.6587340468541,31.4251249681693,1.46381692774594,16.1834608658683,29.0432756203227,33.6375921992585,21.8085135843139,35.9536514671054,47.7732836315408,43.4540462370496,40.6517550689168,38.040202969918,27.4217220398132,20.7706423287746,3.2808609479107,18.6533668846823,43.1909983383957,38.6272897541057,14.4636884960346,45.4614873162936,13.272279847879,42.9355027263518],10,null,null,{"interactive":true,"className":"","stroke":true,"color":"#03F","weight":5,"opacity":0.5,"fill":true,"fillColor":"#03F","fillOpacity":0.2},null,null,null,null,null,{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null]}],"limits":{"lat":[4.00375401740894,49.461524666287],"lng":[1.46381692774594,47.7732836315408]}},"evals":[],"jsHooks":[]}</script> --- # Markers - Change Colors -- - addCircleMarkers(color = '[insert color]') --- ```r a <- runif(50,1,50) b <- runif(50,1,50) long_lat <- data.frame(a,b) leaflet(long_lat) %>% addTiles() %>% addCircleMarkers(a, b, color = 'fuchsia') ``` <div id="htmlwidget-8a670b5cdcc446e840db" style="width:504px;height:504px;" class="leaflet html-widget"></div> <script type="application/json" data-for="htmlwidget-8a670b5cdcc446e840db">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"© <a href=\"http://openstreetmap.org\">OpenStreetMap<\/a> contributors, <a href=\"http://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA<\/a>"}]},{"method":"addCircleMarkers","args":[[47.0578559599817,48.745515048271,3.858735764632,39.3020845593419,41.6341106016189,5.64748768811114,48.7748276304919,29.9791631123517,38.9690363591071,16.0099964647088,10.5597923081368,4.35370048973709,26.9376326252241,44.83263038937,29.1827420566697,25.1119818121661,31.3556420512032,22.6570521441754,30.6785691108089,21.6360813968349,8.87872678763233,47.867615693016,35.778071493376,40.3063124211039,2.13288998394273,38.7029483951628,10.473412431078,30.086036325898,33.0429929562379,38.3804127543699,9.39423971367069,6.43972500180826,1.19508940097876,19.9903292644303,38.2192144414876,28.4045053303707,1.90569953154773,48.6626658220775,19.9253335951362,43.930768859107,26.6114242381882,29.4051937793847,36.0138752986677,7.3072883929126,46.2042542297859,48.1057041478343,35.8995943467598,37.2484815120697,36.6426319545135,11.608322451124],[23.4826207209844,47.3373058408033,48.8350249254145,25.5442266643513,33.9145933391992,20.1876547937281,18.9469405440614,33.8842766315211,30.7666224276181,40.0004063888919,39.8576052347198,11.4385236201342,24.1598825894762,42.2840214886237,28.6680127144791,36.6306415346917,34.4831844847649,44.6904816760216,35.8042340418324,49.9337186270859,17.4649617027026,40.0938431753311,15.7508127274923,3.44668499869294,24.7117725254502,20.5453365368303,27.6514219844248,48.9228032126557,7.49053893866949,11.4739479692653,10.3912960542366,8.27645394927822,46.6809895839542,42.2503588369582,18.7057485459372,16.03510259022,25.7374417639803,1.55258490843698,10.5581727973185,44.2548545887694,20.3919753173832,18.9877376614604,37.271116535645,35.2314592455514,46.23862023931,45.1216303573456,44.2829179866239,17.4260038505308,7.79026297200471,45.4932678174227],10,null,null,{"interactive":true,"className":"","stroke":true,"color":"fuchsia","weight":5,"opacity":0.5,"fill":true,"fillColor":"fuchsia","fillOpacity":0.2},null,null,null,null,null,{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null]}],"limits":{"lat":[1.19508940097876,48.7748276304919],"lng":[1.55258490843698,49.9337186270859]}},"evals":[],"jsHooks":[]}</script> --- ```r a <- runif(50,1,50) b <- runif(50,1,50) long_lat <- data.frame(a,b) leaflet(long_lat) %>% addTiles() %>% addCircleMarkers(a, b, color = 'burgundy') ``` <div id="htmlwidget-5b4cfaeadc4275ca299c" style="width:504px;height:504px;" class="leaflet html-widget"></div> <script type="application/json" data-for="htmlwidget-5b4cfaeadc4275ca299c">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"© <a href=\"http://openstreetmap.org\">OpenStreetMap<\/a> contributors, <a href=\"http://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA<\/a>"}]},{"method":"addCircleMarkers","args":[[5.00795720214956,29.6626647624653,39.6244638210628,12.8076873908285,32.1700128733646,46.1450446546078,30.7064968021587,16.8870370413642,31.4377251032274,1.64637183933519,10.7532902408857,46.6622462281957,31.9913464465644,16.7062058590818,35.3156489713583,38.492983621778,15.8383359047584,39.9444881670643,5.25396985583939,39.8999846705701,23.6119610106107,35.3819277316798,31.1665541406255,6.43929108325392,17.9169036552776,6.70052709756419,15.7818896882236,21.9111922746524,5.09227627981454,40.8172713243403,10.5537919015624,28.8840835390147,15.3036442783196,6.43640517233871,44.9526187838055,49.83738214802,24.8292547704186,19.1688514486887,23.3292624221649,16.8436686992645,31.547483577393,30.9032759116963,24.2506520214956,17.0585425342433,20.6571394046769,8.6696836091578,48.4727648361586,31.6411166733596,31.6388719885144,45.2159319005441],[23.9726125984453,2.38141698995605,29.3614114155062,47.5879495146219,29.4382477311883,15.5488758808933,27.3065325901844,22.7119801135268,21.1223930986598,1.25232175691053,40.3446884180885,3.62345138611272,8.99106263578869,21.2043560284656,21.0027894170489,14.4106002368499,24.8401098190807,39.4814190454781,35.2237005527131,27.5966257513501,24.4728721703868,29.1085521718487,18.8980064098723,1.98828204511665,36.9658331447281,27.5283960117958,35.3952855186071,41.5263729507569,31.3716733190231,43.3440365546849,47.7628532147501,26.987381990999,14.1723212338984,3.5619689123705,28.1679022770841,45.767532363534,16.1644655831624,21.2811520600226,28.0332120251842,36.8261294758413,35.4876485522836,16.6842165451963,48.2457999680191,13.3428199749906,24.8854674964678,43.8304230885115,48.2618439907674,13.7266359273344,27.2069836717565,29.5023044301197],10,null,null,{"interactive":true,"className":"","stroke":true,"color":"burgundy","weight":5,"opacity":0.5,"fill":true,"fillColor":"burgundy","fillOpacity":0.2},null,null,null,null,null,{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null]}],"limits":{"lat":[1.64637183933519,49.83738214802],"lng":[1.25232175691053,48.2618439907674]}},"evals":[],"jsHooks":[]}</script> --- # Markers - Create Your Own Icons -- - makeIcon() - iconUrl = [insert website link here], - iconWidth = [create your own size #], iconHeight = [create your own size #]) --- ```r CUNYBC <- makeIcon( iconUrl = "https://upload.wikimedia.org/wikipedia/commons/6/6c/2016_Brooklyn_College_Library.jpg", iconWidth = 70, iconHeight = 70) leaflet() %>% addTiles() %>% addMarkers(lng=-73.953558, lat=40.631021, popup="CUNY Brooklyn College", icon = CUNYBC) ``` <div id="htmlwidget-177efd1347fc3776529d" style="width:504px;height:504px;" class="leaflet html-widget"></div> <script type="application/json" data-for="htmlwidget-177efd1347fc3776529d">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"© <a href=\"http://openstreetmap.org\">OpenStreetMap<\/a> contributors, <a href=\"http://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA<\/a>"}]},{"method":"addMarkers","args":[40.631021,-73.953558,{"iconUrl":{"data":"https://upload.wikimedia.org/wikipedia/commons/6/6c/2016_Brooklyn_College_Library.jpg","index":0},"iconWidth":70,"iconHeight":70},null,null,{"interactive":true,"draggable":false,"keyboard":true,"title":"","alt":"","zIndexOffset":0,"opacity":1,"riseOnHover":false,"riseOffset":250},"CUNY Brooklyn College",null,null,null,null,{"interactive":false,"permanent":false,"direction":"auto","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"className":"","sticky":true},null]}],"limits":{"lat":[40.631021,40.631021],"lng":[-73.953558,-73.953558]}},"evals":[],"jsHooks":[]}</script> --- # Markers - Label Options, font, and font size -- - icon = CUNYBC, label = "Sup?", labelOptions = labelOptions(noHide = F, direction = "top", style = list("color" = "fuchsia","font-family" = "Snap ITC", "font-size" = "50px"))) --- ```r CUNYBC <- makeIcon( iconUrl = "https://upload.wikimedia.org/wikipedia/commons/6/6c/2016_Brooklyn_College_Library.jpg", iconWidth = 70, iconHeight = 70) leaflet() %>% addTiles() %>% addMarkers(lng=-73.953558, lat=40.631021, icon = CUNYBC, label = "Sup?", labelOptions = labelOptions(noHide = F, direction = "top", style = list("color" = "fuchsia", "font-family" = "Snap ITC", "font-size" = "50px"))) ``` <div id="htmlwidget-1ab7c02783bb72cf86a3" style="width:504px;height:504px;" class="leaflet html-widget"></div> <script type="application/json" data-for="htmlwidget-1ab7c02783bb72cf86a3">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"© <a href=\"http://openstreetmap.org\">OpenStreetMap<\/a> contributors, <a href=\"http://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA<\/a>"}]},{"method":"addMarkers","args":[40.631021,-73.953558,{"iconUrl":{"data":"https://upload.wikimedia.org/wikipedia/commons/6/6c/2016_Brooklyn_College_Library.jpg","index":0},"iconWidth":70,"iconHeight":70},null,null,{"interactive":true,"draggable":false,"keyboard":true,"title":"","alt":"","zIndexOffset":0,"opacity":1,"riseOnHover":false,"riseOffset":250},null,null,null,null,"Sup?",{"interactive":false,"permanent":false,"direction":"top","opacity":1,"offset":[0,0],"textsize":"10px","textOnly":false,"style":{"color":"fuchsia","font-family":"Snap ITC","font-size":"50px"},"className":"","sticky":true},null]}],"limits":{"lat":[40.631021,40.631021],"lng":[-73.953558,-73.953558]}},"evals":[],"jsHooks":[]}</script> --- # References - Leaflet for R. (2016). Retrieved from: https://rstudio.github.io/leaflet/ - Wikipedia, the free encyclopedia. (2019). Brooklyn College. Retrieved from: https://upload.wikimedia.org/wikipedia/commons/6/6c/2016_Brooklyn_College_Library.jpg - Wikipedia, the free encyclopedia. (2019). Brooklyn College Logo. Retrieved from: https://en.wikipedia.org/wiki/File:Brooklyn_College_Logo.svg --- background-image: url(https://upload.wikimedia.org/wikipedia/en/thumb/4/43/Brooklyn_College_Logo.svg/1024px-Brooklyn_College_Logo.svg.png) background-position: center background-size: contain # Please clap so I can leave!