mirror of
https://github.com/codez0mb1e/resistance.git
synced 2024-11-09 12:11:02 +00:00
Minor fixes
This commit is contained in:
parent
fe96bd736a
commit
1dc01127a8
@ -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()
|
||||||
```
|
```
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user