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