在R中格式化小数点

背景: 本页建议的一些答案(例如, signif , options(digits=...) )不要保证为任意数字显示一定数量的小数。我认为这是R中的一个设计特征,良好的科学实践包括根据“的原则显示一定数量的数字。” significant figures “。然而,在许多领域(例如, APA style ,业务报告)格式化要求指示显示一定数量的小数位。这通常是为了一致性和标准化,而不是为了关注重要的数字。

解决方案 :

下面的代码正好显示了数字的两个小数位 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 )

你可以试试我的包裹 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有时可以用这个给出意外的值,而round方法(例如sprintf(5.5550,fmt=%.2f))给出5.55,而不是5.56。

检查函数 prettynum,格式

要将零试用(例如123.1240),请使用 sprintf(x, fmt='%#.4g')

就像这样:

options(digits=2)

数字选项定义:

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

如果您喜欢有效数字而不是固定数字,那么 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() 可用于将数字格式化为两个小数位。即使结果值包含尾随零,此函数也会给出两个小数位。

请注意,r中的数字对象存储在 double precision 这给了你(大概)16位小数的精度-剩下的将是噪声。我承认上面显示的数字可能只是一个例子,但它有22位长。

我使用这个变量来强制打印K小数位:

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

在我看来应该是

library(tutoR)
format(1.128347132904321674821, 2)

每隔一点点 online help .

如果您只想舍入一个数字或列表,只需使用

round(data, 2)

然后,数据将四舍五入到小数点后2位。