Re: formatting table with integers and floats in a column

*To*: mathgroup at smc.vnet.net*Subject*: [mg61365] Re: [mg61356] formatting table with integers and floats in a column*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Mon, 17 Oct 2005 02:29:30 -0400 (EDT)*Reply-to*: hanlonr at cox.net*Sender*: owner-wri-mathgroup at wolfram.com

This does it by brute force. statNames={"N","Max","Min","Mean","Std.dev.","Median"}; statNumbers={40,103,2,56.8,22.5,59}; StyleForm[ TableForm[ Transpose[{statNames, If[IntegerQ[#], StringReplace[ ToString[ NumberForm[#,{4,1}, NumberPadding->{" ","0"}]], ".0"->" "], NumberForm[#,{4,1}, NumberPadding->{" ","0"}]]&/@ statNumbers}]], FontFamily->"Courier"] Bob Hanlon > > From: Murray Eisenberg <murray at math.umass.edu> To: mathgroup at smc.vnet.net > Date: 2005/10/16 Sun AM 12:18:11 EDT > Subject: [mg61365] [mg61356] formatting table with integers and floats in a column > > I have a 2-column table whose first column consists of strings -- > > statNames = {"N", "Max", "Min", "Mean", "Std.dev.", "Median"}; > > -- and a column of corresponding numbers: > > statNumbers = {40, 103, 2, 56.8, 22.5, 59}; > > If I use > > TableForm[Transpose[{statNames, statNumbers}]] > > then of course all the numbers will be left-aligned on their leftmost > digits. > > I want to format the numbers in the table so that they will appear as > follows: > > N 40 > Max 103 > Min 2 > Mean 56.8 > Std.dev. 22.5 > Median 59 > > Notice that I want the integers to appear as integers -- WITHOUT any > trailing decimal point; but the alignment is to be as if the numbers > were aligned on the decimal points including the implicit, but > unprinted, decimal points in the integers. > > How?? > > I've tried various things with mapping NumberForm onto the individual > numbers but cannot quite get the correct effect. > > -- > Murray Eisenberg murray at math.umass.edu > Mathematics & Statistics Dept. > Lederle Graduate Research Tower phone 413 549-1020 (H) > University of Massachusetts 413 545-2859 (W) > 710 North Pleasant Street fax 413 545-1801 > Amherst, MA 01003-9305 > >