Browse code

specifying to omit the NA from the ranges calculations

Federico Marini authored on 07/10/2022 11:42:32
Showing 2 changed files

... ...
@@ -177,7 +177,7 @@ enrichment_map <- function(res_enrich,
177 177
     V(emg)$color.hover <- map2color(col_var, mypal_hover, symmetric = FALSE, limits = range(col_var))
178 178
   } else {
179 179
     # e.g. using z_score or aggregated value
180
-    if (prod(range(col_var)) >= 0) {
180
+    if (prod(range(na.omit(col_var))) >= 0) {
181 181
       # gradient palette
182 182
       mypal <- (scales::alpha(
183 183
         colorRampPalette(RColorBrewer::brewer.pal(name = "Oranges", 9))(50), 0.8
... ...
@@ -190,9 +190,12 @@ enrichment_map <- function(res_enrich,
190 190
       ))
191 191
       
192 192
       # V(g)$color <- map2color(colVar,mypal,limits = range(colVar))
193
-      V(emg)$color.background <- map2color(col_var, mypal, symmetric = FALSE, limits = range(col_var))
194
-      V(emg)$color.highlight <- map2color(col_var, mypal_select, symmetric = FALSE, limits = range(col_var))
195
-      V(emg)$color.hover <- map2color(col_var, mypal_hover, symmetric = FALSE, limits = range(col_var))
193
+      V(emg)$color.background <- map2color(col_var, mypal, symmetric = FALSE, 
194
+                                           limits = range(na.omit(col_var)))
195
+      V(emg)$color.highlight <- map2color(col_var, mypal_select, symmetric = FALSE, 
196
+                                          limits = range(na.omit(col_var)))
197
+      V(emg)$color.hover <- map2color(col_var, mypal_hover, symmetric = FALSE, 
198
+                                      limits = range(na.omit(col_var)))
196 199
     } else {
197 200
       # divergent palette to be used
198 201
       mypal <- rev(scales::alpha(
... ...
@@ -206,9 +209,12 @@ enrichment_map <- function(res_enrich,
206 209
       ))
207 210
       
208 211
       # V(g)$color <- map2color(colVar,mypal,limits = range(colVar))
209
-      V(emg)$color.background <- map2color(col_var, mypal, symmetric = TRUE, limits = range(col_var))
210
-      V(emg)$color.highlight <- map2color(col_var, mypal_select, symmetric = TRUE, limits = range(col_var))
211
-      V(emg)$color.hover <- map2color(col_var, mypal_hover, symmetric = TRUE, limits = range(col_var))
212
+      V(emg)$color.background <- map2color(col_var, mypal, symmetric = TRUE, 
213
+                                           limits = range(na.omit(col_var)))
214
+      V(emg)$color.highlight <- map2color(col_var, mypal_select, symmetric = TRUE, 
215
+                                          limits = range(na.omit(col_var)))
216
+      V(emg)$color.hover <- map2color(col_var, mypal_hover, symmetric = TRUE, 
217
+                                      limits = range(na.omit(col_var)))
212 218
     }
213 219
   }
214 220
 
... ...
@@ -152,7 +152,7 @@ gs_dendro <- function(res_enrich,
152 152
       
153 153
     } else {
154 154
       # e.g. using z_score or aggregated value
155
-      if (prod(range(col_var)) >= 0) {
155
+      if (prod(range(na.omit(col_var))) >= 0) {
156 156
         # gradient palette
157 157
         mypal <- (scales::alpha(
158 158
           colorRampPalette(RColorBrewer::brewer.pal(name = "Oranges", 9))(50), 0.8