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)
• 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},
".0"->"  "],
NumberForm[#,{4,1},
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
>
>

• Prev by Date: Re: Getting a pure text widget?
• Next by Date: Re: Solving Diophantine Equations
• Previous by thread: Re: Re: formatting table with integers and floats in a column
• Next by thread: Re: formatting table with integers and floats in a column