From d6a2e0901f665f083b7cd51ceabe85efd1411680 Mon Sep 17 00:00:00 2001 From: MeloMan Date: Sat, 13 Mar 2021 01:18:51 +0300 Subject: [PATCH] L-mode colour fix --- .Rproj.user/DFCA1C7C/sources/prop/421CC383 | 3 ++- plots.R | 25 +++++++++++----------- 2 files changed, 15 insertions(+), 13 deletions(-) diff --git a/.Rproj.user/DFCA1C7C/sources/prop/421CC383 b/.Rproj.user/DFCA1C7C/sources/prop/421CC383 index 0f6b30e..12a5e99 100644 --- 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" } \ No newline at end of file diff --git a/plots.R b/plots.R index 5b8a5ce..a34129d 100644 --- 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],