即使在 R 中有 0 且没有小数时，也有三位有效的小数位

Question

我想返回小数点后 3 位有效数字的所有数字，即使第三位数字为零。

例如假设我有

x <- 0.8579
y <- 0.21
z <- 924894.2595

那么如果我这样做

x <- signif(x, digits=3) 
y <- signif(y, digits=3) 
z <- signif(z, digits=3) 

我得到x = 0.857 y=0.21 and z=924894

这几乎就是我想要的。 我真正想要的是

x = 0.857 y=0.210 and z=924894

我试过使用

format(round(x,3), digits=3)

但这样做我得到

x = 0.857 y=0.210 and z=924894.259

所以现在我在 z 上有一个问题，因为我实际上想要z=924894 。

有谁知道解决我的问题的答案？

Answer 1

但是，您对 924894 的预期“有效数字”不正确，因为它显示 6 个有效数字。 如果您想“违反”该技术性，那么也许

vec <- c(0.857,0.210,924894.259)
dig <- 3
sprintf(paste0("%0.", ifelse(vec >= (10^dig), "0", dig), "f"), vec)
# [1] "0.857"  "0.210"  "924894"

（我在这里对ifelse有点草率：从技术上讲， "0"是字符，而dig是数字/整数。通常不鼓励这样做，并且由dplyr::if_else和data.table::fifelse强制执行。这可能意味着ifelse表达式的返回值可能是character （如果有足够大）或integer / numeric （如果没有足够大）；幸运的是， paste0将完全一样地处理它，所以类不精确的斜率在这里是可以接受的。如果我想彻底，我会使用as.character(dig)代替。）

---

另一种选择，它分别对每个数字的表观规模做出反应：

vec <- c(0.857,0.210,924894.259,1)
sprintf(paste0("%0.", pmax(floor(3 - log(abs(vec)+0.001, 10)), 0), "f"), vec)
# [1] "0.857"  "0.210"  "924894" "1.00"