L-mode colour fix

mrmeloman · Mar 12, 2021 · d6a2e09 · d6a2e09
1 parent ee095d1
commit d6a2e09
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 13 deletions.
diff --git a/.Rproj.user/DFCA1C7C/sources/prop/421CC383 b/.Rproj.user/DFCA1C7C/sources/prop/421CC383
@@ -1,5 +1,6 @@
 {
     "tempName": "Untitled1",
     "cursorPosition": "128,0",
-    "scrollLine": "140"
+    "scrollLine": "0",
+    "Source": "Source"
 }
diff --git a/plots.R b/plots.R
@@ -6186,9 +6186,10 @@ lmode.plot.cat <- ggplot(lmo.emp, aes(x = xvalues, y = yvalues)) +
   )
 
 lmode.plot.dim <- ggplot(lmo.emp, aes(x = xvalues, y = yvalues)) +
-  geom_polygon(inherit.aes = FALSE, aes(x = lmode.polygon.dim.x, y = lmode.polygon.dim.y), fill = "#0b5db5") +
-  geom_line(aes(y = lmode.line1.dim.y), size = 1.2, color = "#0b5db5") +
-  geom_line(aes(y = lmode.line2.dim.y), size = 1.2, color = "#0b5db5") +
+  geom_polygon(inherit.aes = FALSE, aes(x = lmode.polygon.dim.x, y = lmode.polygon.dim.y),
+               fill = "#5aa007") +
+  geom_line(aes(y = lmode.line1.dim.y), size = 1.2, color = "#5aa007") +
+  geom_line(aes(y = lmode.line2.dim.y), size = 1.2, color = "#5aa007") +
   geom_line(size = 1.5) +
   geom_segment(aes(x = lmode.vline1.cat.x[1],
                    y = lmode.vline1.cat.y[1],
@@ -12405,9 +12406,9 @@ lmode.plot.cat <- ggplot(lmo.emp, aes(x = xvalues, y = yvalues)) +
   )
 
 lmode.plot.dim <- ggplot(lmo.emp, aes(x = xvalues, y = yvalues)) +
-  geom_polygon(inherit.aes = FALSE, aes(x = lmode.polygon.dim.x, y = lmode.polygon.dim.y), fill = "#0b5db5") +
-  geom_line(aes(y = lmode.line1.dim.y), size = 1.2, color = "#0b5db5") +
-  geom_line(aes(y = lmode.line2.dim.y), size = 1.2, color = "#0b5db5") +
+  geom_polygon(inherit.aes = FALSE, aes(x = lmode.polygon.dim.x, y = lmode.polygon.dim.y), fill = "#5aa007") +
+  geom_line(aes(y = lmode.line1.dim.y), size = 1.2, color = "#5aa007") +
+  geom_line(aes(y = lmode.line2.dim.y), size = 1.2, color = "#5aa007") +
   geom_line(size = 1.5) +
   geom_segment(aes(x = lmode.vline1.cat.x[1],
                    y = lmode.vline1.cat.y[1],
@@ -18636,9 +18637,9 @@ lmode.plot.cat <- ggplot(lmo.emp, aes(x = xvalues, y = yvalues)) +
   )
 
 lmode.plot.dim <- ggplot(lmo.emp, aes(x = xvalues, y = yvalues)) +
-  geom_polygon(inherit.aes = FALSE, aes(x = lmode.polygon.dim.x, y = lmode.polygon.dim.y), fill = "#0b5db5") +
-  geom_line(aes(y = lmode.line1.dim.y), size = 1.2, color = "#0b5db5") +
-  geom_line(aes(y = lmode.line2.dim.y), size = 1.2, color = "#0b5db5") +
+  geom_polygon(inherit.aes = FALSE, aes(x = lmode.polygon.dim.x, y = lmode.polygon.dim.y), fill = "#5aa007") +
+  geom_line(aes(y = lmode.line1.dim.y), size = 1.2, color = "#5aa007") +
+  geom_line(aes(y = lmode.line2.dim.y), size = 1.2, color = "#5aa007") +
   geom_line(size = 1.5) +
   geom_segment(aes(x = lmode.vline1.cat.x[1],
                    y = lmode.vline1.cat.y[1],
@@ -24867,9 +24868,9 @@ lmode.plot.cat <- ggplot(lmo.emp, aes(x = xvalues, y = yvalues)) +
   )
 
 lmode.plot.dim <- ggplot(lmo.emp, aes(x = xvalues, y = yvalues)) +
-  geom_polygon(inherit.aes = FALSE, aes(x = lmode.polygon.dim.x, y = lmode.polygon.dim.y), fill = "#0b5db5") +
-  geom_line(aes(y = lmode.line1.dim.y), size = 1.2, color = "#0b5db5") +
-  geom_line(aes(y = lmode.line2.dim.y), size = 1.2, color = "#0b5db5") +
+  geom_polygon(inherit.aes = FALSE, aes(x = lmode.polygon.dim.x, y = lmode.polygon.dim.y), fill = "#5aa007") +
+  geom_line(aes(y = lmode.line1.dim.y), size = 1.2, color = "#5aa007") +
+  geom_line(aes(y = lmode.line2.dim.y), size = 1.2, color = "#5aa007") +
   geom_line(size = 1.5) +
   geom_segment(aes(x = lmode.vline1.cat.x[1],
                    y = lmode.vline1.cat.y[1],