将数据框中字符串格式数值列转换为数值并按行求和

数据老陈

2026-6-24

解决DataFrame中字符串列表逐行求和的问题

问题场景

你的DataFrame中Count列存储的是带方括号的字符串形式数值集合，每行数值数量不同，需要将其转换为数值类型后逐行求和，单行处理代码有效但无法批量执行。

核心问题原因

你写的代码中strsplit(...)返回的是列表对象，[[1]]仅提取了列表的第一个元素，所以只能处理单行数据。批量处理需要遍历列表的每个元素进行计算。

解决方案

方法1：基础R的`sapply`遍历

直接用sapply对Count列的每个字符串元素单独处理，修正分割符为, （匹配原数据里的逗号加空格），避免转数值时因空格报错：

# 假设你的数据框名为Data
Data$Sum <- sapply(Data$Count, function(x) {
  # 去掉首尾的方括号，分割字符串为单个数值文本
  num_strs <- strsplit(substr(x, 2, nchar(x) - 1), ", ")[[1]]
  # 转数值后求和
  sum(as.numeric(num_strs))
})

方法2：tidyverse工具链（更简洁）

用dplyr配合purrr的函数，语法更直观：

library(dplyr)
library(purrr)
library(stringr)

Data <- Data %>%
  mutate(
    Sum = map_dbl(Count, ~{
      # 移除所有方括号
      clean_str <- str_remove_all(.x, "\\[|\\]")
      # 分割为数值文本向量，转数值后求和
      str_split(clean_str, ", ")[[1]] %>%
        as.numeric() %>%
        sum()
    })
  )