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
    Jan 14, 2019 at 13:48
  • $\begingroup$ Just ListPlot point dear $\endgroup$ 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$ 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
    Jan 15, 2019 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.