diff --git a/docs/articles/areal-weighted-interpolation.html b/docs/articles/areal-weighted-interpolation.html index 785aa69..2233f25 100644 --- a/docs/articles/areal-weighted-interpolation.html +++ b/docs/articles/areal-weighted-interpolation.html @@ -126,7 +126,7 @@

nrow(suppressWarnings(sf::st_intersection(race, wards))) #> [1] 287

By intersecting these two data sets, we get a new data set with n = 287 features. The resulting sf object looks like so:

-

+

One by-product of the intersection process is that each intersected feature takes on the attributes of both the source and target data. The population value of interest from each source feature (for example, total population per tract or TOTAL_E), therefore exists as an attribute for each intersected feature. The identification numbers from both the source (GEOID) and the target data (WARD) are also applied:

@@ -387,7 +387,7 @@

result = result, resultValue = TOTAL_E) #> [1] FALSE

We can use the aw_stl_wardsClipped data to illustrate a more extreme disparity between source and target data. The aw_stl_wardsClipped data have been modified so that the ward boundaries do not extend past the Mississippi River shoreline, which runs along the entire eastern boundary of the city. When we overlay them on the city’s census tracts, all of the census tracts on the eastern side of the city extend outwards.

-

+

The difference in weights in this example is more extreme:

aw_preview_weights(wardsClipped, tid = WARD, source = race, sid = GEOID, 
                    type = "extensive")
diff --git a/docs/man/figures/intersectMap.png b/docs/man/figures/intersectMap.png
index 4313920..9388406 100644
Binary files a/docs/man/figures/intersectMap.png and b/docs/man/figures/intersectMap.png differ
diff --git a/docs/man/figures/overlapMap.png b/docs/man/figures/overlapMap.png
index ad0d94f..f78961b 100644
Binary files a/docs/man/figures/overlapMap.png and b/docs/man/figures/overlapMap.png differ
diff --git a/docs/reference/figures/intersectMap.png b/docs/reference/figures/intersectMap.png
index 4313920..9388406 100644
Binary files a/docs/reference/figures/intersectMap.png and b/docs/reference/figures/intersectMap.png differ
diff --git a/docs/reference/figures/overlapMap.png b/docs/reference/figures/overlapMap.png
index ad0d94f..f78961b 100644
Binary files a/docs/reference/figures/overlapMap.png and b/docs/reference/figures/overlapMap.png differ
diff --git a/inst/extdata/awFigure.R b/inst/extdata/awFigure.R
index 248afb5..9545097 100644
--- a/inst/extdata/awFigure.R
+++ b/inst/extdata/awFigure.R
@@ -43,19 +43,22 @@ p3 <- ggplot() +
   cp_sequoiaTheme(base_size = 14, background = "white", map = TRUE) +
   theme(legend.position="none")
 
-ggplot2::ggsave(filename = here("man", "figures", "intersectMap.png"), p3,
-                width = cp_points(500, units = "in"), height = cp_points(450, units = "in"), dpi = 72)
+intersectMap <- plot_grid(p3, NULL, labels = c("(C)"))
+
+ggplot2::ggsave(filename = here("man", "figures", "intersectMap.png"), intersectMap,
+                width = cp_points(800, units = "in"), height = cp_points(450, units = "in"), dpi = 72)
 
 p4 <- ggplot() +
   geom_sf(data = ar_stl_race, fill = "#ff0000", color = "#000000") +
   geom_sf(data = ar_stl_wardsClipped, fill = "#ffffff", color = "#000000") +
   labs(
-    title = "Wards Clipped / Tracts Overlap",
+    title = "Clipped Wards Overlaid on Tracts",
     subtitle = "St. Louis, MO"
   ) +
   cp_sequoiaTheme(base_size = 14, background = "white", map = TRUE) +
   theme(legend.position="none")
 
-ggplot2::ggsave(filename = here("man", "figures", "overlapMap.png"), p4,
-                width = cp_points(500, units = "in"), height = cp_points(450, units = "in"), dpi = 72)
+overlapMap <- plot_grid(p4, NULL, labels = c("(D)"))
 
+ggplot2::ggsave(filename = here("man", "figures", "overlapMap.png"), overlapMap,
+                width = cp_points(800, units = "in"), height = cp_points(450, units = "in"), dpi = 72)
diff --git a/man/figures/intersectMap.png b/man/figures/intersectMap.png
index 4313920..9388406 100644
Binary files a/man/figures/intersectMap.png and b/man/figures/intersectMap.png differ
diff --git a/man/figures/overlapMap.png b/man/figures/overlapMap.png
index ad0d94f..f78961b 100644
Binary files a/man/figures/overlapMap.png and b/man/figures/overlapMap.png differ
diff --git a/vignettes/areal-weighted-interpolation.Rmd b/vignettes/areal-weighted-interpolation.Rmd
index a34efff..144ff09 100644
--- a/vignettes/areal-weighted-interpolation.Rmd
+++ b/vignettes/areal-weighted-interpolation.Rmd
@@ -63,7 +63,7 @@ nrow(suppressWarnings(sf::st_intersection(race, wards)))
 
 By intersecting these two data sets, we get a new data set with *n* = 287 features. The resulting `sf` object looks like so:
 
-```{r intersectMap, echo=FALSE, fig.align='center', out.height='33%'}
+```{r intersectMap, echo=FALSE, out.width = '100%'}
 knitr::include_graphics("../man/figures/intersectMap.png")
 ```
 
@@ -214,7 +214,7 @@ aw_verify(source = race, sourceValue = TOTAL_E,
 
 We can use the `aw_stl_wardsClipped` data to illustrate a more extreme disparity between source and target data. The `aw_stl_wardsClipped` data have been modified so that the ward boundaries do not extend past the Mississippi River shoreline, which runs along the entire eastern boundary of the city. When we overlay them on the city's census tracts, all of the census tracts on the eastern side of the city extend outwards. 
 
-```{r overlapMap, echo=FALSE, fig.align='center', out.height='33%'}
+```{r overlapMap, echo=FALSE, out.width = '100%'}
 knitr::include_graphics("../man/figures/overlapMap.png")
 ```

First Four Rows of Intersected Data