colour text by background

Lifebrain · Sep 27, 2022 · cddb885 · cddb885
1 parent 6c375e9
commit cddb885
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 248 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: gbhs
 Title: Lifebrain Global Brain Health Survey Data
-Version: 0.0.0.9000
+Version: 0.0.1
 Authors@R: c(
     person("Athanasia Mo", "Mowinckel", 
             email = "a.m.mowinckel@psykologi.uio.no", 

diff --git a/inst/docs/child_docs/ord_desc.Rmd b/inst/docs/child_docs/ord_desc.Rmd
@@ -17,8 +17,8 @@ if(l > base_fig_height)
 ```{r , fig.height=base_fig_height}
 data |> 
   ggstacked( 
-    lab = ifelse(!grepl(pattern, value), pc, NA),
-    col = ifelse(!grepl(pattern, value), "black", "white"),
+    lab = ifelse(grepl(pattern, value), pc, NA),
+    col = ifelse(grepl(pattern, value), "black", "white"),
     n_breaks = 5,
   ) +
   labs(x="", y="", fill = "Response",
@@ -39,8 +39,8 @@ data |>
     min_pc = .2,
     text_size = 2,
     size = 1.5,
-    lab = ifelse(!grepl(pattern, value), pc, NA),
-    col = ifelse(!grepl(pattern, value), "black", "white")
+    lab = ifelse(grepl(pattern, value), pc, NA),
+    col = ifelse(grepl(pattern, value), "black", "white")
   ) &
   coord_cartesian(clip = "off") &
   plot_annotation(
@@ -60,8 +60,8 @@ data |>
     npos = 1.25, 
     min_pc = .2,
     size = 1.5,
-    lab = ifelse(!grepl(pattern, value), pc, NA),
-    col = ifelse(!grepl(pattern, value), "black", "white")
+    lab = ifelse(grepl(pattern, value), pc, NA),
+    col = ifelse(grepl(pattern, value), "black", "white")
   ) &
   coord_cartesian(xlim = c(0, 1.4), clip = "off") &
   plot_annotation(
@@ -81,8 +81,8 @@ data |>
     npos = 1.3, 
     min_pc = .2,
     size = 1.5,
-    lab = ifelse(!grepl(pattern, value), pc, NA),
-    col = ifelse(!grepl(pattern, value), "black", "white")
+    lab = ifelse(grepl(pattern, value), pc, NA),
+    col = ifelse(grepl(pattern, value), "black", "white")
   ) &
   coord_cartesian(xlim = c(0, 1.4), clip = "off") &
   theme(axis.text.y = element_text(size=6)) &
@@ -103,8 +103,8 @@ data |>
     npos = 1.3, 
     min_pc = .2,
     size = 1.5,
-    lab = ifelse(!grepl(pattern, value), pc, NA),
-    col = ifelse(!grepl(pattern, value), "black", "white")
+    lab = ifelse(grepl(pattern, value), pc, NA),
+    col = ifelse(grepl(pattern, value), "black", "white")
   ) &
   coord_cartesian(xlim = c(0, 1.4), clip = "off") &
   theme(axis.text.y = element_text(size=7)) &
@@ -125,8 +125,8 @@ data |>
     npos = 1.3, 
     min_pc = .2,
     size = 1.5,
-    lab = ifelse(!grepl(pattern, value), pc, NA),
-    col = ifelse(!grepl(pattern, value), "black", "white")
+    lab = ifelse(grepl(pattern, value), pc, NA),
+    col = ifelse(grepl(pattern, value), "black", "white")
   ) &
   coord_cartesian(xlim = c(0, 1.4), clip = "off") &
   theme(axis.text.y = element_text(size=7)) &
@@ -148,8 +148,8 @@ data |>
     npos = 1.3, 
     min_pc = .2,
     size = 1.5,
-    lab = ifelse(!grepl(pattern, value), pc, NA),
-    col = ifelse(!grepl(pattern, value), "black", "white")
+    lab = ifelse(grepl(pattern, value), pc, NA),
+    col = ifelse(grepl(pattern, value), "black", "white")
   ) &
   coord_cartesian(xlim = c(0, 1.4), clip = "off") &
   theme(axis.text.y = element_text(size=7)) &
@@ -171,8 +171,8 @@ data |>
     npos = 1.3, 
     min_pc = .2,
     size = 1.5,
-    lab = ifelse(!grepl(pattern, value), pc, NA),
-    col = ifelse(!grepl(pattern, value), "black", "white")
+    lab = ifelse(grepl(pattern, value), pc, NA),
+    col = ifelse(grepl(pattern, value), "black", "white")
   ) &
   coord_cartesian(xlim = c(0, 1.4), clip = "off") &
   theme(axis.text.y = element_text(size=7)) &
@@ -194,8 +194,8 @@ data |>
     npos = 1.3, 
     min_pc = .2,
     size = 1.5,
-    lab = ifelse(!grepl(pattern, value), pc, NA),
-    col = ifelse(!grepl(pattern, value), "black", "white")
+    lab = ifelse(grepl(pattern, value), pc, NA),
+    col = ifelse(grepl(pattern, value), "black", "white")
   )  &
   coord_cartesian(xlim = c(0, 1.4), clip = "off") &
   theme(axis.text.y = element_text(size=7)) &
@@ -216,8 +216,8 @@ data |>
     npos = 1.3, 
     min_pc = .2,
     size = 1.5,
-    lab = ifelse(!grepl(pattern, value), pc, NA),
-    col = ifelse(!grepl(pattern, value), "black", "white")
+    lab = ifelse(grepl(pattern, value), pc, NA),
+    col = ifelse(grepl(pattern, value), "black", "white")
   ) &
   coord_cartesian(xlim = c(0, 1.4), clip = "off") &
   theme(axis.text.y = element_text(size=7)) &
@@ -238,8 +238,8 @@ data |>
     npos = 1.3, 
     min_pc = .2,
     size = 1.5,
-    lab = ifelse(!grepl(pattern, value), pc, NA),
-    col = ifelse(!grepl(pattern, value), "black", "white")
+    lab = ifelse(grepl(pattern, value), pc, NA),
+    col = ifelse(grepl(pattern, value), "black", "white")
   )  &
   coord_cartesian(xlim = c(0, 1.4), clip = "off") &
   theme(axis.text.y = element_text(size=7)) &

diff --git a/inst/docs/paper1/descriptives.knit.md b/inst/docs/paper1/descriptives.knit.md