Is there away to get TableHeadings align to the Right instead of the default to the Left? For example, for
TableForm[{{1}, {3}}, TableHeadings->{{"t111111", "t2"}, {"Values"}}] is there a way to have t111111 and t2 align to the right?
$\begingroup$ $\endgroup$
3 
2 Answers
$\begingroup$ $\endgroup$
Sure hope there is an easier way than the following
tf = TableForm[{{1}, {3}}, TableHeadings -> {{"t111111", "t2"}, {"Values"}}] 
RawBoxes[ToBoxes@tf /. HoldPattern[ColumnAlignments -> _]:>(ColumnAlignments -> {Right, Left})] 
tf = TableForm[{{1, 2, 3}, {3, 4, 5}},TableHeadings->{{"t111111","t2"},{"Val1", "Val2", "Val3"}}]; RawBoxes[ToBoxes@tf /. HoldPattern[ColumnAlignments -> _]:>(ColumnAlignments -> {Right, Center})] 
$\begingroup$ $\endgroup$
2 leftpad[list_] := With[{blanks = StringJoin /@ Map[Table[" ", {#}] &, Max[#] - # &[StringLength /@ list]]}, Map[StringJoin[blanks[[#]], list[[#]]] &, Range @ Length @ list]] keys = {"a", "abcd" , "abc", "ab"}; vals = Range @ 4; TableForm[List /@ vals, TableHeadings -> {leftpad @ keys, {"Values"}}] 
- 1$\begingroup$ I don't know if you realize this, but you can edit your deleted answers and undelete them instead of posting new ones. $\endgroup$RunnyKine– RunnyKine2014-09-20 09:45:07 +00:00Commented Sep 20, 2014 at 9:45
- $\begingroup$ @RunnyKine Thanks. I will do that in the future :) $\endgroup$eldo– eldo2014-09-20 09:48:44 +00:00Commented Sep 20, 2014 at 9:48
TableFormwithTableHeadingsaligned toLeftbut the content of table aligned toRight" $\endgroup$