R中的ggplotly中的水平传奇

Question

我在ggplotly中显示图例时遇到问题。我必须传奇，不能更改列数（所有内容都显示在一行中，所以要减少很多）。如何更改列数？

pp_changed=plotly_build(a)   
style(pp_changed) %>% 
layout( legend = list(orientation = "h",xanchor = "center",  `enter code here`x = 
0, y =-0.2))