README pushed

nathancday · Apr 11, 2019 · cfac1b6 · cfac1b6
1 parent ba56eb2
commit cfac1b6
Show file tree

Hide file tree

Showing 43 changed files with 52 additions and 13 deletions.
diff --git a/README.Rmd b/README.Rmd
@@ -0,0 +1,15 @@
+---
+output: github_document
+---
+
+## Leveraging Transit Data for Urban Developmen
+#### TomTom Machine Learning Conference 2019
+
+This is the repo with code to build by presentation.
+
+Everything is done with R.
+
+[Slide show](https://docs.google.com/presentation/d/1yUQ3eXNbgkGOXoxn_ksc5yCcQyzK7VvjD9tqYuOxGVU/edit?usp=sharing)
+
+[CAT Ridership Data](https://drive.google.com/file/d/1ckMeT_JWGukqQt_GMmdnJ7NY4Sr1RaLF/view?usp=sharing) - This is tabular data in a TXT file.
+
diff --git a/README.md b/README.md
@@ -0,0 +1,15 @@
+
+## Leveraging Transit Data for Urban Developmen
+
+#### TomTom Machine Learning Conference 2019
+
+This is the repo with code to build by presentation.
+
+Everything is done with R.
+
+[Slide
+show](https://docs.google.com/presentation/d/1yUQ3eXNbgkGOXoxn_ksc5yCcQyzK7VvjD9tqYuOxGVU/edit?usp=sharing)
+
+[CAT Ridership
+Data](https://drive.google.com/file/d/1ckMeT_JWGukqQt_GMmdnJ7NY4Sr1RaLF/view?usp=sharing)
+- This is tabular data in a TXT file.
diff --git a/Rplot.png b/Rplot.png
diff --git a/src/images/Rplot.png → images/Rplot.png b/src/images/Rplot.png → images/Rplot.png
diff --git a/src/images/Rplot01.png → images/Rplot01.png b/src/images/Rplot01.png → images/Rplot01.png
diff --git a/src/images/cover.png → images/cover.png b/src/images/cover.png → images/cover.png
diff --git a/images/slide 8.png b/images/slide 8.png
diff --git a/images/slide1.png b/images/slide1.png
diff --git a/src/images/slide10.png → images/slide10.png b/src/images/slide10.png → images/slide10.png
diff --git a/src/images/slide10b.png → images/slide10b.png b/src/images/slide10b.png → images/slide10b.png
diff --git a/src/images/slide11.png → images/slide11.png b/src/images/slide11.png → images/slide11.png
diff --git a/src/images/slide2.3.png → images/slide2.3.png b/src/images/slide2.3.png → images/slide2.3.png
diff --git a/images/slide2.6.png b/images/slide2.6.png
diff --git a/src/images/slide2.png → images/slide2.png b/src/images/slide2.png → images/slide2.png
diff --git a/src/images/slide3.5.png → images/slide3.5.png b/src/images/slide3.5.png → images/slide3.5.png
diff --git a/src/images/slide3.5a.png → images/slide3.5a.png b/src/images/slide3.5a.png → images/slide3.5a.png
diff --git a/src/images/slide3.5b.png → images/slide3.5b.png b/src/images/slide3.5b.png → images/slide3.5b.png
diff --git a/src/images/slide3.png → images/slide3.png b/src/images/slide3.png → images/slide3.png
diff --git a/src/images/slide3a.png → images/slide3a.png b/src/images/slide3a.png → images/slide3a.png
diff --git a/src/images/slide3b.png → images/slide3b.png b/src/images/slide3b.png → images/slide3b.png
diff --git a/src/images/slide4.png → images/slide4.png b/src/images/slide4.png → images/slide4.png
diff --git a/images/slide5.5.png b/images/slide5.5.png
diff --git a/src/images/slide5.5b.png → images/slide5.5b.png b/src/images/slide5.5b.png → images/slide5.5b.png
diff --git a/src/images/slide5.75.png → images/slide5.75.png b/src/images/slide5.75.png → images/slide5.75.png
diff --git a/src/images/slide5.75b.png → images/slide5.75b.png b/src/images/slide5.75b.png → images/slide5.75b.png
diff --git a/src/images/slide5.png → images/slide5.png b/src/images/slide5.png → images/slide5.png
diff --git a/src/images/slide5b.png → images/slide5b.png b/src/images/slide5b.png → images/slide5b.png
diff --git a/src/images/slide6.png → images/slide6.png b/src/images/slide6.png → images/slide6.png
diff --git a/src/images/slide6b.png → images/slide6b.png b/src/images/slide6b.png → images/slide6b.png
diff --git a/src/images/slide7.png → images/slide7.png b/src/images/slide7.png → images/slide7.png
diff --git a/src/images/slide7b.png → images/slide7b.png b/src/images/slide7b.png → images/slide7b.png
diff --git a/src/images/slide8.png → images/slide8.png b/src/images/slide8.png → images/slide8.png
diff --git a/src/images/slide8b.png → images/slide8b.png b/src/images/slide8b.png → images/slide8b.png
diff --git a/images/slide9.png b/images/slide9.png
diff --git a/src/images/slide9b.png → images/slide9b.png b/src/images/slide9b.png → images/slide9b.png
diff --git a/src/images/slide9c.png → images/slide9c.png b/src/images/slide9c.png → images/slide9c.png
diff --git a/src/images/slide9d.png → images/slide9d.png b/src/images/slide9d.png → images/slide9d.png
diff --git a/src/deck_plots.R b/src/deck_plots.R
@@ -127,28 +127,34 @@ cowplot::plot_grid(key_map, trend_plot, rel_widths = c(.3, .6))
 # alpha'd to show show bigs
 
 cvl_geo %<>%
-  mutate(alpha2 = case_when(grepl("(900)|(502)|(201)|(402)", GEOID) ~ 1, 
-                           TRUE ~ .8))
+  mutate(color = case_when(grepl("(900)|(502)|(201)|(402)", GEOID) ~ GEOID, 
+                           TRUE ~ "GREY"))
 
 key_map <- ggplot(cvl_geo) +
-  geom_sf(aes(fill = GEOID, alpha = alpha2, stroke = alpha), show.legend = F) +
-  ggsci::scale_fill_d3("category20") +
+  geom_sf(aes(fill = color, stroke = alpha), show.legend = F) +
+  scale_fill_manual(values = d3_pal2) +
   scale_alpha(range = c(.25, 1)) +
   coord_sf(datum = NA)
 
+key_map
+
 cvl %<>%
-  mutate(alpha2 = case_when(grepl(""(900)|(502)|(201)|(402)"", GEOID) ~ 1, 
-                           TRUE ~ .8))
+  mutate(color = case_when(grepl("(900)|(502)|(201)|(402)", GEOID) ~ GEOID, 
+                           TRUE ~ "GREY"))
 
+d3_pal2 <- ggsci::pal_d3("category20")(12) %>%
+  set_names(cvl_geo$GEOID)
 
 trend_plot <- ggplot(cvl, aes(last_year, estimate, color = GEOID, group = GEOID)) +
-  geom_path(aes(alpha = alpha2), size = 2, show.legend = F) +
-  ggsci::scale_color_d3("category20") +
+  geom_path(aes(color = color), size = 2, show.legend = F) +
+  scale_color_manual(values = d3_pal2) +
   scale_y_continuous(labels = scales::dollar) +
   scale_alpha(range = c(.25, 1)) +
   labs(y = "Median Rent",
        x = NULL)
 
+trend_plot
+
 cowplot::plot_grid(key_map, trend_plot, rel_widths = c(.3, .6))
 
 # Slide 3 -----------------------------------------------------------------
@@ -386,8 +392,9 @@ commute_routes %>%
   coord_flip() +
   scale_fill_manual(values = pal) +
   scale_y_continuous(labels = function(breaks) breaks / 1000) +
-  theme(legend.position = "none") +
-  labs(y = "Thousands riders",
+  theme(legend.position = "none",
+        axis.text = element_text(size = rel(1.2))) +
+  labs(y = "Thousand riders",
        x = NULL,
        caption = "M-F 7a-9a")
 
@@ -506,12 +513,14 @@ leaflet(shapes_by_stops) %>%
 shapes_by_stops %>%
   ggplot(aes(x = Assessment, y = total_wt, color = total_wt)) +
   geom_point(size = 3, alpha = .3) +
-  geom_vline(xintercept = 4.5e5, linetype = 2) +
-  geom_hline(yintercept = 1, linetype = 2) +
+  geom_rect(xmin = 0, xmax = 1e6, ymin = -.5, ymax = 1,
+            alpha = .01, aes(color = NULL), fill = "lightgrey") +
+  geom_rect(xmin = 4e5, xmax = 1.02e6, ymin = -.5, ymax = 5.5,
+            alpha = .01, aes(color = NULL), fill = "lightgrey") +
   scale_x_continuous(labels = scales::dollar) +
   scale_color_viridis_c() +
   labs(x = NULL,
-       y = "CAT weight") +
+       y = "Transit score") +
   theme(legend.position = "none",
         axis.text = element_text(size = rel(1.1)))
 

diff --git a/src/images/slide 8.png b/src/images/slide 8.png
diff --git a/src/images/slide1.png b/src/images/slide1.png
diff --git a/src/images/slide2.6.png b/src/images/slide2.6.png
diff --git a/src/images/slide5.5.png b/src/images/slide5.5.png
diff --git a/src/images/slide9.png b/src/images/slide9.png