将不同长度的列值拆分为新列/功能[关闭]

Question

我有一个看起来像这样的数据框

下面数据集中的 f 可以是任何字母数字词，即 f=[A-z]+

                 flags       perf
1   -f1 -arm -loop -f12=2.5  100
2                  -f1 -f44  45
3         -f12=1.89 -f1 -fA  450
4            -stkDump -fA56  590

标志列中的每个项目都是一个字符串。我想将此数据框转换为如下所示：在上面的示例中，某些标志可以具有 一系列值，例如 f12，而其他只是开/关标志。

  f1 arm loop  f12  f44  fA stkDump fA56 perf
1  1  1  1     2.50   0  0   0       0  100
2  1  0  0     0.00   1  0   0       0  203
3  1  0  0     1.89   0  1   0       0   45
4  0  0  0     0.00   0  0   1       1  590

如果有人可以提供帮助，我将不胜感激！

Answer 1

使用R 和tidyverse；主要技巧是使用tidyr::separate_rows 将flags 转换为基于空间的一列和多行，然后使用stringr::str_extract 提取重要信息，然后再转换回宽格式。

library(dplyr)
library(stringr)
library(tdiyr)
df %>% 
   rownames_to_column(var="id_row")  %>% 
   separate_rows(flags,sep = '\\s') %>% 
   mutate(val=str_extract(flags,'\\d+\\.\\d+'), key=str_extract(flags,'f[0-9A-z]+')) %>% 
   mutate(val=ifelse(is.na(val),1,val)) %>% 
   dplyr::select(-flags) %>% spread(key, val, fill = 0)

    id_row perf f1  f12 f2 f44 f9 fA fA56 fAe
  1      1  100  1  2.5  1   0  1  0    0   0
  2      2   45  1    0  0   1  0  0    0   0
  3      3  450  1 1.89  0   0  0  1    0   0
  4      4  590  0    0  0   0  0  0    1   1

数据

df <- read.table(text ="
                   flags perf
  1   '-f1 -f2 -f9 -f12=2.5'  100
                   2               '-f1 -f44'   45
                   3      '-f12=1.89 -f1 -fA'  450
                   4            '-fAe -fA56'  590
                   ",header = TRUE, stringsAsFactors = FALSE)