Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

This chromogram shown here represents data (mouse activity patterns during visits) for ~20 physicians in a study, each of which may have a variable number of visits in the study (physicians are color coded; also the last 2 digits in the XXX-YY). So each row represents one visit.

Row and Column are used to layout the graphical elements including the XXX-YY annotation (the arrow is due to using Rule in key-value pairs). The query looks something like this:

Column[#,ItemSize->90]&@  PACE[VISITS] /. 
      v_String:>Row@{PROVIDERCOLOR@v ->  Graphics[VGr[v/.PACE[V1]],ChromoGrOptions]}

Taking the resulting expression as argument, how can the spacing be adjusted so that there is more space between distinct physicians' data?

A method I want to avoid, if possible, is to restructure the data and call Column separately perhaps with different padding parameters. Though perhaps it's possible to apply Map or Thread or combinations, to effect that rewrite.


share|improve this question
I assume you tried Spacings option for Column to control horizontal and vertical spacings of items? E.g. Table[Table[Column[{1, 22, 333}, Spacings -> {h, v}, Frame -> True], {h, {1, 3, 5}}], {v, {1, 3, 5}}] – kglr Apr 10 '12 at 22:15
@kguler, the data does contains information that could be used to parametrize Spacing option. The questions are (1) how to pattern match Spacing parameters from the data; (2) how to effect that tranformation without changing the query that includes calls to Row and Column? – alancalvitti Apr 11 '12 at 2:35

This is more an idea than an answer.

That kind of graphical output seems ideal for multi cell output. This way, if the output is very long, Mathematica handles the page breaks for you (in case you need to print or generate a PDF report).

Try this:

CellPrint /@ Table[Graphics[{Gray, Rectangle[{0, 0}, {10, 1}]}], {10}]

multi cell output

share|improve this answer
Thanks, wasn't aware of CellPrint – alancalvitti Jul 11 '12 at 19:57

Your Answer


By posting your answer, you agree to the privacy policy and terms of service.

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