From a80cd8f4f55bfe2b9ae715f8bed1fe2ca7c0207a Mon Sep 17 00:00:00 2001 From: fawda123 Date: Wed, 25 Sep 2024 11:48:47 -0400 Subject: [PATCH] fix to color mapping for grades in show_fibmatrix --- R/show_fibmatrix.R | 1 + 1 file changed, 1 insertion(+) diff --git a/R/show_fibmatrix.R b/R/show_fibmatrix.R index 5aa0b1ec..4f1aeaf6 100644 --- a/R/show_fibmatrix.R +++ b/R/show_fibmatrix.R @@ -47,6 +47,7 @@ show_fibmatrix <- function(fibdata, yrrng = NULL, size = 10, hjust = 0, plotly = FALSE, width = NULL, height = NULL){ cols <- c('#2DC938', '#E9C318', '#EE7600', '#CC3231', '#800080') + names(cols) <- c('A', 'B', 'C', 'D', 'E') toplo <- anlz_fibmatrix(fibdata, yrrng = yrrng, stas = stas, bay_segment = bay_segment, indic = indic, threshold = threshold, lagyr = lagyr,