Aligning the axeslabel in a 3D list plot ($x,y,z$) (edited)?

Question

I have the following code

plot = ListPlot3D[mydata5, DataRange -> {{0, 6}, {0, 6}}, PerformanceGoal -> "Quality", 
                 BoxRatios -> {1, 1, .7}, 
                 AxesLabel -> {Style[Subscript[t, l], FontSize -> 21], 
                   Style[Subscript[t, u], FontSize -> 21], 
                   Style[Subsuperscript[Subscript["E", Subscript[N, 0]], m, a]/
                         Subsuperscript[Subscript["E", Subscript[N, 0]], m, m], FontSize -> 21]}, 
                 BaseStyle -> 18]

For plotting a 3D $60\times 60$ data. Here is the output

Obviously the problem is at the axes label at left up side. It overlaps with the numbers. I am just using rotate sign and do the rotation and scaling manually. This view was the nicest view but I cannot play with increasing or decreasing the indent of the axeslabels. Is it possible to add it inside ListPlot3D?

I am sorry, but I dont know how to load the data here but I think it might not be a crucial issue.

EDIT:(29.10.2014)

I checked the following questions and the answers therein:

Collision of axes labels and ticks

AxesLabel in Histogram3D unreadable

These answer also don't help me because they don't have Subscript notations in the Style, instead they have "".

Answer 1

ClearAll[pF];
pF[l_: 0, r_: 5] := Pane[Style[#, FontSize -> Large],FrameMargins -> {{l, r}, {0, 0}}] &;

{xl, yl, zl} = {Style[Subscript[t, l], FontSize -> 21], 
   Style[Subscript[t, u], FontSize -> 21], 
   Style[Subsuperscript[Subscript["E", Subscript[N, 0]], m, a]/
     Subsuperscript[Subscript["E", Subscript[N, 0]], m, m], 
    FontSize -> 21]};

mydata5 = Table[Sin[j^2 + i], {i, 0, Pi, Pi/5}, {j, 0, Pi, Pi/5}];
Row[ListPlot3D[mydata5, DataRange -> {{0, 6}, {0, 6}}, BaseStyle -> 18,
    PerformanceGoal -> "Quality", ImageSize -> 300, BoxRatios -> {1, 1, .7}, 
    AxesLabel -> {xl, yl, pF[0, #]@zl} ] & /@ {0, 20, 40}, Spacer[10]]

You can also use Framed instead of Pane:

ClearAll[pF2];
pF2[l_: 0, r_: 5] := Framed[Style[#, FontSize -> Large], FrameStyle->None,
                     FrameMargins -> {{l, r}, {0, 0}}] &;

Answer 2

A quick fix is to add several white spaces i.e. use something like AxesLabel -> "a ". You can use Manipulate to adjust the number of white spaces:

With[{p = Plot3D[Abs[x + I y], {x, -4, 4}, {y, -4, 4}]}, 
 Manipulate[Show[p, AxesLabel -> "|z|" <> ConstantArray[" ", n]], {n, 0, 10, 1}]]

---

As suggested by Alexey Popkov in the comment below, we can achieve exact positioning with Spacers:

With[{p = Plot3D[Abs[x + I y], {x, -4, 4}, {y, -4, 4}]}, 
 Manipulate[Show[p, AxesLabel -> Row[{"|z|", Spacer[s]}]], {s, 0, 100}]]

Answer 3

Plot3D[29000.0 Abs[x + I y], {x, -4, 4}, {y, -4, 4},
 BoxRatios -> {1, 1, .7},
 ImageSize -> 300,
 AxesLabel -> Row[{Spacer[30], 
    Style[ Subsuperscript[Subscript["E", Subscript[N, 0]], m, a]/Subsuperscript[
    Subscript["E", Subscript[N, 0]], m, m]], Spacer[30]}]
]