1
$\begingroup$

I would like to align the reduced temperature text Tr below the x-axis and not align it to the whole graph. The code used so far is this

graficoTr =   Labeled[   ListPlot[    Table[{dataPerCompound[[i, All, 9]], 
      dataPerCompound[[i, All, 2]]}\[Transpose], {i, 
     Length[compoundNameRight]}],    PlotLegends -> 
    Placed[
     PointLegend[colours1, Style[#, par1] & /@ compoundNameRight, 
      LegendMarkers -> markers, LegendLayout -> {"Column", 3}], 
     Right], PlotMarkers -> Evaluate[{#, par2} & /@ markers],     PlotStyle -> colours1, ImageSize -> 500,     Frame -> {{True, False}, {True, False}}, FrameStyle -> 15,     PlotRange -> All], {Rotate[
    Style[
     "\!\(\*SubscriptBox[\(\[Sigma]\), \ \(exp\)]\)(N\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(-1\)]\))", 15], 
    90 Degree],     Style[Row[{Style["Tr", 15]}], ScriptBaselineShifts -> {0, .5}, 
    SingleLetterItalics -> False, "TraditionalForm"]}, {Left, Bottom},    FrameMargins -> {{-8, 0}, {0, 0}}]

And the result is this one Result

$\endgroup$
3
  • 1
    $\begingroup$ You can do that using FrameLabel as in: FrameLabel->{Style["x label"],Rotate[Style["y label"],90 Degree]} $\endgroup$
    – josh
    Jan 21, 2023 at 16:27
  • $\begingroup$ Would 275363 be of some help? $\endgroup$
    – Syed
    Jan 21, 2023 at 16:39
  • $\begingroup$ @josh Thanks a lot! It works very well! $\endgroup$
    – Cecil
    Jan 21, 2023 at 16:46

1 Answer 1

1
$\begingroup$

Without knowing your data, we cannot experiment with your code. However, I can propose a workaround. Try this:

Manipulate[
 graficoTr = 
  Labeled[ListPlot[
    Table[{dataPerCompound[[i, All, 9]], 
       dataPerCompound[[i, All, 2]]}\[Transpose], {i, 
      Length[compoundNameRight]}], 
    PlotLegends -> 
     Placed[PointLegend[colours1, 
       Style[#, par1] & /@ compoundNameRight, 
       LegendMarkers -> markers, LegendLayout -> {"Column", 3}], 
      Right], PlotMarkers -> Evaluate[{#, par2} & /@ markers], 
    PlotStyle -> colours1, ImageSize -> 500, 
    Frame -> {{True, False}, {True, False}}, FrameStyle -> 15, 
    PlotRange -> All], {Rotate[
     Style["\!\(\*SubscriptBox[\(\[Sigma]\), \ \(exp\)]\)(N\
\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(-1\)]\))", 15], 90 Degree], 
    Style[Row[{Style["Tr", 15], Spacer[x]}], 
     ScriptBaselineShifts -> {0, .5}, SingleLetterItalics -> False, 
     "TraditionalForm"]}, {Left, Bottom}, 
   FrameMargins -> {{-8, 0}, {0, 0}}], {x, 0, 400}]

and choose a proper value of x.

Have fun!

$\endgroup$

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.