Question

我从MySQL-Table中读取以DECIMAL格式存储的数据。我想对R中的那些数字进行计算。

我曾经使用as.numeric()将它们转换为数字再现，但文档说：

数字与double（和real）相同。

但R中是否还有一个数据类型Decimal？（没有舍入错误的数据类型，...）

以下是舍入错误问题的一个简单示例：

numbersStrings = c("0.1", "0.9")
numbersNumeric = as.numeric(numbersStrings)
numbersMirror  = c(numbersNumeric, 1-numbersNumeric)

str(numbersMirror)

numbersMirror
unique(numbersMirror)  # has two times 0.1 ...

sprintf("%.25f", numbersMirror)
sprintf("%.25f", unique(numbersMirror))  # ... because there was a rounding error

Answer 1

您可以创建自己的：

d <- structure( list(i=589L,exp=2L), class="decimal" )
print.decimal <- function( x, ...) print( x$i * 10^(-x$exp) )
> d
[1] 5.89

实际上，一些大数字包也可能适用于此，因为它们使用类似的表示....

Answer 2

类似于Ari的方法，但使用integer64包中的bit64类。使用big int作为十进制的基础数据类型是在本地不支持十进制类型的各种应用程序中的常见做法。

library(bit64)

as.decimal = function(x, p=2L) structure(as.integer64(x*10^p), class="decimal", precision=p)
print.decimal = function(x) print(as.double(x))
as.integer64.decimal = function(x) structure(x, class="integer64", precision=NULL) # this should not be exported
as.double.decimal = function(x) as.integer64(x)/(10^attr(x, "precision"))
is.decimal = function(x) inherits(x, "decimal")
"==.decimal" = function(e1, e2) `==`(as.integer64(e1), as.integer64(e2))
"+.decimal" = function(e1, e2) `+`(as.integer64(e1), as.integer64(e2))

d = as.decimal(12.69)
is.decimal(d)
#[1] TRUE
print(d)
#[1] 12.69
as.double(d)
#[1] 12.69
d + as.decimal(0.9)
#[1] 13.59
0.1 + 0.2 == 0.3
#[1] FALSE
as.decimal(0.1) + as.decimal(0.2) == as.decimal(0.3)
#[1] TRUE

R中是否有数据类型“Decimal”？

2 个答案: