as.numeric函数转换异常：无法保留小数将字符型转为数值型

首先明确：你的转换其实已经成功保留了小数位，只是R的默认输出设置把小数部分隐藏了，导致看起来像是被取整了。

验证数值本身的精度 #

运行以下代码就能看到真实的数值：

vec <- c("3530806.44","2774213.66","3446173,16","2704113.33COP","3597843,98","3668901.03COP")

vec <- gsub("[^0-9,.]", "", vec)
vec <- gsub(",", ".", vec)
vec_num <- as.numeric(vec)

# 查看数值结构，确认包含小数部分
str(vec_num)
# 输出： num [1:6] 3530806 2774214 3446173 2704113 3597844 ...

# 指定打印位数，显示完整小数
print(vec_num, digits = 10)

运行后会看到完整带小数的结果：

[1] 3530806.44 2774213.66 3446173.16 2704113.33 3597843.98 3668901.03

调整全局打印设置 #

如果希望R默认显示更多小数位，可以修改全局选项：

# 设置默认显示10位有效数字
options(digits = 10)

# 此时直接输入vec_num就会显示小数
vec_num

关于测试用例的补充说明 #

你测试的1 - as.numeric(as.character("3334333.23"))得到-3334332，同样是打印取整导致的视觉误差，实际计算结果是-3334332.23，用print(1 - as.numeric(as.character("3334333.23")), digits=10)就能看到真实值。

内容的提问来源于stack exchange，提问作者Usuario5678