plot_strategies_cum_returns.R

# Plot the both buy-and-hold and the strategy cumulative returns
ggplot(data=df_forecasts, aes(x = date)) +
  geom_line(aes(y = var_stra_cum_returns, color="VAR")) +
  geom_line(aes(y = tvp_var_sv_stra_cum_returns, color="TVP-VAR-SV")) +
  geom_line(aes(y = bnh_cum_returns,color="B&H")) +
  geom_line(aes(y = stra_improved_cum_returns, color="Improved TVP-VAR-SV")) +
  ggtitle("Buy and Hold and Strategies' Cumulative Returns") + xlab("Date") + ylab("Returns") + 
  theme(plot.title = element_text(hjust = 0.5, size=25), legend.position="bottom", legend.text = element_text(size=20)) + 
  scale_x_date(date_labels = "%b %y") +
  theme(
    axis.title.x = element_text(size = 20),
    axis.text.x = element_text(size = 20),
    axis.title.y = element_text(size = 20),
    axis.text.y = element_text(size = 20),)
ggsave("strategies-cumulative-returns.png")