Update Limerick example, close #5

Heads-up @joeytalbot on an alternative way to replace NA values

Author: Robinlovelace

R/rnetvis.R

@@ -17,7 +17,7 @@
 #' # Small variations in line width
 #' netvis(rnet, min_width = 3, max_width = 10)
 #' rnet = rnet_limerick
-#' netvis(rnet_limerick, width_regex = "Bicycle")
+#' netvis(rnet, width_regex = "Bicycle")
 netvis = function(
     rnet,
     min_width = 1,

README.qmd

@@ -34,6 +34,7 @@ The goal of this repo is to demonstrate different visualisation techniques for c
 ```{r, eval = FALSE, echo=FALSE}
 # install.packages("devtools")
 # devtools::install_github("ITSLeeds/netvis")
+library(tidyverse)
 ```
 
 # Example data
@@ -50,18 +51,16 @@ This is imported and plotted with code shown below.
 #| echo: false
 u = "https://cruse.bike/limerick/rnet_combined_balanced.gpkg"
 rnet_limerick_balanced_full = sf::read_sf(u)
+# Make numeric cols numerics not chars:
+# To do this, values of "1-10" need to be changed to 3 (or another integer)
+rnet_limerick_balanced_full = rnet_limerick_balanced_full |> 
+  mutate(across(starts_with("Bic"), as.numeric)) |> 
+  mutate(across(starts_with("Bic"), replace_na, replace = 3)) 
 zones_limerick = zonebuilder::zb_zone("limerick")
 central_limerick = zones_limerick |>
   dplyr::filter(circle_id == 1) |>
   sf::st_union()
 rnet_limerick = sf::st_intersection(rnet_limerick_balanced_full, central_limerick)
-# Make numeric cols numerics not chars:
-# To do this, values of "1-10" need to be changed to 3 (or another integer)
-rnet_limerick$`Bicycle (Baseline)` = gsub("1-10", 3, rnet_limerick$`Bicycle (Baseline)`)
-rnet_limerick$`Bicycle (Near market)` = gsub("1-10", 3, rnet_limerick$`Bicycle (Near market)`)
-rnet_limerick$`Bicycle (Climate action plan)` = gsub("1-10", 3, rnet_limerick$`Bicycle (Climate action plan)`)
-rnet_limerick$`Bicycle (Go Dutch)` = gsub("1-10", 3, rnet_limerick$`Bicycle (Go Dutch)`)
-rnet_limerick$`Bicycle (Ebike)` = gsub("1-10", 3, rnet_limerick$`Bicycle (Ebike)`)
 
 rnet_limerick = rnet_limerick |>
   mutate(across(c(`Bicycle (Baseline)`:`Bicycle (Ebike)`), ~as.numeric(.)))