From adfd4993964ecc3e8f458cca85833fedb4a56a08 Mon Sep 17 00:00:00 2001 From: Andrey Koval Date: Fri, 3 Feb 2017 10:21:37 -0500 Subject: [PATCH] #169 fixed ids --- sandbox/coupling-graphs/coupling-graphs-1.R | 24 +++++++++++++++------ 1 file changed, 17 insertions(+), 7 deletions(-) diff --git a/sandbox/coupling-graphs/coupling-graphs-1.R b/sandbox/coupling-graphs/coupling-graphs-1.R index 4c8d6c8f..6a63c8aa 100644 --- a/sandbox/coupling-graphs/coupling-graphs-1.R +++ b/sandbox/coupling-graphs/coupling-graphs-1.R @@ -134,16 +134,26 @@ path_out <- catalog %>% dplyr::select(file_path) %>% as.character() # recover observed and modeled data for one model (map and octo only for now) -ds_long <- recover_data(path_out,long=TRUE,normal_resid = FALSE) -ds_wide <- recover_data(path_out,long=FALSE, normal_resid = FALSE) -# ds_long <- recover_data(path_out,long=TRUE,normal_resid = TRUE) -# ds_wide <- recover_data(path_out,long=FALSE, normal_resid = TRUE) - +# ds_long <- recover_data(path_out,long=TRUE,normal_resid = FALSE) +# ds_wide <- recover_data(path_out,long=FALSE, normal_resid = FALSE) +ds_long <- recover_data(path_out,long=TRUE,normal_resid = TRUE) +ds_wide <- recover_data(path_out,long=FALSE, normal_resid = TRUE) +ids <- c( + 2, 3, 11, 25, 36, 42, 43, + 59, 79, 92, 107,113, 116, 120, + 123, 131, 142, 143, 144, 153, 165, + 170, 173, 176, 198, 204, 206, 215, + 220, 223, 233, 236, 239, 245, 257, + 265, 267, 271, 273, 283, 288, 289, + 292, 294, 296, 299, 300, 318 +) #%>% as.character() # ---- graph-1 --------------------- -set.seed(42) -ids <- sample(unique(ds_wide$id),48) +ds <- ds_long +# set.seed(42) +# ids <- sample(unique(ds$id),48) g <- ds_wide %>% + dplyr::mutate(id = as.numeric(id)) %>% dplyr::filter(id %in% ids) %>% ggplot2::ggplot(aes(x=TIME,group=id))+ geom_line(aes(y=residual_A), color="red")+