R 中小数位的格式

Question

我有一个数字，例如 1.128347132904321674821，我想在输出到屏幕（或写入文件）时仅显示两位小数。如何做到这一点？

x <- 1.128347132904321674821

编辑：

使用：

options(digits=2)

已被建议作为可能的答案。有没有一种方法可以在脚本中指定它以供一次性使用？当我将它添加到我的脚本中时，它似乎没有做任何不同的事情，而且我对大量重新输入以格式化每个数字不感兴趣（我正在自动化一个非常大的报告）。

--

答案：round(x, 数字=2)

Answer 1

背景：本页建议的一些答案（例如，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"

替代方案的讨论：

formatC 答案和sprintf 答案 效果相当好。但在某些情况下它们会显示负零，这可能是不需要的。即，

formatC(c(-0.001), digits = 2, format = "f")
# [1] "-0.00"
sprintf(-0.001, fmt = '%#.2f')
# [1] "-0.00"

一种可能的解决方法如下：

formatC(as.numeric(as.character(round(-.001, 2))), digits = 2, format = "f")
# [1] "0.00" 

Answer 2

您可以根据需要设置数字的格式，例如 x，最多可达小数位。这里x是一个有很多小数位的数字。假设我们希望显示该数字最多 8 位小数：

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

这里 format="f" 给出了通常小数位的浮点数，例如 xxx.xxx 和 digits指定位数。相比之下，如果您想显示一个整数，则可以使用 format="d" （很像 sprintf）。

Answer 3

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

Answer 4

对于 2 个小数位，假设您想要保留尾随零

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

，这给出了

[1] "5.50"

正如 @mpag 下面提到的，似乎 R 有时可以使用此方法和舍入方法给出意外的值，例如 sprintf(5.5550, fmt='%#.2f') 给出 5.55 ，不是 5.56

Answer 5

类似的东西：

options(digits=2)

数字选项的定义：

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

Answer 6

如果您更喜欢有效数字而不是固定数字，则使用 signif 命令可能有用：

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

Answer 7

检查函数 prettyNum, format

是否有试验零（例如 123.1240），使用 sprintf(x, fmt='%#.4g')

Answer 8

函数 formatC() 可用于将数字格式化为小数点后两位。即使结果值包含尾随零，该函数也会给出两位小数。

Answer 9

我使用此变体强制打印 K 位小数：

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

Answer 10

请注意，R 中的数字对象以双精度存储，这给你（大约）16 位小数精度的数字 - 其余的将是噪音。我承认上面显示的数字可能只是一个例子，但它有 22 位数字长。

Answer 11

在我看来，就像

library(tutoR)
format(1.128347132904321674821, 2)

Per 一点 在线帮助。

Answer 12

如果您只想对数字或列表进行四舍五入，只需使用

round(data, 2)

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

Answer 13

library(dplyr)
# round the numbers
df <- df %>%
  mutate(across(where(is.numeric), .fns = function(x) {format(round(x, 2), nsmall = 2)}))

在这里，我将所有数值更改为只有 2 位小数。如果需要更改为更多的小数位数

# round the numbers for k decimal places
df <- df %>%
  mutate(across(where(is.numeric), .fns = function(x) {format(round(x, k), nsmall = k)}))

将 k 替换为所需的小数位数

Answer 14

我编写了这个可以改进的函数，但看起来在极端情况下效果很好。例如，在 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"

Answer 15

这是我从单位到百万的方法。
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)
}