mathematica plotlegends two columns