舍入到有效数字*仅* R 中数字的小数部分

Question

signif() 函数根据指定的次数舍入值给定值中的有效数字。该功能适用​​于所有但是，数字中的数字，所以不同顺序的数字幅度被舍入和截断不同。例如，有了这个向量x…

x <- c(100.1303421, 10.03421, 1.3421, 0.0003421)
lapply(x, signif, 2)
#> [[1]]
#> [1] 100
#> 
#> [[2]]
#> [1] 10
#> 
#> [[3]]
#> [1] 1.3
#> 
#> [[4]]
#> [1] 0.00034

…第一个和第二个值被截断为 100 和 10 并且十进制值消失，而第三和第四个值保持小数(尽管数字不同)。这是预期的输出signif()——当确定显着性。

是否可以忽略每个数字的整数部分，只格式化具有一组有效数字的小数部分？我想成为能够返回这些值:c(100.13, 10.034, 1.34, 0.00034)；那是 . 之前的完整整数，后跟重要的数字的小数部分。

现在，我创建了一个函数，将值分成整数和分数分量并仅在分数分量上运行 signif()，但这似乎非常 hacky。

signif_ignore_integer <- function(x, digits = 2) {
  as.integer(x) + signif(x - as.integer(x), digits)
}

lapply(x, signif_ignore_integer, 2)
#> [[1]]
#> [1] 100.13
#> 
#> [[2]]
#> [1] 10.034
#> 
#> [[3]]
#> [1] 1.34
#> 
#> [[4]]
#> [1] 0.00034

是否有更好、更推荐的方式(可能有一些花哨的sprintf() 格式)将值四舍五入到给定的有效数忽略整数部分的数字？

Answer 1

可能有更好的方法，但你的一般方法似乎不合理。但是，您可以通过使用 floor 来简化它，利用矢量化来避免 lapply，并使用 mod 运算符返回每个数字的小数部分:

my_signif = function(x, digits) floor(x) + signif(x %% 1, digits)

my_signif(x, 2)

[1] 100.13000  10.03400   1.34000   0.00034