11
$\begingroup$

I'd like to modify this chart to relocate the z axis label so it's not over printing the values. 

data = RandomReal[{0, 100}, {100, 2}];
Histogram3D[data, 20, "ProbabilityDensity", 
AxesLabel -> {Style["Mean Rate (tph)", "Text"], 
Style["Duration (minutes)", "Text"], 
Style["Probability Density", "Text"]}, ImageSize -> Large, 
PlotLabel -> Style["Concentrator Run Duration and Mean Rate", 18], 
ChartStyle -> TSGblue, ViewPoint -> {Pi, Pi, 2}]

enter image description here

I can rotate the label but the values are still over printed.

enter image description here

Improve this question
$\endgroup$
3
  • $\begingroup$ Filling in the label background may help a bit: AxesLabel -> {Style["Mean Rate (tph)", "Text", Background -> White], Style["Duration (minutes)", "Text", Background -> White], Style["Probability Density", "Text", Background -> White ]} $\endgroup$
    – DavidC
    Mar 14, 2013 at 5:14
  • $\begingroup$ You could also use fewer ticks on z: Ticks-> {Automatic,Automatic,{0,.0005,.0010}} $\endgroup$
    – DavidC
    Mar 14, 2013 at 5:19
  • $\begingroup$ related Q/A Collision of axes labels and ticks $\endgroup$
    – kglr
    Mar 15, 2013 at 3:10

4 Answers 4

Reset to default
8
$\begingroup$

Some improvement can be achieved by filling in the background of the axess labels and by reducing the number of ticks on z.

AxesLabel -> {Style["Mean Rate (tph)", "Text", Background -> White], 
 Style["Duration (minutes)", "Text", Background -> White], 
 Style["Probability Density", "Text", Background -> White ]}

Ticks -> {Automatic, Automatic, {0, .0004, .0008}}

Mathematica graphics

Improve this answer
$\endgroup$
4
$\begingroup$

Seems very hard to control the position of the labels. But at least it's easy to make the labels more readable.

Histogram3D[data, 20, "ProbabilityDensity",
 AxesLabel -> {Panel@Style["Mean Rate (tph)", "Text"],
   Panel@Style["Duration (minutes)", "Text"],
   Framed[Panel@Style["Probability Density"], 
     FrameMargins -> 25, 
     FrameStyle -> None]},
 PlotLabel -> 
  Panel@Style["Concentrator Run Duration and Mean Rate", 18],
 ChartStyle -> "Pastel",
 ImageSize -> 600,
 ViewPoint -> {Pi, Pi, 2}]

enter image description here

Improve this answer
$\endgroup$
3
  • $\begingroup$ Are those OSX Panels? By the way, you are hardly a "Mathematica novice" at this time; you should remove that from your profile. $\endgroup$
    – Mr.Wizard
    Mar 15, 2013 at 2:01
  • $\begingroup$ @Mr.Wizard Yes, I'm on OSX, but I don't know how their appearance differs on other platforms. (And I still feel relatively novice-like compared with you lot!:) $\endgroup$
    – cormullion
    Mar 15, 2013 at 7:37
  • 1
    $\begingroup$ On Windows 7 they are boring: i.stack.imgur.com/JsLZz.png. (True, you're not Leonid yet but you are no novice either.) $\endgroup$
    – Mr.Wizard
    Mar 15, 2013 at 7:47
4
$\begingroup$

It's not an elegant solution but if you include ImagePadding and also offset the label with whitespace, this should work:

data = RandomReal[{0, 100}, {100, 2}];
Histogram3D[data, 20, 
"ProbabilityDensity",AxesLabel -> {Style["Mean Rate (tph)", "Text"], 
Style["Duration (minutes)     ", "Text"], 
Style["                Probability Density", "Text"]}, 
ImageSize -> Large, 
PlotLabel -> Style["Concentrator Run Duration and Mean Rate", 18], 
ChartStyle -> TSGblue, ViewPoint -> {Pi, Pi, 2}, 
ImagePadding -> {{40, 150}, {0, 0}}]

histogram with image padding

Improve this answer
$\endgroup$
0
$\begingroup$

I may be late to this party but another helpful hack is to include line breaks in the axis labels. Something like this worked for me:

AxesLabel -> Table[Style[zz, Background -> White], {zz, {"x0","x","\n \n \n \n \n v"}}]
Improve this answer
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.