Placing a central header in each row in a GraphicsGrid

Question

Suppose I have a GraphicsGrid with the following format:

GraphicsGrid[{{Subscript[chart, 1, 1], Subscript[chart, 1, 2]}, {Subscript[chart, 2, 1], Subscript[chart, 2, 2]}, {Subscript[chart, 3, 1], Subscript[chart, 3, 2]}}]

In my grid, each row concerns the same type of information, and I would like to add a centralized heading to each of the three rows. How would I achieve that?

kglr · Accepted Answer

If it is ok to use Grid, you can do

charts = Array[BarChart[Range @ Times[##]] &, {3, 2}];
rowlabels = {"row:" <> ToString[#], SpanFromLeft} & /@ Range[Length @ charts]; 
Grid @ Riffle[rowlabels, charts]

For labeling each column, you can do:

columnLabels = {"column1", "column2"};
Grid[Prepend[charts, columnLabels]]

Placing a central header in each row in a GraphicsGrid

One Answer

Add your own answers!

Ask a Question