df_ret_ppas <- df_ret_ppas[df_ret_ppas$month >= dt1, ] %>% mutate(month = as.Date(month), month_label = format(month, “%Y-%m”))