Set transparency in data area; repair grouping problem using ungroup():

hafen/trelliscopejs#102
D-score · Dec 2, 2020 · 120d33b · 120d33b
1 parent 44cb174
commit 120d33b
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/R/p-a-equate-1339.R b/R/p-a-equate-1339.R
@@ -6,6 +6,11 @@ library("tidyr")
 library("gtools")
 
 theme_set(theme_light())
+theme_update(panel.background = element_rect(fill = "transparent", colour = NA),
+             plot.background = element_rect(fill = "transparent", colour = NA),
+             legend.key = element_blank(),
+             rect = element_rect(fill = "transparent") # all rectangles
+)
 
 m_184 <- load_model("1339_184", model_dir = "models_2020", project = "Jamaica")
 d_184 <- load_data("1339_184", model_dir = "models_2020", project = "Jamaica")
@@ -43,6 +48,7 @@ by_equate <- by_equate[sapply(by_equate$panel, is.list), ]
 
 # create the app
 by_equate %>%
+  ungroup() %>%
   trelliscope(name = "Percent pass by age for all equate groups",
               height = 500,
               width = 1000,

diff --git a/R/p-d-equate-1339.R b/R/p-d-equate-1339.R
@@ -8,6 +8,11 @@ library("tidyr")
 library("gtools")
 
 theme_set(theme_light())
+theme_update(panel.background = element_rect(fill = "transparent", colour = NA),
+             plot.background = element_rect(fill = "transparent", colour = NA),
+             legend.key = element_blank(),
+             rect = element_rect(fill = "transparent") # all rectangles
+)
 
 m_000 <- load_model("1339_0",   model_dir = "models_2020", project = "Jamaica")
 m_011 <- load_model("1339_11",  model_dir = "models_2020", project = "Jamaica")
@@ -98,6 +103,7 @@ by_equate <- by_equate[keep, ]
 
 # create the app
 by_equate %>%
+  ungroup() %>%
   trelliscope(name = "Percent pass by D-score, four models",
               height = 500,
               width = 1000,