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
  • 2
    $\begingroup$ What is R5 and e2? $\endgroup$
    – SuTron
    Commented Jan 14, 2019 at 13:48
  • $\begingroup$ Just ListPlot point dear $\endgroup$ Commented Jan 14, 2019 at 15:47

1 Answer 1

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$
2
  • $\begingroup$ Thank you so much, it's really done well $\endgroup$ Commented Jan 15, 2019 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
    Commented Jan 15, 2019 at 20:11

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.