MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Vertical Headers in TableForm or Grid

  • To: mathgroup at smc.vnet.net
  • Subject: [mg118379] Re: Vertical Headers in TableForm or Grid
  • From: Helen Read <readhpr at gmail.com>
  • Date: Mon, 25 Apr 2011 07:28:21 -0400 (EDT)
  • References: <ip14r1$gep$1@smc.vnet.net>

On 4/24/2011 8:25 AM, ADL wrote:
> Dear all,
> I would like to create column headers of a table as a vertical text.
> In fact, the column headers are long but the cell contents are small,
> so that in this way the table would look better (as normally done e.g.
> in spreadsheets).
> I could not find a way to do it.
> Does anyone know if it is possible and how to achieve this in
> Mathematica 8?

Did you try using Rotate?

table = Table[RandomInteger[{0, 10}, 5], {n, 6}];
labels = Map[
    Style[#, Bold, Red] &, {"one", "two", "three", "four", "five"}];
vertLabels = Map[Rotate[#, \[Pi]/2] &, labels];
Grid[Join[{vertLabels}, table], Frame -> All]

-- 
Helen Read
University of Vermont


  • Prev by Date: Re: Vertical Headers in TableForm or Grid
  • Next by Date: Re: Print formated strings
  • Previous by thread: Re: Vertical Headers in TableForm or Grid
  • Next by thread: Re: Limit[f[x], x->a] vs. f[a]. When are they equal?