Форматирование десятичных знаков в R

Справочная информация: Некоторые ответы, предлагаемые на этой странице (например, signif, options(digits=...)), не гарантируют, что определенное количество десятичных знаков отображается для произвольного числа. Я предполагаю, что это конструктивная особенность R, при которой хорошая научная практика предполагает отображение определенного количества цифр на основе принципов "значащие цифры ". Однако во многих областях (например, стиль APA, бизнес-отчеты) требования к форматированию требуют, чтобы отображается определенное количество десятичных знаков. Часто это делается для обеспечения согласованности и стандартизации, а не для значимых цифр.

Решение:

Следующий код показывает ровно два десятичных знака для числа x.

format(round(x, 2), nsmall = 2)

Например:

format(round(1.20, 2), nsmall = 2)
# [1] "1.20"
format(round(1, 2), nsmall = 2)
# [1] "1.00"
format(round(1.1234, 2), nsmall = 2)
# [1] "1.12"

Более общая функция выглядит следующим образом, где x - число, а k - количество отображаемых десятичных знаков. trimws удаляет все начальные пробелы, что может быть полезно, если у вас есть вектор чисел.

specify_decimal <- function(x, k) trimws(format(round(x, k), nsmall=k))

E.g.,

specify_decimal(1234, 5)
# [1] "1234.00000"
specify_decimal(0.1234, 5)
# [1] "0.12340"

Вы можете отформатировать число, например x, до десятичных знаков по своему желанию. Здесь x - число с большим количеством десятичных знаков. Предположим, мы хотим отобразить до 8 десятичных знаков этого числа:

x = 1111111234.6547389758965789345
y = formatC(x, digits = 8, format = "f")
# [1] "1111111234.65473890"

Здесь format="f" дает числа с плавающей запятой в обычных десятичных разрядах, например, xxx.xxx, а digits указывает количество цифр. Напротив, если вы хотите получить целое число для отображения, вы должны использовать format="d" (очень похоже на sprintf).

Вы можете попробовать мой пакет formattable.

> # devtools::install_github("renkun-ken/formattable")
> library(formattable)
> x <- formattable(1.128347132904321674821, digits = 2, format = "f")
> x
[1] 1.13

Хорошо то, что x по-прежнему числовой вектор, и вы можете выполнять больше вычислений с тем же форматированием.

> x + 1
[1] 2.13

Более того, цифры не теряются, вы можете переформатировать их в любое время :)

> formattable(x, digits = 6, format = "f")
[1] 1.128347

для 2 десятичных знаков, предполагая, что вы хотите сохранить конечные нули

sprintf(5.5, fmt = '%#.2f')

который дает

[1] "5.50"

Как упоминает @mpag ниже, кажется, что R может иногда давать неожиданные значения с помощью этого и круглого метода, например. sprintf (5.5550, fmt = '% #. 2f') дает 5.55, а не 5.56

Что-то подобное :

options(digits=2)

Вариант определения цифр:

digits: controls the number of digits to print when printing numeric values.

Проверьте функции prettyNum, format

чтобы иметь пробные нули (например, 123.1240), используйте sprintf(x, fmt='%#.4g')

Если вы предпочитаете значащие цифры фиксированным цифрам, тогда команда signif может быть полезно:

> signif(1.12345, digits = 3)
[1] 1.12
> signif(12.12345, digits = 3)
[1] 12.1
> signif(12345.12345, digits = 3)
[1] 12300

Функцию formatC() можно использовать для форматирования числа до двух десятичных знаков. Эта функция дает два десятичных разряда, даже если результирующие значения включают нули в конце.

Я использую этот вариант для принудительной печати K десятичных знаков:

# format numeric value to K decimal places
formatDecimal <- function(x, k) format(round(x, k), trim=T, nsmall=k)

Обратите внимание, что числовые объекты в R хранятся с двойной точностью, что дает вам (примерно) 16 десятичных знаков. цифры точности - остальное будет шумом. Я допускаю, что приведенное выше число, вероятно, просто для примера, но оно состоит из 22 цифр.

Мне кажется, что это будет что-то вроде

library(tutoR)
format(1.128347132904321674821, 2)

Воспользуйтесь небольшой онлайн-справкой.

если вы просто хотите округлить число или список, просто используйте

round(data, 2)

Затем данные будут округлены до 2 десятичных знаков.

вот мой подход от единиц к миллионам. Параметр digits позволяет мне настроить минимальное количество значащих значений (целое число + десятичные знаки). Вы можете сначала настроить десятичное округление внутри.

number <-function(number){
  result <- if_else(
    abs(number) < 1000000,
    format(
      number, digits = 3,
      big.mark = ".",
      decimal.mark = ","
    ),
    paste0(
      format(
        number/1000000,
        digits = 3,
        drop0trailing = TRUE,
        big.mark = ".",
        decimal.mark = ","
      ),
      "MM"
    )
  )
  # result <- paste0("$", result)
  return(result)
}

Я написал эту функцию, которую можно улучшить, но, похоже, она хорошо работает в крайних случаях. Например, в случае 0,9995 правильный ответ на голосование дает нам 1,00, что неверно. Я использую это решение в том случае, если в числе нет десятичных знаков.

round_correct <- function(x, digits, chars = TRUE) {
  if(grepl(x = x, pattern = "\\.")) {
    y <- as.character(x)
    pos <- grep(unlist(strsplit(x = y, split = "")), pattern = "\\.", value = FALSE)
    if(chars) {
      return(substr(x = x, start = 1, stop = pos + digits))
    }
    return(
      as.numeric(substr(x = x, start = 1, stop = pos + digits))
    )
  } else {
    return(
      format(round(x, 2), nsmall = 2)
    )
  }
}

Пример:

round_correct(10.59648, digits = 2)
[1] "10.59"
round_correct(0.9995, digits = 2)
[1] "0.99"
round_correct(10, digits = 2)
[1] "10.00"