问题描述
我想返回小数点后有 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。
有没有人知道可以解决我的问题的答案？
解决方法
您对 924894 的预期“signif 数字”不正确，因为它显示了 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（如果有足够大的话）或 { {1}}/integer（如果没有足够大的东西）；不过幸运的是，numeric 会处理它完全一样的，所以这里类不精确的斜率是可以接受的。如果我想要彻底，我会用 paste0 代替。）
另一种方法，它单独对每个数字的表观尺度做出反应：
as.character(dig)