Remove leading zero and trailing decimal from display of number

Question

I would like to remove the leading zero and trailing decimal from the display of numbers in plots. For example, to get the correlation values to fit inside the cells of a correlation matrix, I can free up some space by removing all the leading zeros. So instead of 0.14 I would like .14 and instead of -0.28 I would like -.28. I know that's not good formatting for the text of a paper, but for a plot this is more desirable in this case.

I would also like to remove the "." after 1..

I thought there would be options for this kind of output for NumberForm, but they are not documented if they do exist. Currently I'm using this formatting function:

FormatCorrelations[n_] := If[NumberQ[n], NumberForm[n, {2, 2}, ExponentFunction -> (Null &), NumberPadding -> {"", ""}], n];

I would like to keep all those options (specifying the significance and number of decimals, preventing exponential notation, and ignoring string inputs) while additionally removing the leading zeros and trailing decimals.

I found one answer for the trailing decimal in this questions, but it doesn't work me (breaks the code).

I also found this answer to remove the trailing decimal: NumberForm[# /. x_ /; x == 1 -> 1, 2], but it fails to remove the decimal when I apply it via my function.

Answer 1

Here is an extremely inelegant way of doing this:

FormatCorrelations[n_]:=Module[{TheNumber},
  TheNumber=ToString[If[NumberQ[n],If[n==1||n==1.,1,NumberForm[n,{2,2},ExponentFunction->(Null&),NumberPadding->{"",""}]],n]];
  TheNumber=If[StringLength[TheNumber]>3,If[StringTake[TheNumber,3]=="-0.","-."<>StringDrop[TheNumber,3],TheNumber],TheNumber];
  TheNumber=If[StringLength[TheNumber]>2,If[StringTake[TheNumber,2]=="0.","."<>StringDrop[TheNumber,2],TheNumber],TheNumber];
  TheNumber
];

Because I am just overlaying the numbers on a correlation matrix array plot, this string-based approach works for me. Hopefully it will be useful to other people as well. I suspect there is a better (faster and with less code) way of doing this conversion, but one nice thing about this overly verbose code is that it would be easy for people to understand and customize to their own needs.

Answer 2

I would suggest

reform[x_String] := x
reform[1 | 1.] := "1"
reform[0 | 0.] := "0"

reform[n_] :=
 With[{x = 
  ToString@NumberForm[n, {2, 2}, ExponentFunction -> (Null&), NumberPadding -> {"", ""}]},
   StringReplace[x, "0." -> "."]]

reform /@ {"abc", 0.0, 1, 1.001, -0.12, 0.12, 10^6}

{"abc", "0", "1", "1.", "-.12", ".12", "100000."}