Fixing rounded R values in xtable in knitr

Question

Has anyone come up with a solution to adjust rounded R values shown in a knitr document, either as stand along \Sexpr{} or through xtable? Typing?round returns Note that for rounding off a 5, the IEC 60559 standard is expected to be used, ‘go to the even digit’.

My problem is the following scenario when showing calculated numbers from a dataframe using xtable. If the values were each shown in a separate column in a table, the reader would assume there is a calculation error:

2.5 + 3.1 = 5.6

would show up as

2 + 3 = 6

when R rounds the numbers (I have set the significant digits to 0 since the audience doesn't need more detail). This situation could potentially happen no matter how many decimal places are shown (and I would like to avoid showing any!).

I use the following for inline expressions, however I rarely insert a number into the paragraph and it usually isn't shown as a calculation. This will show 1 decimal place for numbers less than 10 and greater than -10 and should round up on even numbers ending with 0.5.

number_hook <- function(x) {
  if (is.numeric(x)) {
    if (x < 10 & x > 0 | x < 0 & x > -10) {
      y = prettyNum(x, 
                    small.mark = ".", 
                    digits = 2)
      return(y)

    } else if (sign(x) == 1) {
      y = x + 0.5
      y = trunc(y)
      y = prettyNum(y, big.mark = ",", small.mark = ".", digits = 0)
      return(y)

    } else if (sign(x) == -1) {
      y = x - 0.5
      y = trunc(y)
      y = prettyNum(y, big.mark = ",", small.mark = ".", digits = 0)
      return(y)
    }

  } else {
    x
  }
}

Any help, work-arounds, or suggestions are appreciated! Thank you!

I have also visited this similar question.

Could you elaborate on how you're trying to use xtable with this? Could you not apply something like "number_hook" before creating an xtable object? — detroyejr, Oct 13 '17 at 14:56
@jonathande4 I was originally thinking about running each dataframe through a function that would round the numbers and then put that dataframe into xtable... — Prevost, Oct 13 '17 at 15:51
Assuming your original function is working as intended, could you use something like: `xtable::xtable(dplyr::mutate_if(iris, is.numeric, number_hook))` xtable also has a digit parameter that you might be able to use. Does that get you what you need? — detroyejr, Oct 13 '17 at 16:01
@jonathande4 I used the function on a dataframe to create the desired latex table output. However, the function does not work correctly on the dataframe columns...I believe it is because the dataframe columns have multiple rows and arguments that are passed to the function but the function is only designed to handle a single value? — Prevost, Nov 01 '17 at 15:47
The modified function can take a character vector with a length greater than 1 and dplyr's mutate_if is designed to modify multiple rows given a logical test like is.numeric, so that should not be the problem. Are you getting an error message? — detroyejr, Nov 08 '17 at 15:43

score 1 · Accepted Answer · answered Oct 13 '17 at 16:23

1

My original recommendation did not work correctly. First you should modify your original function.

number_hook <- function(x) {
  ifelse(abs(x) < 10 & abs(x) > 0, prettyNum(x, small.mark = ",", digits = 2), trunc(x))
}

This should simplify the number of if statements. Then you can use:

xtable::xtable(dplyr::mutate_if(iris, is.numeric, number_hook))

To apply the function to every numeric column in your data frame.

Try it on:

foo <- data.frame(a = rnorm(10), b = rnorm(10, 10), c = rnorm(10, -10))
xtable::xtable(dplyr::mutate_if(foo, is.numeric, number_hook))

And you should get values that you need.

answered Oct 13 '17 at 16:23

detroyejr

1,094
1
9
14

I will try it out on my next project and let you know! Thank you for the input for the number_hook mod as well. – Prevost Oct 17 '17 at 19:45
It would be useful to adjust the rounding standard to rounding to the even number...when a third party reviews my work (on PDF) they look at the table and think my math is off because the decimal numbers don't work out! Actually I think this post helps https://stackoverflow.com/questions/23158165/truncate-decimal-to-specified-places ... – Prevost Nov 29 '17 at 17:28

Fixing rounded R values in xtable in knitr

1 Answers1