FIX

kojisposts · kojisposts · commit f34d4e3bf451 · 2019-08-06T17:03:31.000-04:00
diff --git a/_posts/ggplot2/2019-08-02-geom_violin.Rmd b/_posts/ggplot2/2019-08-02-geom_violin.Rmd
@@ -47,7 +47,7 @@ Source: [Dave Wassermann and Ally Flinn](https://docs.google.com/spreadsheets/d/
 library(plotly)
 district_density <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/district_density.csv", stringsAsFactors = FALSE)
 district_density$cluster <- factor(district_density$cluster, levels=c("Pure urban", "Urban-suburban mix", "Dense suburban", "Sparse suburban", "Rural-suburban mix", "Pure rural"))
-# MAKE THIS A FACTOR, AND ALSO ADD A THUMBNAIL
+district_density$region <- factor(district_density$region, levels=c("West", "South", "Midwest", "Northeast"))
 
 p <- ggplot(district_density,aes(x=cluster, y=dem_margin, fill=cluster)) +
   geom_violin(colour=NA) +
diff --git a/_posts/ggplot2/2019-08-02-geom_violin.md b/_posts/ggplot2/2019-08-02-geom_violin.md
@@ -49,7 +49,7 @@ Source: [Dave Wassermann and Ally Flinn](https://docs.google.com/spreadsheets/d/
 library(plotly)
 district_density <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/district_density.csv", stringsAsFactors = FALSE)
 district_density$cluster <- factor(district_density$cluster, levels=c("Pure urban", "Urban-suburban mix", "Dense suburban", "Sparse suburban", "Rural-suburban mix", "Pure rural"))
-# MAKE THIS A FACTOR, AND ALSO ADD A THUMBNAIL
+district_density$region <- factor(district_density$region, levels=c("West", "South", "Midwest", "Northeast"))
 
 p <- ggplot(district_density,aes(x=cluster, y=dem_margin, fill=cluster)) +
   geom_violin(colour=NA) +
