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"}, ...


2

Also, without the fuss of tables and Showand disregarding unnecessary options: ListLinePlot[activity, FrameTicks -> tickSpecs, Frame -> {Left, Bottom}, FrameStyle -> Thick, Axes -> False, LabelStyle -> {FontSize -> 20, FormatType -> Bold}, PlotStyle -> (Directive[Darker@#, Dashing[{0.05}], Thick] & /@ colors), ...


1

You can do a simple manual fix like so :- Show[Extract[Plots, {{5}, {4}, {3}, {2}, {1}, {6}}]]


2

I've run into several issues like this with the legends and quite frankly, trying to investigate the cause/fix it is probably more trouble than worth. Instead, here's a work around: (* Your code without the legends *) Plots = Table[ ListPlot[activity[[i]], PlotRange -> All, PlotStyle -> {Darker[colors[[i]]], Dashing[{0.05}], Thick, ...



Top 50 recent answers are included