hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bugfix and colorfix

Browse Source
This commit is contained in:
Roland Hollós 2018-12-07 15:42:09 +01:00
parent 1aaa21348e
commit 044f71d346
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
RBBGCMuso/R/quickeffect.R
View File

@ -52,6 +52,6 @@ musoQuickEffect <- function(settings = NULL,calibrationPar = NULL, startVal, en
a %<>% a %<>%
tbl_df %>% tbl_df %>%
mutate(date=as.Date(rownames(a),"%d.%m.%Y")) %>% mutate(date=as.Date(rownames(a),"%d.%m.%Y")) %>%
select(date,varNames,parVal) select(date,as.character(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))) 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))))
} }