Re: formatting table with integers and floats in a column
- To: mathgroup at smc.vnet.net
- Subject: [mg61369] Re: formatting table with integers and floats in a column
- From: "Ray Koopman" <koopman at sfu.ca>
- Date: Mon, 17 Oct 2005 02:29:33 -0400 (EDT)
- References: <disloi$mjg$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
How about something like
myForm[x_Integer,{n_,f_}] := ToString@NumberForm[x, n-f ];
myForm[x_, {n_,f_}] := ToString@NumberForm[x,{n,f}]
then
TableForm[Transpose[{statNames, myForm[#,{4,1}]&/@statNumbers}]]
Murray Eisenberg wrote:
> 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
- Follow-Ups:
- Re: Re: formatting table with integers and floats in a column
- From: Murray Eisenberg <murray@math.umass.edu>
- Re: Re: formatting table with integers and floats in a column