From 044f71d3461a60fb009fcfb28bbc6316e0b730b8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Fri, 7 Dec 2018 15:42:09 +0100 Subject: [PATCH] bugfix and colorfix --- RBBGCMuso/R/quickeffect.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/RBBGCMuso/R/quickeffect.R b/RBBGCMuso/R/quickeffect.R index 57aca6a..51fa7b8 100644 --- a/RBBGCMuso/R/quickeffect.R +++ b/RBBGCMuso/R/quickeffect.R @@ -52,6 +52,6 @@ musoQuickEffect <- function(settings = NULL,calibrationPar = NULL, startVal, en a %<>% tbl_df %>% mutate(date=as.Date(rownames(a),"%d.%m.%Y")) %>% - select(date,varNames,parVal) - print(ggplot(data = a, aes_string(x= "date", y= varNames))+geom_line(aes(alpha = factor(round(parVal,2)))) + labs(y=varNames, alpha = parName) + scale_alpha_discrete(range=c(0.4,1))) + select(date,as.character(varNames),parVal) + print(suppressWarnings(ggplot(data = a, aes_string(x= "date", y= varNames))+geom_line(aes(alpha = factor(round(parVal,2)))) + labs(y=varNames, alpha = parName) + scale_alpha_discrete(range=c(0.25,1)))) }