From 07f4d38bd28076d4a060d3297553ea00e179b663 Mon Sep 17 00:00:00 2001
From: Ben Varick <ben@wisconsinbikefed.org>
Date: Thu, 31 Oct 2024 16:48:22 -0500
Subject: [PATCH] removed segments from bike_lts with an lts value of 9

---
 R/route_analysis.Rmd | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/route_analysis.Rmd b/R/route_analysis.Rmd
index 34c06c4..53d4bed 100644
--- a/R/route_analysis.Rmd
+++ b/R/route_analysis.Rmd
@@ -62,8 +62,12 @@ addresses_near <- st_intersection(addresses, walk_boundary_poly)
 
 ## load bike tls
 bike_lts <- st_read("data/bike_lts/bike_lts_DANE.geojson")
+# make lts attribute a factor
 bike_lts[["lts"]] <- as.factor(bike_lts$LTS_F)
+# remove segments with an LTS value of 9
+bike_lts <- bike_lts %>% filter(lts != 9)
 
+# set color scale
 bike_lts_scale <- data.frame(code = c(1, 2, 3, 4, 9),
                              color = c("#1a9641",
                                        "#a6d96a",