From 1dc01127a82264310bfdb8f79801dcb249115636 Mon Sep 17 00:00:00 2001 From: codez0mb1e Date: Tue, 29 Mar 2022 12:06:17 +0000 Subject: [PATCH] Minor fixes --- src/fx_currencies_anlysis.Rmd | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/fx_currencies_anlysis.Rmd b/src/fx_currencies_anlysis.Rmd index 1a122b4..dd966c0 100755 --- a/src/fx_currencies_anlysis.Rmd +++ b/src/fx_currencies_anlysis.Rmd @@ -203,16 +203,17 @@ jumper_symbols <- quotes_stats %>% filter(max_min_rate > 2) %>% pull(symbol) quotes_df %>% filter(symbol %in% low_risk_symbols) %>% mutate( - jumper = if_else(symbol %in% jumper_symbols, T, F) + jumper = if_else(symbol %in% jumper_symbols, "High risk currencies", "Low risk currencies") ) %>% group_by(symbol) %>% mutate(R = cumsum(return)) %>% ggplot + geom_line(aes(x = date, y = R, color = symbol)) + - + facet_grid(jumper ~ ., scales = "free") + + labs(x = "", y = "Return of Investment", title = "Currencies Exchange Rates", subtitle = "Return of Investment for last 10 years") + theme_bw() ```