格式化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）。

你可以试试我的包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

像这样：

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中的数字对象以double precision进行存储，这使您（大约）具有16个十进制数字的精度-其余的将是噪声。我认为上面显示的数字可能仅是示例，但它的长度为22位。

在我看来会像

library(tutoR)
format(1.128347132904321674821, 2)

每一点在线帮助。

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

round(data, 2)

然后，数据将四舍五入到小数点后两位。