r - 将小数截断到指定位置

Question

这似乎应该是一个相当容易解决的问题，但我在寻找答案时遇到了一些麻烦。

我有一个包含长小数的向量，我想将其截断为特定的小数位数。我不想四舍五入，而只是删除超出我想要的小数位数的值。

例如，如果我想要 4 个十进制数字，我希望 0.123456789 返回 0.1234。这不是打印特定位数的问题，而是返回截断为给定数字的原始值。

谢谢。

Answer 1

trunc(x*10^4)/10^4

像预期的那样产生 0.1234。

更普遍，

trunc <- function(x, ..., prec = 0) base::trunc(x * 10^prec, ...) / 10^prec;
print(trunc(0.123456789, prec = 4) # 0.1234
print(trunc(14035, prec = -2), # 14000