Minor fixes

This commit is contained in:
codez0mb1e 2022-03-29 12:06:17 +00:00
parent fe96bd736a
commit 1dc01127a8

View File

@ -203,16 +203,17 @@ jumper_symbols <- quotes_stats %>% filter(max_min_rate > 2) %>% pull(symbol)
quotes_df %>% quotes_df %>%
filter(symbol %in% low_risk_symbols) %>% filter(symbol %in% low_risk_symbols) %>%
mutate( 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) %>% group_by(symbol) %>%
mutate(R = cumsum(return)) %>% mutate(R = cumsum(return)) %>%
ggplot + ggplot +
geom_line(aes(x = date, y = R, color = symbol)) + geom_line(aes(x = date, y = R, color = symbol)) +
facet_grid(jumper ~ ., scales = "free") + 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() theme_bw()
``` ```