Plot[Evaluate[Sin[# x] & /@ Range[7]], {x, 0, 2 Pi}, PlotLegends -> Placed[LineLegend["Expressions", LegendLayout -> (Grid[{Flatten@Riffle[#, Spacer[3]]}] &)], Above]] 
kglr
- 403.4k
- 18
- 501
- 959
Plot[Evaluate[Sin[# x] & /@ Range[7]], {x, 0, 2 Pi}, PlotLegends -> Placed[LineLegend["Expressions", LegendLayout -> (Grid[{Flatten@Riffle[#, Spacer[3]]}] &)], Above]]