wolfram-mathematica - TableForm 的 TableHeadings 与左对齐但表格的内容与右对齐

Question

TableForm与 TableHeadings选项是在 Mathematica FrontEnd 中显示好看的经典表格的一种快速简便的方法。唯一的问题是，显示这样一个表格，标题向左对齐但表格内容向右对齐是很常见的。是否可以强制TableForm以这种方式行事？或者，如果没有，模拟 TableForm 的最佳方法是什么？以这种方式表现？

Answer 1

您可以使用 Grid和 Alignment .这是一种方法:

a = Map[Mod[RandomInteger[2*^9], 10^#] &, RandomInteger[{1, 6}, {4, 7}], {2}];

b = Item[#, Alignment -> Left] & /@
      {"One", "Two", "Three", "Four", "Five", "Six", "Seven"};

Grid[a~Prepend~b, Alignment -> Right]

这是另一个:

headings = {"One", "Two", "Three", "Four", "Five", "Six", "Seven"};

Grid[a ~Prepend~ headings,
     Dividers -> {None, {2 -> True}}, 
     Alignment -> {Right, Automatic, {{1, 1}, {1, -1}} -> Left}
]