tweaking language

Author: libjohn

01_georeference.Rmd

@@ -1,7 +1,7 @@
 ---
 title: Latitude and Longitude Coordinates
 ---
-Use the [`mapview` package](https://r-spatial.github.io/mapview/index.html) to make interactive maps.  In this example, georeference Starbucks coffee shop locations in North Carolina (2012)^[[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].
+Use the [`mapview` package](https://r-spatial.github.io/mapview/index.html) to make interactive maps.  In this example, georeference Starbucks coffee shop locations in North Carolina (2012). ^[[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
@@ -31,18 +31,18 @@ starbucksNC %>%
 
 ## Make the Map
 
-In this example, plot latitude (y coordinates) and longitude (x coordinates), then set the map projection^[[projection/CRS](https://guides.library.duke.edu/r-geospatial/CRS)] to a common projection standard, WGS84, via the argument `crs = 4326`.)
+In this example, plot latitude (y coordinates) and longitude (x coordinates).  Then set the map projection^[[Projection / CRS](https://guides.library.duke.edu/r-geospatial/CRS)] to a common projection standard such as _WGS84_ via the argument `crs = 4326`.)
 
 ```{r map1}
 mapview(starbucksNC, xcol = "Longitude", ycol = "Latitude", crs = 4269, grid = FALSE)
 ```
 
 ## Alternative: Transform data to Spatial object
 
-Another way to plot the x & y coordinates is by transforming the starbucksNC tibble (i.e. the starbucksNC data frame) into a spacial data frame via the simple features function, `st_as_sf()`. It's important to set the [map projection](https://en.wikipedia.org/wiki/Map_projection) to a common standard, WGS84, via the argument `crs = 4326`.)
+Another way to plot the x & y coordinates is by transforming the starbucksNC tibble (i.e. the starbucksNC data frame) into a spacial data frame via the simple features function, `st_as_sf()`. Again, set the [map projection](https://en.wikipedia.org/wiki/Map_projection) to a common standard such as _WGS84_ via the `crs=` argument.
 
 ```{r convert2spacial}
-sbux_sf <- st_as_sf(starbucksNC, coords = c("Longitude", "Latitude"),  crs=4326)
+sbux_sf <- st_as_sf(starbucksNC, coords = c("Longitude", "Latitude"),  crs = 4326)
 ```
 
 ### Now Map the sf object.

02_choropleth.Rmd

@@ -80,7 +80,7 @@ starbucksNC <- starbucks  %>%
   filter(State == "NC")
 ```
 
-Convert the `starbuckNC` dataframe to a spatial (sf) object and assign the same projection as the `nc_pop` spatial object.
+Convert the `starbucksNC` data frame to a spatial (sf) object and assign the same projection as the `nc_pop` spatial object.
 
 ```{r convert2sf}
 starbucksNC <- st_as_sf(starbucksNC, coords = c("Longitude", "Latitude"),  crs = st_crs(nc_pop))
@@ -111,7 +111,7 @@ addLogo(mymap, "images/Rfun3.png",
 
 ## Alaska & Hawaii - Shift 
 
-Shift and re-scale Alaska and Hawaii for better cartographic display of the entire US.
+Shift and re-scale Alaska and Hawaii for convenient cartographic display of the entire US.
 
 ```{r shiftgeoakhi, message=FALSE, warning=FALSE}
 
@@ -120,20 +120,12 @@ population <- get_acs(geography = "state",
                 geometry = TRUE,
                 shift_geo = TRUE)
 
- 
-```
-
-
-```{r buildshift, message=FALSE, warning=FALSE}
 mapviewOptions(legend.pos = "bottomright")
 mapviewOptions(leafletWidth = 800)
-#mapviewOptions()
-#mapviewOptions(default = TRUE)
 mapview(population, zcol = "estimate", native.crs = TRUE, crs = 5070)
 ```
 
 
-
 ##  Census
 
 During the workshop I will discuss the following concepts in more detail.

032_thematic_mapping_geom_sf.Rmd

@@ -4,12 +4,11 @@ title: "Thematic Mapping with geom_sf"
 
 
 ```{r load-libraries, message=FALSE, warning=FALSE}
-library(tidyverse)       # Tidyverse for Tidy Data
+library(tidyverse)       
 library(readxl)
 library(tigris)
 library(sf)
 library(viridis)
-library(ggplot2) 
 ```
 
 
@@ -83,7 +82,7 @@ In this plot I **reversed** the _direction_ of the color scale.  Reversing the c
 
 Use a pleasing projection.  In this case assign the CRS projection to '5070' 
 
-> `coord_sf(crs = 5070)`  Help with [projection/CRS](https://guides.library.duke.edu/r-geospatial/CRS)
+> `coord_sf(crs = 5070)`  Help with [projection/CRS](https://guides.library.duke.edu/r-geospatial/CRS)  
 > `coords_sf(datum = NA)` Remove gridlines, i.e [graticules](https://en.wikipedia.org/wiki/Graticule) 
 
 ```{r with-ggplot-geom_sf, message=FALSE, warning=FALSE}

docs/01_georeference.html

@@ -2115,12 +2115,11 @@ <h1>Thematic Mapping with geom_sf</h1>
 <div class="d-article">
 <div class="layout-chunk" data-layout="l-body">
 <div class="sourceCode">
-<pre class="sourceCode r"><code class="sourceCode r"><span class='kw'><a href='https://rdrr.io/r/base/library.html'>library</a></span><span class='op'>(</span><span class='va'><a href='https://tidyverse.tidyverse.org'>tidyverse</a></span><span class='op'>)</span>       <span class='co'># Tidyverse for Tidy Data</span>
+<pre class="sourceCode r"><code class="sourceCode r"><span class='kw'><a href='https://rdrr.io/r/base/library.html'>library</a></span><span class='op'>(</span><span class='va'><a href='https://tidyverse.tidyverse.org'>tidyverse</a></span><span class='op'>)</span>       
 <span class='kw'><a href='https://rdrr.io/r/base/library.html'>library</a></span><span class='op'>(</span><span class='va'><a href='https://readxl.tidyverse.org'>readxl</a></span><span class='op'>)</span>
 <span class='kw'><a href='https://rdrr.io/r/base/library.html'>library</a></span><span class='op'>(</span><span class='va'><a href='https://github.com/walkerke/tigris'>tigris</a></span><span class='op'>)</span>
 <span class='kw'><a href='https://rdrr.io/r/base/library.html'>library</a></span><span class='op'>(</span><span class='va'><a href='https://r-spatial.github.io/sf/'>sf</a></span><span class='op'>)</span>
 <span class='kw'><a href='https://rdrr.io/r/base/library.html'>library</a></span><span class='op'>(</span><span class='va'><a href='https://sjmgarnier.github.io/viridis/'>viridis</a></span><span class='op'>)</span>
-<span class='kw'><a href='https://rdrr.io/r/base/library.html'>library</a></span><span class='op'>(</span><span class='va'><a href='https://ggplot2.tidyverse.org'>ggplot2</a></span><span class='op'>)</span> 
 </code></pre>
 </div>
 </div>
@@ -2192,17 +2191,18 @@ <h2 id="ggplot2-with-geom_sf-and-viridis">ggplot2 with geom_sf and viridis</h2>
 <p>In this plot I <strong>reversed</strong> the <em>direction</em> of the color scale. Reversing the color pallette’s direction is not a visualization best practice, but I use this approach to demonstrate the <code>direction</code> argument.</p>
 <p>Use a pleasing projection. In this case assign the CRS projection to ‘5070’</p>
 <blockquote>
-<p><code>coord_sf(crs = 5070)</code>  Help with <a href="https://guides.library.duke.edu/r-geospatial/CRS">projection/CRS</a> <code>coords_sf(datum = NA)</code> Remove gridlines, i.e <a href="https://en.wikipedia.org/wiki/Graticule">graticules</a></p>
+<p><code>coord_sf(crs = 5070)</code>  Help with <a href="https://guides.library.duke.edu/r-geospatial/CRS">projection/CRS</a><br />
+<code>coords_sf(datum = NA)</code> Remove gridlines, i.e <a href="https://en.wikipedia.org/wiki/Graticule">graticules</a></p>
 </blockquote>
 <div class="layout-chunk" data-layout="l-body">
 <div class="sourceCode">
 <pre class="sourceCode r"><code class="sourceCode r"><span class='va'>contiguous_states</span> <span class='op'>%&gt;%</span> 
-  <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/ggplot.html'>ggplot</a></span><span class='op'>(</span><span class='fu'><a href='https://ggplot2.tidyverse.org/reference/aes.html'>aes</a></span><span class='op'>(</span>fill <span class='op'>=</span> <span class='va'>wages</span>, color <span class='op'>=</span> <span class='va'>wages</span><span class='op'>)</span><span class='op'>)</span> <span class='op'>+</span>
-  <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/ggsf.html'>geom_sf</a></span><span class='op'>(</span><span class='op'>)</span> <span class='op'>+</span>
-  <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/ggsf.html'>coord_sf</a></span><span class='op'>(</span>crs <span class='op'>=</span> <span class='fl'>5070</span>, datum <span class='op'>=</span> <span class='cn'>NA</span><span class='op'>)</span> <span class='op'>+</span>
+  <span class='fu'>ggplot</span><span class='op'>(</span><span class='fu'>aes</span><span class='op'>(</span>fill <span class='op'>=</span> <span class='va'>wages</span>, color <span class='op'>=</span> <span class='va'>wages</span><span class='op'>)</span><span class='op'>)</span> <span class='op'>+</span>
+  <span class='fu'>geom_sf</span><span class='op'>(</span><span class='op'>)</span> <span class='op'>+</span>
+  <span class='fu'>coord_sf</span><span class='op'>(</span>crs <span class='op'>=</span> <span class='fl'>5070</span>, datum <span class='op'>=</span> <span class='cn'>NA</span><span class='op'>)</span> <span class='op'>+</span>
   <span class='fu'><a href='https://sjmgarnier.github.io/viridis/reference/scale_viridis.html'>scale_fill_viridis</a></span><span class='op'>(</span>direction <span class='op'>=</span> <span class='op'>-</span><span class='fl'>1</span>, label <span class='op'>=</span> <span class='fu'>scales</span><span class='fu'>::</span><span class='va'><a href='https://scales.r-lib.org/reference/label_dollar.html'>dollar</a></span><span class='op'>)</span> <span class='op'>+</span> 
   <span class='fu'><a href='https://sjmgarnier.github.io/viridis/reference/scale_viridis.html'>scale_color_viridis</a></span><span class='op'>(</span>direction <span class='op'>=</span> <span class='op'>-</span><span class='fl'>1</span>, label <span class='op'>=</span> <span class='fu'>scales</span><span class='fu'>::</span><span class='va'><a href='https://scales.r-lib.org/reference/label_dollar.html'>dollar</a></span><span class='op'>)</span> <span class='op'>+</span>
-  <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/labs.html'>labs</a></span><span class='op'>(</span>title <span class='op'>=</span> <span class='st'>"Annual Mean Wages by State"</span>,
+  <span class='fu'>labs</span><span class='op'>(</span>title <span class='op'>=</span> <span class='st'>"Annual Mean Wages by State"</span>,
        subtitle <span class='op'>=</span> <span class='st'>"Mental Health and Substance Abuse Social Workers(SOC Code211023)"</span>, 
        caption <span class='op'>=</span> <span class='st'>"Data Source: BLS.gov - Occupational Employment Statistics ; 2016"</span><span class='op'>)</span>
 </code></pre>

docs/02_choropleth.html

@@ -2289,12 +2289,12 @@ <h3 id="display-map">Display Map</h3>
 <div class="layout-chunk" data-layout="l-body">
 <div class="sourceCode">
 <pre class="sourceCode r"><code class="sourceCode r"><span class='va'>my_df</span> <span class='op'>%&gt;%</span>
-  <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/ggplot.html'>ggplot</a></span><span class='op'>(</span><span class='fu'><a href='https://ggplot2.tidyverse.org/reference/aes.html'>aes</a></span><span class='op'>(</span>fill <span class='op'>=</span> <span class='va'>wages</span>, color <span class='op'>=</span> <span class='va'>wages</span><span class='op'>)</span><span class='op'>)</span> <span class='op'>+</span>
-  <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/ggsf.html'>geom_sf</a></span><span class='op'>(</span><span class='op'>)</span> <span class='op'>+</span>
-  <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/ggsf.html'>coord_sf</a></span><span class='op'>(</span>crs <span class='op'>=</span> <span class='fl'>5070</span>, datum <span class='op'>=</span> <span class='cn'>NA</span><span class='op'>)</span> <span class='op'>+</span>
-  <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/scale_viridis.html'>scale_fill_viridis_c</a></span><span class='op'>(</span><span class='op'>)</span> <span class='op'>+</span> 
-  <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/scale_viridis.html'>scale_color_viridis_c</a></span><span class='op'>(</span><span class='op'>)</span> <span class='op'>+</span>
-  <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/facet_wrap.html'>facet_wrap</a></span><span class='op'>(</span><span class='op'>~</span> <span class='va'>category</span>, 
+  <span class='fu'>ggplot</span><span class='op'>(</span><span class='fu'>aes</span><span class='op'>(</span>fill <span class='op'>=</span> <span class='va'>wages</span>, color <span class='op'>=</span> <span class='va'>wages</span><span class='op'>)</span><span class='op'>)</span> <span class='op'>+</span>
+  <span class='fu'>geom_sf</span><span class='op'>(</span><span class='op'>)</span> <span class='op'>+</span>
+  <span class='fu'>coord_sf</span><span class='op'>(</span>crs <span class='op'>=</span> <span class='fl'>5070</span>, datum <span class='op'>=</span> <span class='cn'>NA</span><span class='op'>)</span> <span class='op'>+</span>
+  <span class='fu'>scale_fill_viridis_c</span><span class='op'>(</span><span class='op'>)</span> <span class='op'>+</span> 
+  <span class='fu'>scale_color_viridis_c</span><span class='op'>(</span><span class='op'>)</span> <span class='op'>+</span>
+  <span class='fu'>facet_wrap</span><span class='op'>(</span><span class='op'>~</span> <span class='va'>category</span>, 
              nrow <span class='op'>=</span> <span class='fl'>3</span>, ncol <span class='op'>=</span> <span class='fl'>2</span><span class='op'>)</span>
 </code></pre>
 </div>
@@ -2303,7 +2303,7 @@ <h3 id="display-map">Display Map</h3>
 <h3 id="save-map">Save Map</h3>
 <div class="layout-chunk" data-layout="l-body">
 <div class="sourceCode">
-<pre class="sourceCode r"><code class="sourceCode r"><span class='fu'><a href='https://ggplot2.tidyverse.org/reference/ggsave.html'>ggsave</a></span><span class='op'>(</span><span class='st'>"facet_map.png"</span>, width <span class='op'>=</span> <span class='fl'>8</span>, height <span class='op'>=</span> <span class='fl'>8</span>, units <span class='op'>=</span> <span class='st'>"in"</span><span class='op'>)</span>
+<pre class="sourceCode r"><code class="sourceCode r"><span class='fu'>ggsave</span><span class='op'>(</span><span class='st'>"facet_map.png"</span>, width <span class='op'>=</span> <span class='fl'>8</span>, height <span class='op'>=</span> <span class='fl'>8</span>, units <span class='op'>=</span> <span class='st'>"in"</span><span class='op'>)</span>
 </code></pre>
 </div>
 </div>