Фиксированные и десятичные разряды положительного числа

Кажется, вы застряли в надежде, что это можно сделать. Хорошо, вот грубый способ:

fun <- function(x){
  stopifnot(is.numeric(as.numeric(x)))
  s = nchar(unlist(strsplit(as.character(x),".",fixed = TRUE)))
  if(as.numeric(x) < 1) s[1] <- s[1]-1
  setNames(as.list(s),c("fixed","decimal"))
}

CORRECT:

fun(10.234)
$fixed
[1] 2

$decimal
[1] 3

fun(-10.234)
$fixed
[1] 2

$decimal
[1] 3

fun(0.2346)
$fixed
[1] 0

$decimal
[1] 4

> fun(-0.2346)
$fixed
[1] 0

$decimal
[1] 4

INCORRECT: Note that fixed + decimal <=15!!!

fun(-10000567.2346678901876)
$fixed
[1] 8

$decimal
[1] 7 ## This is incorrect

Правильное значение:

fun("-10000567.2346678901876") # Note that the input x is a string
$fixed
[1] 8

$decimal
[1] 13

Я не думаю, что это можно сделать. Мы не можем предполагать, что простое числовое значение точно представлено в компьютере. Большинство значений с плавающей запятой, конечно, не могут.

Введите 0,3 в консоли R:

> 0.3
[1] 0.3

Выглядит хорошо, не так ли? Но теперь давайте сделаем это:

> print(0.3, digits=22)
[1] 0.29999999999999999

По сути, если вы преобразуете число с плавающей запятой в строку, вы определяете, насколько точны вы хотите. Компьютер не может дать вам такую ​​точность, потому что он хранит все числа в битах и, таким образом, никогда не дает вам абсолютной точности. Даже если вы видите число как 0,3 и думаете, что оно имеет 0 фиксированных цифр и 1 десятичную из-за этого, это потому, что R решил напечатать его таким образом, а не потому, что это число представлено в памяти компьютера.

Другие ответы доказывают, что функция может обрабатывать простые случаи. Должен признаться, я узнал, что R проделывает невероятную работу по интерпретации чисел. Но мы должны соблюдать осторожность! Как только мы начинаем преобразовывать числа, такая функция не может гарантировать значимых результатов.

ОТРЕДАКТИРОВАНО (на основе комментариев):

Следующая функция будет работать для чисел с 15 или менее значащими цифрами:

digits<-function(x){
  ## make sure x is a number, if not stop 
  tryCatch(
    {
      x/1
    },
    error=function(cond) {
      stop('x must be a number')
    }
  )
  ## use nchar() and strsplit() to determine number of digits before decimal point
  fixed<-nchar(strsplit(as.character(x),"\\.")[[1]][1])
  ## check if negative
  if(substr(strsplit(as.character(x),"\\.")[[1]][1],1,1)=="-"){fixed<-fixed-1}
  ## check if -1<x<1
  if(as.numeric(strsplit(as.character(x),"\\.")[[1]][1])==0){fixed<-fixed-1}
  ## use nchar() and strsplit() to determine number of digits after decimal point
  decimal<-nchar(strsplit(as.character(x),"\\.")[[1]][2])
  ## for integers, replace NA decimal result with 0
  if(is.na(nchar(strsplit(as.character(x),"\\.")[[1]][2]))){decimal<-0}
  ## return results
  print(paste0("fixed: ",fixed," and decimal: ", decimal))
}

Если вы хотите считать отрицательные знаки (-) цифрой, вам нужно удалить:

## check if negative
if(substr(strsplit(as.character(x),"\\.")[[1]][1],1,1)=="-"){fixed<-fixed-1}

Примечание. Ограничение на 15 или менее значащих цифр основано на 8-байтовом представлении с плавающей запятой.

Единственный способ, которым я смог преодолеть это, - использовать приведенный ниже код.

digits<-function(x){
  tryCatch(
    {
      as.numeric(x)/1
    },
    error=function(cond) {
      stop('x must be a number')
    }
  )
  j <- 0
  num <- x
  fixed <- 0
  decimal <- 0
  for(i in 1:nchar(x)){
    if(substr(num, i, i) == "."){
      j <- 1
    } else if(j==0){
      fixed <- fixed + 1
    } else{
      decimal <- decimal + 1
    }
  }
  if(substr(x,1,1)=="-" & substr(as.numeric(x),2,2)==0){
    fixed<-fixed-2
  }else if(substr(x,1,1)=="-"){
    fixed<-fixed-1
  }else if(substr(as.numeric(x),1,1)==0){
    fixed<-fixed-1
  }else{}
  print(paste0("fixed: ",fixed," and decimal: ", decimal))
}

Однако этот код требует, чтобы число было передано в функцию в виде строки символов, чтобы вычислить переданные 15 значащих цифр, как показано ниже:

x<-"111111111111111111111111111111111111.22222222222222222222222222222222222222222222222"
digits(x)

Что возвращает:

[1] "фиксированное: 36 и десятичное: 47"

Это затем ограничивает применение этой функции, поскольку ее нельзя использовать в канале dplyr, и вы не получите точных результатов для чисел, которые ранее были округлены. Например, используя то же число, что и выше, но сохраняя его как число вместо строки символов, вы получите следующие результаты:

x<-111111111111111111111111111111111111.22222222222222222222222222222222222222222222222
digits(x)

[1] "фиксированное: 1 и десятичное: 18"

Я надеюсь, что это хоть немного поможет!