0
$\begingroup$

Below is the code for an example plot,

Labeled[ListLinePlot[{Thread[{{0, 360, 720}, {0, 10, 
   20}}]}],{"\!\(\*FractionBox[\(\[CapitalPsi]\), \(R\)]\)", "\!\(\*FractionBox[\(\[CapitalPsi]\),\(R\)]\)"},{Bottom, Left},RotateLabel -> False] // TraditionalForm
Export["/Users/selva/Desktop/Final/Images/test1.jpeg",TraditionalForm[%]]

I get the above image. Correct

Now if I export it to PDF/EPS using

Export["/Users/selva/Desktop/Final/Images/test1.pdf",TraditionalForm[%]]

I get below image, Wrong

In PDF export, the [CapitalPsi] is no longer in traditional form. Can someone help me with this?

Note: It work in PlotLegends but not in Labeled. Is this a bug?

$\endgroup$

1 Answer 1

0
$\begingroup$
plot = ListLinePlot[{Thread[{{0, 360, 720}, {0, 10, 20}}]}, 
        Frame -> True, RotateLabel -> False, 
        FrameLabel -> {{FractionBox["\[CapitalPsi]", "R"], ""},
        {FractionBox["\[CapitalPsi]", "R"], ""}}] // DisplayForm

fileNameSave = SystemDialogInput["FileSave", "testplot.pdf", 
                WindowTitle -> "Save plot ..."];
Export[fileNameSave, plot];

enter image description here

$\endgroup$
4
  • $\begingroup$ Will this works for EPS as well? Because I am not able to export as EPS $\endgroup$
    – Selva
    Commented Apr 20, 2016 at 19:05
  • $\begingroup$ Exchange "testplot.pdf" with "testplot.eps"... (don't forget to vote ... "arrow up" or "arrow down") $\endgroup$
    – mrz
    Commented Apr 22, 2016 at 14:26
  • $\begingroup$ Thanks for the reply... Weird it didn't work last time but now it works... $\endgroup$
    – Selva
    Commented Apr 23, 2016 at 19:58
  • $\begingroup$ I tried to but it says I need 15 reputations :( $\endgroup$
    – Selva
    Commented Apr 24, 2016 at 10:19

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.