将列分成单列并格式化条目

Question

我有一个包含两列（id 和 info）的巨大数据表，我想将 info 列分隔/拆分为单列并格式化它们。 这是一个示例，我的数据表的条目如下所示：

id <- c(8750, 3048, 3593, 8475, 9921)
info <- c("[J/B][10,00/10,00][1,500/1,500][1,00]", "[J*/POP][0,00/0,00/0,00/0,00][2,210/2,210/2,210/2,210][1,50]", "S", "KEINE",
          "[Q*/B][5,00/5,00][1,500/1,500][0,70]")
dt.test <- data.table(id, info)
dt.test
#   id                                                         info
# 8750                        [J/B][10,00/10,00][1,500/1,500][1,00]
# 3048 [J*/POP][0,00/0,00/0,00/0,00][2,210/2,210/2,210/2,210][1,50]
# 3593                                                            S
# 8475                                                        KEINE
# 9921                         [Q*/B][5,00/5,00][1,500/1,500][0,70]

最后我需要一个表，其中info 列分为六个单列（id、type、pBu、pBo、zTBu、zTBo 和 @987654332 @) 并将它们格式化如下：

#   id   type pBu pBo zTBu zTBo  zV
# 8750    J/B  10  10 1.50 1.50 1.0
# 3048 J*/POP   0   0 2.21 2.21 1.5
# 3593      S  NA  NA   NA   NA  NA
# 8475  KEINE  NA  NA   NA   NA  NA
# 9921   Q*/B   5   5 1.50 1.50 0.7

只是对我在开头的info 列以及最终数据表的外观进行一点解释：

• info 列中的所有逗号 , 必须替换为点 .（请参阅我的最终数据表）。
• 第一个括号[] 的输入定义了我的新type 列，此外，如果info 列填充“S”或“KEINE”，这也必须是@ 的条目987654341@专栏。
• 第二个括号[] 的输入定义了新列pBu（第一个元素）和pBo（最后一个元素）。
• 第三个括号[] 的输入定义了新列zTBu（第一个元素）和zTBo（最后一个元素）。
• 第四个括号[] 的输入定义了zV 列。
• 当type 列有条目“S”或“KEINE”时，其余列必须用NAs 填充。

Answer 1

1. separate 在括号上
2. 取第一部分和最后一部分（mutate 和 word）
3. 将, 转为. (map_df)
4. 清理左括号（第二个map_df）
5. select 保持正确的顺序 列

library(tidyr)
library(stringr)
library(purrr)
dt.test %>% 
  separate(info, into = c('type', 'pBu - pBo', 'zTBu - zTBo',  'zV'), 
           sep = "\\]|\\/ " , 
           remove = T) %>% 
  mutate('pBu' = word(`pBu - pBo`,1, sep = "\\/"),
         'pBo' = word(`pBu - pBo`,-1, sep = "\\/"),
         'pBu - pBo' = NULL,
         
         'zTBu' = word(`zTBu - zTBo`,1, sep = "\\/"),
         'zTBo' = word(`zTBu - zTBo`,-1, sep = "\\/"),
         'zTBu - zTBo' = NULL) %>% 
  map_df(~ gsub(",", ".", .x)) %>%
  map_df(~ gsub("\\[", "", .x)) %>% 
  select(id ,  type, pBu, pBo, zTBu, zTBo,  zV) ## %>% as.data.table


output
# A tibble: 5 x 7
  id    type   pBu   pBo   zTBu  zTBo  zV   
  <chr> <chr>  <chr> <chr> <chr> <chr> <chr>
1 8750  J/B    10.00 10.00 1.500 1.500 1.00 
2 3048  J*/POP 0.00  0.00  2.210 2.210 1.50 
3 3593  S      NA    NA    NA    NA    NA   
4 8475  KEINE  NA    NA    NA    NA    NA   
5 9921  Q*/B   5.00  5.00  1.500 1.500 0.70 

%>% as.data.table结尾，让你保持data.table形式

Answer 2

您的代码可以结合内置函数gsub 和来自data.table 的函数tstrsplit。如果您想按照评论HERE 中的要求将缺失值设置为0，您可以将函数tstrsplit 中的参数fill 设置为0。假设您保留data.table 很大，请注意这个答案比@dy_by 提出的答案要快得多（在我的机器上快了大约 23 倍）。

此解决方案需要 R 版本 4.1.0

cols <- c("type", "pBu", "pBo", "zTBu", "zTBo", "zV")

dt.test[, (cols) := gsub(",", ".", info, fixed=TRUE) |>
                    gsub(pattern="^\\[|\\]$", replacement="") |> 
                    gsub(pattern="/[0-9./]+/", replacement="/") |> 
                    tstrsplit("\\]\\[|/(?=\\d)", perl=TRUE, type.convert=TRUE)]


dt.test[, !"info"]
#       id   type   pBu   pBo  zTBu  zTBo    zV
# 1:  8750    J/B    10    10  1.50  1.50   1.0
# 2:  3048 J*/POP     0     0  2.21  2.21   1.5
# 3:  3593      S    NA    NA    NA    NA    NA
# 4:  8475  KEINE    NA    NA    NA    NA    NA
# 5:  9921   Q*/B     5     5  1.50  1.50   0.7

更新

这是要纳入评论的更新。它适用于早于 4.1.0 的 R 版本

dt.test[, (cols) := {x <- gsub(",", ".", info, fixed=TRUE)
                     x <- gsub("^\\[|\\]$", "", x)
                     x <- gsub("/[0-9./]+/", "/", x)
                     tstrsplit(x, "\\]\\[|/(?=\\d)", perl=TRUE, type.convert=TRUE)}]