时间戳

首页 > 解决方案 > 拆分列中的字符串并作为新行插入

r - 拆分列中的字符串并作为新行插入

问题描述

尽管我看到了类似的问题和解决方案，但我仍然无法解决我的问题。我想将 data.table 中的元素拆分为单个值并插入新行。

数据是这样的：

dt <- data.table("0100"=c("9103,9048,9903,7837","8738,2942,2857,4053"),
             "0101"=c("9103,9048,9903","2537,1983"))

我希望它是这样的：

dt2 <- data.table("0010" = c(9103,9048,9903,7837,8738,2942,2857,4053),
              "0101" = c(9103,9048,9903,2537,1983,NA,NA,NA))

由于我刚开始学习R，请帮我解决这个问题

标签： rdata.table

解决方案

library(data.table)

使用lapply()我们可以使用自定义函数处理每一列。这个函数首先应用strsplit()，将每一列变成一个包含两个元素的列表。通过应用 unlist()，我们将列表转换为向量（长度不等）。

dt_l <- lapply(dt, \(x) strsplit(x, ",") |> unlist())
dt_l
#> $`0100`
#> [1] "9103" "9048" "9903" "7837" "8738" "2942" "2857" "4053"
#> 
#> $`0101`
#> [1] "9103" "9048" "9903" "2537" "1983"

通过将第二列的长度设置为 的最大长度dt_l，第二列用NAs “填充”。

length(dt_l$`0101`) <- max(lengths(dt_l))
dt_l
#> $`0100`
#> [1] "9103" "9048" "9903" "7837" "8738" "2942" "2857" "4053"
#> 
#> $`0101`
#> [1] "9103" "9048" "9903" "2537" "1983" NA     NA     NA

现在我们可以把它全部变成一个data.table了。

as.data.table(dt_l)
#>    0100 0101
#> 1: 9103 9103
#> 2: 9048 9048
#> 3: 9903 9903
#> 4: 7837 2537
#> 5: 8738 1983
#> 6: 2942 <NA>
#> 7: 2857 <NA>
#> 8: 4053 <NA>

推荐阅读