adjust display of aw article images

chris-prener · Dec 19, 2018 · b384b7d · b384b7d
1 parent 93f9e26
commit b384b7d
Show file tree

Hide file tree

Showing 9 changed files with 12 additions and 9 deletions.
diff --git a/docs/articles/areal-weighted-interpolation.html b/docs/articles/areal-weighted-interpolation.html
diff --git a/docs/man/figures/intersectMap.png b/docs/man/figures/intersectMap.png
diff --git a/docs/man/figures/overlapMap.png b/docs/man/figures/overlapMap.png
diff --git a/docs/reference/figures/intersectMap.png b/docs/reference/figures/intersectMap.png
diff --git a/docs/reference/figures/overlapMap.png b/docs/reference/figures/overlapMap.png
diff --git 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
diff --git a/man/figures/overlapMap.png b/man/figures/overlapMap.png
diff --git 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")
 ```