含千分符与逗号小数位的数值字符串强制转换为数值类型咨询

你给出的字符串格式为点作为千位分隔符、逗号作为十进制分隔符，可以通过以下两种方法完成转换：

方法1：基础正则替换（无需额外依赖包） #

核心逻辑是先删除所有千分位的点，再将逗号替换为标准十进制分隔符点，再转数值，示例代码如下：

# 定义原始字符串向量
x <- c("1.139,0000", "1.160,0000", "1.160,0000", "1.160,0000", "1.160,0000", 
"1.194,0000", "1.533,3500", "1.550,0000", "1.550,0000", "1.602,0000", 
"1.825,0000", "1.825,0000", "1.825,0000", "1.825,0000", "1.825,0000", 
"1.825,0000", "1.825,0000", "1.825,4000", "1.825,0000", "1.825,0000", 
"2.042,1234", "2.200,0000", "2.200,0000", "2.200,0000", "2.200,0000", 
"2.200,0000", "2.200,0000", "2.200,0000", "2.200,0000", "2.200,0000", 
"2.200,0000", "2.200,0000", "2.200,0000", "2.200,0000", "2.200,0000"
)

# 转换为数值类型
num_result <- as.numeric(gsub(",", "\\.", gsub("\\.", "", x)))

# 如果需要输出带四位小数的字符串格式，执行以下代码
str_result <- sprintf("%.4f", num_result)

输出结果和你给出的期望格式完全一致。

方法2：使用readr包的专业解析方法（适配复杂场景） #

如果后续需要处理更多格式的数值字符串，推荐使用tidyverse生态的readr包，直接通过指定区域格式参数完成解析，代码更易维护：

install.packages("readr") # 未安装时先执行
library(readr)

# 指定小数分隔符为逗号、千位分组符为点，直接解析为数值
num_result <- parse_number(x, locale = locale(decimal_mark = ",", grouping_mark = "."))

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