fix bug on color on plot speed

atmoschem · Jul 13, 2023 · 3f48901 · 3f48901
1 parent 5e7d19a
commit 3f48901
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/Speed.R b/R/Speed.R
@@ -148,7 +148,7 @@ plot.Speed <- function(x,
                     z = t(as.matrix(x))[, nrow(x):1],
                     xlab = "",
                     ylab = paste0("Speed by streets [",as.character(units(x[[1]])), "]"),
-                    col = col,
+                    col = rev(col),
                     axe = FALSE)
     axis(2)
     addscale(t(as.matrix(x))[, nrow(x):1], col = col)