update plot xy ; tidycen

Author: libjohn

01_georeference.Rmd

@@ -6,7 +6,7 @@ output: html_document
 ---
  
 
-To introduce the `library(mapview)` package, make an interactive map with Starbucks coffee shop locations in North Carolina (2012).  (Adapted from Machlis.)^[[5 Visualizations in 5 Minutes](http://www.computerworld.com/article/2893271/business-intelligence/5-data-visualizations-in-5-minutes-each-in-5-lines-or-less-of-r.html). ComputerWorld.com by Sharon Machlis]
+To introduce the [`mapview` package](https://r-spatial.github.io/mapview/index.html), make an interactive map with Starbucks coffee shop locations in North Carolina (2012).  (Adapted from Machlis.)^[[5 Visualizations in 5 Minutes](http://www.computerworld.com/article/2893271/business-intelligence/5-data-visualizations-in-5-minutes-each-in-5-lines-or-less-of-r.html). ComputerWorld.com by Sharon Machlis]
 
 
 ## Load Libraries
@@ -42,7 +42,9 @@ Transform our standard tibble (i.e. the starbucksNC data frame) into a spacial d
 sbuxsfc <- st_as_sf(starbucksNC, coords = c("Longitude", "Latitude"),  crs=4326)
 ```
 
-Below, you can set the `map.types` argument to `openStreetMap`.  Base maps are set with `map.types`.  For example a high contrast, black and white basemap can be set with the argument `map.types = "Stamen.Toner"`. See avaiable [map types](http://leaflet-extras.github.io/leaflet-providers/preview/), or leave out the map.types argument for a set of default base maps to choose via the layering button.
+## Visualize the Map
+
+Below, you can plot the latitude and longitude coordinate, and set the `map.types` argument to `openStreetMap`.  Base maps are set with `map.types`.  For example a high contrast, black and white basemap can be set with the argument `map.types = "Stamen.Toner"`. See available [map types](http://leaflet-extras.github.io/leaflet-providers/preview/), or leave out the map.types argument for a set of default base maps to choose via the layering button.
 
 ```{r plotmap}
 #mapview(sbuxsfc, map.types = "Stamen.Toner")
@@ -53,7 +55,7 @@ mapview(sbuxsfc)
 
 ## Save the Map
 
-You can save a map as an interalctive HTML page or a static `.png, .pdf, or .jpeg` file with the [`mapshot` function](https://r-spatial.github.io/mapview/reference/mapshot.html).  For example:
+You can save a map as an interactive HTML page or a static `.png, .pdf, or .jpeg` file with the [`mapshot` function](https://r-spatial.github.io/mapview/reference/mapshot.html).  For example:
 
 - `mapshot(starNCmap, file = "map.png")`
 - `mapshot(starNCmap, url = "map.html")`

02_choropleth.Rmd

@@ -8,10 +8,11 @@ The [tidycensus](https://walkerke.github.io/tidycensus/index.html) package, deve
 
 ```{r libraries, message=FALSE, warning=FALSE}
 library(tidyverse)
+library(stringr)
 library(tidycensus)
-library(leaflet)
 library(sf)
-library(stringr)
+library(leaflet)
+library(mapview)
 ```
 
 ## Census API Key
@@ -52,36 +53,16 @@ nc_pop <-
 
 
 
-## Make Choropleth in Leaflet
-
-
-Generate a color palette for the colors and legend
-
-```{r colorpalette}
-MapPalette <- colorQuantile(palette = "viridis", domain = nc_pop$estimate, n = 10)
-```
+## Make Choropleth via mapview
 
-Make choropleth by filling county polygons (census geography) with correlated value (population variable *B01003_001*).  
+Identify which variable will be used to create the color ramp shading.  Assign this variable with the `zcol` argument.  The `estimate` variable was extracted via the `tidycensus::get_acs()` function.
 
-`st_transform()` - converts coordinate system of simple features
 
 ```{r make_choropleth}
-nc_pop %>%
-    st_transform(crs = "+init=epsg:4326") %>%
-    leaflet(width = "100%") %>%
-    addProviderTiles(provider = "Stamen.TonerLines") %>%
-    addPolygons(popup = ~ str_extract(NAME, "^([^,]*)"),
-                stroke = FALSE,
-                smoothFactor = 0,
-                fillOpacity = 0.7,
-                color = ~ MapPalette(estimate)) %>%
-    addLegend("bottomright", 
-              pal = MapPalette, 
-              values = ~ estimate,
-              title = "Population percentiles",
-              opacity = 1)
+mapview(nc_pop, zcol = "estimate")
 ```
 
+
 ## Add another layer
 
 Now we'll geolocate the Starbucks stores and add those locations as a layer over our choropleth.  The Starbucks locations were generated and plotted in the previous exercise.  Here we regenerate the StarbuckNC object.
@@ -99,33 +80,32 @@ starbucksNC <- starbucks  %>%
   filter(State == "NC")
 ```
 
-Generate the map with multiple layers.
-
-```{r add_layer}
-nc_pop %>%
-    st_transform(crs = "+init=epsg:4326") %>%
-    leaflet(width = "100%") %>%
-    addProviderTiles(provider = "Stamen.TonerLines") %>%
-    addPolygons(popup = ~ str_extract(NAME, "^([^,]*)"),
-                stroke = FALSE,
-                smoothFactor = 0,
-                fillOpacity = 0.7,
-                color = ~ MapPalette(estimate)) %>%
-    addLegend("bottomright", 
-              pal = MapPalette, 
-              values = ~ estimate,
-              title = "Population percentiles",
-              opacity = 1) %>% 
-    addTiles() %>% 
-  # The next paragraph adds a layer from exercise 01
-    addCircleMarkers(data = starbucksNC, 
-               lat = ~ Latitude, 
-               lng = ~ Longitude, 
-               popup = starbucksNC$Name,
-               weight = 1,
-               radius = 0.6,
-               opacity = 0.5, 
-               color = "black")
+Convert the `starbuckNC` dataframe to a spatial (sf) object and assign the same projection as the `nc_pop` spatial object.
+
+```{r}
+starbucksNC <- st_as_sf(starbucksNC, coords = c("Longitude", "Latitude"),  crs = st_crs(nc_pop))
+```
+
+
+
+Generate the map with multiple layers.  You can read more about additional arguments such as `homebutton, legend, alpha, cex` in the [`mapview()` documentation](https://r-spatial.github.io/mapview/reference/mapView.html).  Read about the many more mapview functions in the [full documentation](https://r-spatial.github.io/mapview/reference/index.html).
+
+```{r}
+mymap <- mapview(nc_pop, 
+                 zcol = "estimate", 
+                 homebutton = FALSE) + 
+  mapview(starbucksNC, 
+          zcol = "Name", 
+          legend = FALSE, 
+          alpha = 0.5, cex = 3, 
+          homebutton = FALSE) 
+
+addLogo(mymap, "images/Rfun3.png",
+        position = "bottomright",
+        offset.x = 8,
+        offset.y = 38,
+        width = 100,
+        height = 100)
 ```
 
 ##  Census
@@ -152,6 +132,4 @@ In the [*tmap* section](031_thematic_mapping.html) of the [Simple Features modul
 
 This session based on 
 
-- Kyle Walker's [TidyCensus](https://walkerke.github.io/tidycensus/) package
-    
-- Julia Silge's [leaflet implementation of tidycensus](https://juliasilge.com/blog/using-tidycensus/)
+- Kyle Walker's [TidyCensus](https://walkerke.github.io/tidycensus/) package

docs/01_georeference.html

@@ -438,7 +438,7 @@
       <ul class="nav navbar-nav">
         <li class="dropdown">
   <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">
-    Home
+    Preface
 
     <span class="caret"></span>
   </a>
@@ -454,20 +454,8 @@
     </li>
   </ul>
 </li>
-<li class="dropdown">
-  <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">
-    Plot Coordinates
-     
-    <span class="caret"></span>
-  </a>
-  <ul class="dropdown-menu" role="menu">
-    <li>
-      <a href="01_georeference.html">Interactive map (leaflet)</a>
-    </li>
-    <li>
-      <a href="01_ggmap_georef.html">Static Map (ggmap)</a>
-    </li>
-  </ul>
+<li>
+  <a href="01_georeference.html">Plot Coordinates</a>
 </li>
 <li>
   <a href="02_choropleth.html">tidycensus</a>

docs/01_ggmap_georef.html

@@ -373,7 +373,7 @@
       <ul class="nav navbar-nav">
         <li class="dropdown">
   <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">
-    Home
+    Preface
 
     <span class="caret"></span>
   </a>
@@ -389,20 +389,8 @@
     </li>
   </ul>
 </li>
-<li class="dropdown">
-  <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">
-    Plot Coordinates
-     
-    <span class="caret"></span>
-  </a>
-  <ul class="dropdown-menu" role="menu">
-    <li>
-      <a href="01_georeference.html">Interactive map (leaflet)</a>
-    </li>
-    <li>
-      <a href="01_ggmap_georef.html">Static Map (ggmap)</a>
-    </li>
-  </ul>
+<li>
+  <a href="01_georeference.html">Plot Coordinates</a>
 </li>
 <li>
   <a href="02_choropleth.html">tidycensus</a>

docs/02_choropleth.html

@@ -438,7 +438,7 @@
       <ul class="nav navbar-nav">
         <li class="dropdown">
   <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">
-    Home
+    Preface
 
     <span class="caret"></span>
   </a>
@@ -454,20 +454,8 @@
     </li>
   </ul>
 </li>
-<li class="dropdown">
-  <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">
-    Plot Coordinates
-     
-    <span class="caret"></span>
-  </a>
-  <ul class="dropdown-menu" role="menu">
-    <li>
-      <a href="01_georeference.html">Interactive map (leaflet)</a>
-    </li>
-    <li>
-      <a href="01_ggmap_georef.html">Static Map (ggmap)</a>
-    </li>
-  </ul>
+<li>
+  <a href="01_georeference.html">Plot Coordinates</a>
 </li>
 <li>
   <a href="02_choropleth.html">tidycensus</a>

docs/030_thematic_sf.html

@@ -438,7 +438,7 @@
       <ul class="nav navbar-nav">
         <li class="dropdown">
   <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">
-    Home
+    Preface
 
     <span class="caret"></span>
   </a>
@@ -454,20 +454,8 @@
     </li>
   </ul>
 </li>
-<li class="dropdown">
-  <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">
-    Plot Coordinates
-     
-    <span class="caret"></span>
-  </a>
-  <ul class="dropdown-menu" role="menu">
-    <li>
-      <a href="01_georeference.html">Interactive map (leaflet)</a>
-    </li>
-    <li>
-      <a href="01_ggmap_georef.html">Static Map (ggmap)</a>
-    </li>
-  </ul>
+<li>
+  <a href="01_georeference.html">Plot Coordinates</a>
 </li>
 <li>
   <a href="02_choropleth.html">tidycensus</a>

docs/031_thematic_mapping.html

@@ -438,7 +438,7 @@
       <ul class="nav navbar-nav">
         <li class="dropdown">
   <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">
-    Home
+    Preface
 
     <span class="caret"></span>
   </a>
@@ -454,20 +454,8 @@
     </li>
   </ul>
 </li>
-<li class="dropdown">
-  <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">
-    Plot Coordinates
-     
-    <span class="caret"></span>
-  </a>
-  <ul class="dropdown-menu" role="menu">
-    <li>
-      <a href="01_georeference.html">Interactive map (leaflet)</a>
-    </li>
-    <li>
-      <a href="01_ggmap_georef.html">Static Map (ggmap)</a>
-    </li>
-  </ul>
+<li>
+  <a href="01_georeference.html">Plot Coordinates</a>
 </li>
 <li>
   <a href="02_choropleth.html">tidycensus</a>