Merge pull request #529 from jessesadler/plot-data-clean

Replace NULL with NA in interviews_plotting

episodes/05-ggplot2.Rmd

@@ -74,7 +74,7 @@ interviews_plotting <- read_csv("https://raw.githubusercontent.com/datacarpentry
 ## Can be used to load in data from previous lesson!
 interviews_plotting <- interviews %>%
   ## pivot wider by items_owned
-  separate_rows(items_owned, sep = ";") %>%
+  separate_longer_delim(items_owned, delim = ";") %>%
   ## if there were no items listed, changing NA to no_listed_items
   replace_na(list(items_owned = "no_listed_items")) %>%
   mutate(items_owned_logical = TRUE) %>%

episodes/data/download_data.R

@@ -31,6 +31,10 @@ library(dplyr)
 if (! file.exists("data/interviews_plotting.csv")) {
   # Copy code from ggplot episode to create data
   interviews_plotting <- df %>%
+    # Need to turn NULL to NA
+    mutate(memb_assoc = na_if(memb_assoc, "NULL"),
+           affect_conflicts = na_if(affect_conflicts, "NULL"),
+           items_owned = na_if(items_owned, "NULL")) %>%
     separate_rows(items_owned, sep = ";") %>%
     replace_na(list(items_owned = "no_listed_items")) %>%
     mutate(items_owned_logical = TRUE) %>%