I have Mathematica 13.1 on Windows 10. The problem is not present on Mathematica 12.1!
I try to export the following plot:
plot = Show[
ListLogLogPlot[{Table[{x, 10^-12}, {x, 0.1, 5, 1}]}, Joined -> True,
PlotStyle -> {{Thick, Gray}}, Frame -> True,
FrameLabel -> {"\!\(\*SubscriptBox[\(m\), \(S\)]\) [GeV]" ,
"\!\(\*SuperscriptBox[\(\[Theta]\), \(2\)]\)"},
FrameStyle -> Directive[Black, 23], ImageSize -> Large,
PlotRange -> {{0.2, 5}, {10^-14, 10^-4}},
PlotLabel -> Style[Row[{"Caption "}], 18, Black],
Filling -> {1 -> {True, Directive[Gray, Opacity[0.3]]}}],
Graphics[{Text[Style["Excluded", 24, Black], Scaled[{0.2, 0.9}]],
Text[Style[Row[{"\[Tau] = 1 ps"}], 15, Lighter@Gray],
Scaled[{0.6, 0.74}], Left, {3, -0.4}],
Text[Style["\[Tau] = 100 ps", 15, Lighter@Gray],
Scaled[{0.6, 0.53}], Left, {3, -0.4}],
Text[Style["\[Tau] = \!\(\*SuperscriptBox[\(10\), \(4\)]\) ps",
15, Lighter@Gray], Scaled[{0.6, 0.34}], Left, {3, -0.4}],
Text[Style["\[Tau]=\!\(\*SuperscriptBox[\(10\), \(6\)]\) ps", 15,
Lighter@Gray], Scaled[{0.6, 0.15}], Left, {3, -0.4}]}]]
Export[FileNameJoin[{NotebookDirectory[], "plot.pdf"}], plot]
This is how it looks in Mathematica (left) and when opening the exported .pdf (right):
In particular, all the graphics with rotated text is not present. Could you please tell me how to fix this issue?
Edit
The problem is in the text rotation. Say, for
Text[Style["\[Tau] = \!\(\*SuperscriptBox[\(10\), \(4\)]\) ps",
15, Lighter@Gray], Scaled[{0.6, 0.34}], Left, {3, -0.4}]
the text is displayed properly if removing Left, {3, -0.4}
. However, the rotation is crucial for me.