我有一个数字，例如1.128347132904321674821，我想在输出到屏幕(或写入到文件)时仅显示两个小数点后的位置。要怎么做呢?
x <- 1.128347132904321674821
编辑:
用途:
options(digits=2)
被认为是一个可能的答案。是否有一种方法可以在脚本中指定这一点，以便一次性使用?当我将它添加到我的脚本时，它似乎没有做任何不同的事情，我对大量重新输入来格式化每个数字不感兴趣(我正在自动化一个非常大的报告)。
--
答案:整数(x，数字=2)
当前回答
我写了这个可以改进的函数，但看起来在极端情况下工作得很好。例如，在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"
其他回答
在我看来就像是
library(tutoR)
format(1.128347132904321674821, 2)
根据一点在线帮助。
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替换为所需的小数点后数位
就像这样:
options(digits=2)
数字选项的定义:
digits: controls the number of digits to print when printing numeric values.
请注意，R中的数字对象以双重精度存储，这给了你(大约)16个十进制数字的精度-其余的将是噪声。我承认上面显示的数字可能只是一个例子，但它有22位数长。
这是我从单位到百万的方法。 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)
}
