How to label axes with words instead of the numbers?

Questions
,
1

I’m making a 3D graph which one of the axis should be a item list instead of numbers, you can see what i mean from the picture, can anyone help me with it? I’m using ListPlot3D to generate the 3D picture. Thanks a lot!

bar-graph.gif
bar-graph.gif911×623 14.3 KB

2

I think BarChart3D with the ChartLabels option is what you seek. BarChart3D

3

thanks, but i’m making a real 3d graph which has 3 dimensions of data, like this one below, couldn’t use BarChart3D to do that, do you have any other suggestions? Thanks!

Capture.PNG.jpg
Capture.PNG.jpg647×491 101 KB

4

The following is a simple example for how I was thinking of approaching the problem.

(* Mathematica 7 *)
    Plot3D[ Sin[x] Cos[x], {x, -Pi, Pi}, {y, -Pi, Pi}, 
    AxesLabel -> { 
    Rotate[ Grid[{ {"PEAK", " ","TROUGH"}(*Format as needed*)},
    Alignment -> Left
    ], -0.13Pi(*Rotate to align to x-axis for aesthetics*)], "Y", "Z"}, 
    Ticks -> {None(* Remove x-axis ticks *), Automatic(*Keep Y ticks*), Automatic(*Keep Z ticks*)}]

9561Untitled.png
9561Untitled.png849×542 79.1 KB

5

Thanks a lot, that works nice. I’m still wondering is there a way to Align item names along the axis automatically ?

6

I think I can use ViewPoint value to calculate the rotation value to resolve this, Thanks!

7

Did you mean something like this?

data = Flatten[
   Table[{x, y, Sin[x y]}, {x, 0, Pi, Pi/19}, {y, 0, Pi, Pi/19}], 1];

ticks = {{1, "One"}, {2, "Two"}, {3, "Three"}};

ListPlot3D[data, Ticks -> {ticks, ticks, Automatic}]

ticks.png
ticks.png360×274 30.8 KB

8

David, That’s very elegant! Thank you for sharing.