Форматування десяткових місць у R

У мене є число, наприклад 1.128347132904321674821, яке я хотів би показати як два знаки після коми при виході на екран (або записаному у файл). Як це зробити?

x <- 1.128347132904321674821

Редагувати:

Використання:

options(digits=2)

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

-

Відповідь: кругла (x, цифри = 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.

Перевірте функції доситьNum, формат

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