How to shade shapes

Question

Is it possible to use `ggrough` (https://xvrdm.github.io/ggrough/index.html) to shade shapes created by `geom_sf` (preferred) or potentially `geom_polygon`? See this question for a prior question that gives the look of the plot I have in mind and the accompanying answer by Z.Lin that modifies the package to make it compatible with the current version of `ggplot2`: Unable to replicate this ggplot2 plot. Here is a MWE of a map created using `geom_sf` that I would like to shade (each individual county) using `ggrough`: ``` library(tidyverse) library(magrittr) library(ggplot2) library(ggrough) library(RColorBrewer) library(tidycensus) library(viridis) #install.packages("devtools") # if you have not installed "devtools" package #devtools::install_github("xvrdm/ggrough") library(hrbrthemes) #get nevada shapefile counties <- get_acs( geography = "county", year = 2018, geometry = TRUE, variables = "B19013_001", keep_geo_vars=TRUE ) %>% filter(STATEFP=="32") counties$GEOID <- as.integer(counti…

Accepted Answer

```
library(magrittr)
library(ggplot2)
library(ggrough)
```

Replace `parse_rough` using `trace`

```
trace(ggrough:::parse_rough, edit=TRUE)
```

In the popup window, paste this so that `parse_rough` will use `parse_sf` for `GeomSf`.

```
function (svg, geom) 
{
  rough_els <- list()
  if (geom %in% c("GeomCol", "GeomBar", "GeomTile", 
                  "Background")) {
    rough_els <- append(rough_els, parse_rects(svg))
  }
  if (geom %in% c("GeomArea", "GeomViolin", "GeomSmooth", 
                  "Background")) {
    rough_els <- append(rough_els, parse_areas(svg))
  }
  if (geom %in% c("GeomPoint", "GeomJitter", "GeomDotPlot", 
                  "Background")) {
    rough_els <- append(rough_els, parse_circles(svg))
  }
  if (geom %in% c("GeomLine", "GeomSmooth", "Background")) {
    rough_els <- append(rough_els, parse_lines(svg))
  }
  if (geom %in% c("Background")) {
    rough_els <- append(rough_els, parse_texts(svg))
  }
  if (geom %in% c("GeomSf")) {
    rough_els <- append(rough_els, parse_sf(svg))
  }
  purrr::map(rough_els, ~purrr::list_modify(.x, geom = geom))
}
```

Create the function `parse_sf`.

```
parse_sf <- function (svg) {
  shape <- "path"
  keys <- NULL
  ggrough:::parse_shape(svg, shape, keys) %>% {
    purrr::map(., 
               ~purrr::list_modify(.x, 
                                   points = .x$d, 
                                   shape = "path"
               ))
  }
}
```

Create the desired plot

```
nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
b <- ggplot(nc) +
  geom_sf(aes(fill = AREA))
b

options <- list(GeomSf=list(fill_style="hachure", 
                            angle_noise=0.5,
                            gap_noise=0.2,
                            gap=1.5,
                            fill_weight=1))
get_rough_chart(b, options)
```

How to shade shapes

Solution

Problem

Related problems