R:我的数据框有 2 列，每行都有一串数字，有没有办法拆分字符串并添加每列的值？

Question

在我的 R 数据框中，我有两列(A 和 B)。

在 A 列和 B 列的每一行中，都有一个用逗号分隔的数字字符串。

Row 1, Column A - 1,2,3,4      
Row 1, Column B - 5,6,7,8

我想添加值并创建另一个 C 列，以便输出如下所示:

Row 1, Column C - 6,8,10,12

由于我有多行，我尝试编写一个 for 循环

我的代码是:

library(stringr)
for i in 1:nrow(dataset)
row_i = dataset[i, ]
A1 = str_split(row_i$A, ",")
B1 = str_split(row_i$B, ",")
unlist(A1)
unlist(B1)
as.numeric(A1)
as.numeric(B2)
dataset$C  = A1+B2
end  

我收到以下错误withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning")) 中的错误:(list) 对象不能被强制输入'double'

Answer 1

这里有几种方法。

这使用了 SOfun 中的函数 list_reduction .

df <- data.frame(A = c("1,2,3,4", "9,10,11,12,13"),
                 B = c("5,6,7,8", "14,15,16,17,18"))
                 
## Grab `list_reduction` from "SOfun"
source("https://raw.githubusercontent.com/mrdwab/SOfun/master/R/list_reduction.R")

## Split the list
df_list <- lapply(df, function(x) type.convert(strsplit(as.character(x), ",", fixed = TRUE)))
df["C"] <- list_reduction(df_list, "+", flatten = TRUE)
df
#               A              B                  C
# 1       1,2,3,4        5,6,7,8       6, 8, 10, 12
# 2 9,10,11,12,13 14,15,16,17,18 23, 25, 27, 29, 31

这使用“splitstackshape”中的cSplit:

library(splitstackshape)
library(data.table)
cSplit(as.data.table(df, keep.rownames=TRUE), c("A", "B"), ",", "long")[
  , C := A + B][, lapply(.SD, toString), "rn"]
#    rn                 A                  B                  C
# 1:  1        1, 2, 3, 4         5, 6, 7, 8       6, 8, 10, 12
# 2:  2 9, 10, 11, 12, 13 14, 15, 16, 17, 18 23, 25, 27, 29, 31