...
|
...
|
@@ -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
|
|