在R语言中拆分以逗号为小数分隔符的逗号分隔字符串

针对你遇到的特殊格式字符串转换需求，这里提供两种实现方式：

方法一：使用stringr包（推荐，语法更直观） #

# 定义输入字符串
input_str <- "0,60,(0,50),0,71,1,28,1,77,1,60,1,87"

# 加载stringr包
library(stringr)

# 替换数字内部的逗号为小数点，同时保留括号结构
processed_str <- str_replace_all(input_str, "(\\(?\\d),(\\d{2}\\)?)", "\\1.\\2")

# 给元素间添加空格，匹配期望格式
final_str <- str_replace_all(processed_str, ",", ", ")

运行后final_str的输出结果为：

0.60, (0.50), 0.71, 1.28, 1.77, 1.60, 1.87

方法二：使用基础R函数（无需额外安装包） #

input_str <- "0,60,(0,50),0,71,1,28,1,77,1,60,1,87"

# 第一步替换数字内部的逗号为小数点
processed_str <- gsub("(\\(?\\d),(\\d{2}\\)?)", "\\1.\\2", input_str)

# 第二步添加元素间的空格
final_str <- gsub(",", ", ", processed_str)

正则表达式说明 #

(\\(?\\d),(\\d{2}\\)?)的作用是精准匹配两种数字单元：

• 不带括号的两位小数（如0,60）
• 带括号的两位小数（如(0,50)）
  捕获数字部分后，将中间的逗号替换为小数点，同时保留原有的括号结构。

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