Tag Info

New answers tagged

0

I guess this could be solved by defcol[n_] := ColorData[1, "ColorList"][[n]]; Legended[Plot[{Sin[x], Sin[x]^2, Cos[x]}, {x, -2 \[Pi], 2 \[Pi]}], Placed[LineLegend[ {defcol[1], defcol[2], defcol[3]}, {"S", "S2", "C"}, LegendLayout -> "Row"], {0.5, -0.1}]] The position of Legend is defined by option {0.5, -0.1} This could be applied for any ...


4

You can define a layout function as shown in the documentation :- colors = {Red, Magenta, Pink, Orange, Yellow, Green, Darker[Green], Cyan, Blue, Purple, Black, Gray}; names = Table["Color " <> ToString[i], {i, 1, Length[colors]}]; table[pairs_] := TableForm[pairs, TableAlignments -> Left, TableSpacing -> {2, 1}]; LineLegend[colors[[;; ...


2

This might help. Here I have a helper function to make the legend into an Inset: plot = Plot[Evaluate[Exp[-4 f] /. {{f -> t}, {f -> t^2}}], {t, 0, 3}, BaseStyle -> {FontSize -> 11, AbsoluteThickness[1.5]}, PlotStyle -> {Blue, Red}, AxesLabel -> {"t"}, PlotLabel -> "Negativity", PlotLegends -> Placed[{"OU", "FBM"}, ...



Top 50 recent answers are included