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 '19 at 13:48
  • $\begingroup$ Just ListPlot point dear $\endgroup$ – Mohammad S Al-tawaha Jan 14 '19 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

| improve this answer | |
$\endgroup$
  • $\begingroup$ Thank you so much, it's really done well $\endgroup$ – Mohammad S Al-tawaha Jan 15 '19 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 '19 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.