0
$\begingroup$

I want a faithful PDF file of the exported graphs from Mathematica 13 & 14. The MWE is based upon plotting multiple functions with one control parameter as:

legend2[ls__] = LineLegend[Dashing /@ {None, {0.02, 0.01}}, {ls}, "LegendItem" -> {sparkline}];

testPlot = Plot[Evaluate[Table[Style[{Sin[a r], 3 + Cos[a r]}, ColorData["Rainbow"][(a - 1)/(8 - 1)]], {a, 1, 8, 1}]], {r, -Pi, Pi},
PlotRange -> {All, All},
PlotStyle -> {Automatic, Dashing[{0.02, 0.01}]},
PlotLegends -> legend2["A", "B"]]

Export[SetDirectory[NotebookDirectory[]] <> "//testFile.pdf", testPlot, "PDF", "AllowRasterization" -> False]

Export[SetDirectory[NotebookDirectory[]] <> "//testFile.png", testPlot, "PNG", "AllowRasterization" -> False]

Export[SetDirectory[NotebookDirectory[]] <> "//testFile.svg", testPlot, "SVG", "AllowRasterization" -> False]

In PNG Format

In PDF Format

Any workaround this problem/bug or any other way to get PDF file without such issues?

Improve this question
$\endgroup$
6
  • $\begingroup$ "LegendItem" -> {sparkline} does not work on "14.1.0 for Mac OS X ARM (64-bit) (July 16, 2024)". $\endgroup$ Commented Jan 23 at 8:43
  • $\begingroup$ Everything else seems fine. What's the problem? $\endgroup$ Commented Jan 23 at 8:46
  • $\begingroup$ The problem occurred while using Export command to export graphics in PDF format. All legend lines became similar. $\endgroup$ Commented Jan 23 at 11:13
  • $\begingroup$ "LegendItem" -> {sparkline} does not work on "14.1.0 for Windows 64" either. $\endgroup$ Commented Jan 23 at 17:33
  • 1
    $\begingroup$ Another way to solve the issue without using "LegendItem" -> {sparkline} $\endgroup$ Commented Jan 24 at 1:04

0

Reset to default

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.