R语言数据处理：移除指定字符并拆分字符串生成两列

问题背景 #

现有R数据框如下：

f <- data.frame(x = c("c(58663.809, 232648.355, 0)", "c(5902.873, 232674.248, 0)"))

需求：移除字符串中的c(前缀，按逗号拆分有效数值，去掉末尾的0)部分，最终生成两列数值型数据：

x = c(58663.809, 5902.873),
y = c(232648.355, 232674.248)

实现方法 #

方法一：基础R原生函数处理 #

无需额外安装包，用原生字符串和数据转换函数完成：

# 清理字符串：移除开头的c(和结尾的, 0)
clean_str <- gsub("^c\\(|, 0\\)$", "", f$x)
# 拆分字符串并转换为数值矩阵
num_matrix <- do.call(rbind, strsplit(clean_str, ", ")) |> as.numeric() |> matrix(ncol = 2)
# 生成目标数据框
result <- data.frame(x = num_matrix[,1], y = num_matrix[,2])

# 查看结果
print(result)

步骤说明：

• gsub通过正则匹配精准移除无效前缀和后缀，完成字符串清理；
• strsplit按逗号加空格拆分字符串，再通过do.call(rbind)将列表转为矩阵，最后转成数值类型；
• 从矩阵中提取对应列，生成最终数据框。

方法二：tidyverse工具链处理 #

用dplyr和stringr实现管道式操作，代码更简洁易读：
先安装并加载依赖包：

install.packages("tidyverse")
library(tidyverse)

执行数据处理：

result <- f |>
  mutate(
    # 清理字符串
    clean_x = str_remove_all(x, "^c\\(|, 0\\)$"),
    # 拆分后提取两列并转数值
    x = as.numeric(str_split(clean_x, ", ", simplify = TRUE)[,1]),
    y = as.numeric(str_split(clean_x, ", ", simplify = TRUE)[,2])
  ) |>
  select(x, y) # 保留目标列

# 查看结果
print(result)

步骤说明：

• str_remove_all一次性移除所有无效字符；
• str_split(..., simplify = TRUE)直接将拆分结果转为矩阵，提取对应列后转成数值类型；
• 用管道|>串联所有操作，逻辑连贯清晰。

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