change filtering to keep companies where plan_tech_share is 0 (#68)

R/prep_company_bubble.R

@@ -41,7 +41,7 @@ prep_company_bubble <-
       mutate(y = .data$plan_buildout / .data$scen_buildout) %>%
       filter(.data$green) %>%
       select(-"plan_buildout", -"scen_buildout", -"green") %>%
-      filter(.data$plan_tech_share != 0) %>%
+      filter(!is.na(.data$plan_tech_share)) %>%
       rowwise() %>%
       mutate(y = max(.data$y, 0, na.rm = TRUE)) %>%
       ungroup() %>%
@@ -81,7 +81,7 @@ prep_company_bubble <-
       mutate(y = .data$plan_buildout / .data$scen_buildout) %>%
       filter(.data$green) %>%
       select(-"plan_buildout", -"scen_buildout", -"green") %>%
-      filter(.data$plan_tech_share != 0) %>%
+      filter(!is.na(.data$plan_tech_share)) %>%
       rowwise() %>%
       mutate(y = max(.data$y, 0, na.rm = TRUE)) %>%
       ungroup() %>%