获取 R 中的第一个非零数字，类似于 Mathematica

Question

在 mathematica 中，我们有 RealDigits 可以识别带小数点和整数值的数字的第一个非零数字。示例如下：

RealDigits[ 0.00318, 10, 1]
{{3},-2}
RealDigits[ 419, 10, 1]
{{4},-2}

在上面的例子中，函数识别 3 和 4 分别代表 0.00318 和 419。

R有没有类似的功能？

Answer 1

你可以这样做：

x <- c(0.0000318, 419)

as.numeric(substr(formatC(x, format = 'e'), 1, 1))
# [1] 3 4

Answer 2

此函数将接受矢量参数以及一个 depth 参数，让您定义在第一个有效数字之后要有多少位数字。

x <- c(0.00318, 0.000489, 895.12)
RealDigits <- function(x, depth=1) {
  y <- as.character(x)
  ysplit <- strsplit(y,"")
  ysplit <- strsplit(y,"")
  last0 <- lapply(ysplit, function(x) tail(which(x==0),1))
  last00 <- sapply(last0, function(x) if (length(x) ==0) 0 else x )
  res <- substr(y, last00+1, as.numeric(sapply(y, nchar)))
  return(substr(res, 0,depth))
}
RealDigits(x)
RealDigits(x, depth =2)

> RealDigits(x)
[1] "3" "4" "8"
> RealDigits(x, depth =2)
[1] "31" "48" "89"

获取 R 中的第一个非零数字，类似于 Mathematica

Get the first non zero digit in R similar to Mathematica

r

wolfram-mathematica

substr

lead