2

I'd like to add a label to the top of each column of a GraphicsGrid and to the Left of each Row.

This prior question does not seem to allow rotating the row label.

The Row labels need to be rotated, so the TableForm does not suffice, anyway I also need these to be graphics objects for exporting.

Given is the example output generated below, where the GraphicsGrid is what I am working with:

pl = Table[ListPlot[RandomReal[{0, 1}, 60]], {4}, {6}];

(*Nearly but not rotated*)
TableForm[pl, TableHeadings -> {{"r1 rotated", "r2 rotated", "r3 rotated", "r4 rotated"}, {"c1", "c2", "c3", "c4", "c5", "c6"}}]

(* Ideal if labels added to this *)
GraphicsGrid[pl]

Appreciate any hints or tips.

kglr
  • 394,356
  • 18
  • 477
  • 896
Hedgehog
  • 624
  • 3
  • 15
  • 4
    why not TableHeadings -> {Rotate[#, 90 Degree] & /@ {"r1 rotated", "r2 rotated", "r3 rotated", "r4 rotated"}, {"c1", "c2", "c3", "c4", "c5", "c6"}}? – kglr Dec 29 '17 at 02:21
  • That did the trick. If you want to post the comment as an answer I'll accept it. Otherwise I'll answer with your suggestion if you don't object? – Hedgehog Dec 31 '17 at 03:47
  • Hedgehog, posted an answer. – kglr Dec 31 '17 at 03:59

1 Answers1

3
pl = Table[ListPlot[RandomReal[{0, 1}, 60]], {3}, {4}];
TableForm[pl, TableHeadings -> 
   {Rotate[#, 90 Degree] & /@ {"r1 rotated", "r2 rotated", "r3 rotated", "r4 rotated"}, 
   {"c1", "c2", "c3", "c4", "c5", "c6"}},
  TableAlignments -> Center]

enter image description here

kglr
  • 394,356
  • 18
  • 477
  • 896