1
$\begingroup$

I have a problem, the legend is shown in rotate form and I want it in normal form

Plotf = 
  Labeled[
    Rotate[Show[R5, e2, PlotRange -> All], 270 Degree ], 
    {"Depth m",  "Residual load kN"}, 
    {Left, Top}, 
    RotateLabel -> True]

Show[Plotf, 
  Epilog -> 
    Inset[
      Framed[
        Column[
          {PointLegend[{Blue}, {"   Measured"}], 
           LineLegend[{Red}, {"Estimated"}]}], 
        RoundingRadius -> 5], 
      Scaled[{0.8, 0.85}]]]
$\endgroup$
  • 2
    $\begingroup$ What is R5 and e2? $\endgroup$ – SuTron Jan 14 at 13:48
  • $\begingroup$ Just ListPlot point dear $\endgroup$ – Mohammad S Al-tawaha Jan 14 at 15:47
0
$\begingroup$

I'm not sure I understand your question, but perhaps this example will give some idea on how to proceed.

Contrived data.

With[{n = 20},
 SeedRandom[42];
 p1 = ListLinePlot[RandomInteger[100, n], PlotStyle -> Red];
 p2 = ListPlot[RandomInteger[100, n], PlotStyle -> Blue];]

Plot

Legended[
  Labeled[
    Rotate[Show[p1, p2, PlotRange -> All], 270 Degree], 
    {"Depth m", "Residual load kN"},
    {Left, Top},
    RotateLabel -> True],
  Column[
    {PointLegend[{Blue}, {"   Measured"}], 
     LineLegend[{Red}, {"Estimated"}]}]]

plot

$\endgroup$
  • $\begingroup$ Thank you so much, it's really done well $\endgroup$ – Mohammad S Al-tawaha Jan 15 at 11:11
  • $\begingroup$ @MohammadSAl-tawaha. I'm glad you find my answer useful. Please consider accepting it. You can do that by clicking on the check mark that appears on the left of the answer below the down arrow. $\endgroup$ – m_goldberg Jan 15 at 20:11

Your Answer

By clicking "Post Your Answer", you agree to our terms of service, privacy policy and cookie policy

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