Consider the following plot:
Show[LogLogPlot[{x, x^2, x^1.5, 5/x}, {x, 0.5, 3},
PlotRange -> {{0.5, 3}, {0.5, 10}}, Frame -> True,
FrameStyle -> Directive[Black, 25],
PlotStyle -> {{Thick, Blue}, {Thick, Red}, {Thick,
Darker@Darker@Green}, {Thick, Blue}, {Thick, Blue,
Dashing[0.02]}, {Thick, Darker@Darker@Green, Dashing[0.02]}},
ImageSize -> Large, FrameLabel -> {"x", "f(x)"},
PlotLegends ->
Placed[{Style["Curve 1", 21], Style["Curve 2", 21],
Style["Curve 3", 21]}, {0.83, 0.15}],
Filling -> {1 -> {{4}, Directive[Blue, Opacity[0.1]]},
4 -> {Top, Directive[Gray, Opacity[0.1]]},
5 -> {Top, Directive[Gray, Opacity[0.1]]}}],
Graphics[{Text[Style["Domain 1", 20, Darker@Blue],
Scaled[{0.3, 0.5}]],
Text[Style["Domain 2", 22, Darker@Blue], Scaled[{0.7, 0.7}]]}]]
The result is
Could you please tell me how to rotate the legend "Domain 2" to make it collinear to the blue line?
P.S. Without the deformation of the text.
Rotate[Text[Style["Domain 2", 22, Darker@Blue], Scaled[{0.45, 0.8}]], -45 Degree]
$\endgroup$ – Bob Hanlon May 25 '20 at 22:15Text[Style["Domain 2", 22, Darker@Blue], Scaled[{0.5, 0.75}], Left, {3, -1}]
? $\endgroup$ – kglr May 25 '20 at 22:54