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

У меня есть номер, например, 1.128347132904321674821, который я хотел бы показывать как только два десятичных знака при выводе на экран (или при записи в файл). Как это сделать?

x <- 1.128347132904321674821

РЕДАКТИРОВАТЬ:

Использование:

options(digits=2)

Был предложен в качестве возможного ответа. Есть ли способ указать это в скрипте для одноразового использования? Когда я добавляю его в свой сценарий, он, кажется, не делает ничего другого, и меня не интересует повторный набор для форматирования каждого числа (я автоматизирую очень большой отчет).

-

Ответ: круглый (х, цифры = 2)

Справочная информация : Некоторые ответы , предложенные на этой странице (например, 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))

Например,

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).

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

> # 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, формат

использовать пробные нули (например, 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 десятичных знаков.