如果这是一个非常初学者的问题，请先抱歉，我对编码不太熟悉。我正在尝试使strat_returns成为spy_twelve_mon_ret，tbill_tewlve_mon_ret，GLD_twelve_mon_ret等之间的最大值，并且strat_label也采用所述变量的前几个字母。我的东西现在嵌套的方式不起作用，因为有些东西即使低于其他值也可以发布。

 mutate(strat_returns = if_else(lag(spy_twelve_mon_ret) < lag(tbill_twelve_mon_ret),bond_return,if_else(lag(spy_twelve_mon_ret) > lag(GLD_twelve_mon_ret),spy_return,if_else(lag(GLD_twelve_mon_ret) > lag(AEM_twelve_mon_ret),GLD_return,if_else(lag(AEM_twelve_mon_ret) > lag(NEM_twelve_mon_ret),AEM_return,if_else(lag(NEM_twelve_mon_ret) > lag(ABX_twelve_mon_ret),NEM_return,ABX_return))))),strat_label = if_else(lag(spy_twelve_mon_ret) < lag(tbill_twelve_mon_ret),"bond","spy","GLD","AEM","NEM","ABX")))))) %>% 

非常感谢您