Question

我有一个包含两列的数据框。一个ID列和一个包含由分号分隔的键值对的字符列。

   ID | KeyValPairs
    1 | "zx=1; ds=4; xx=6"
    2 | "qw=5; df=2"
    . | ....

我想把它变成一个有三列的数据框

    ID | Key | Val
     1 | zx  | 1
     1 | ds  | 4
     1 | xx  | 6
     2 | qw  | 5
     2 | df  | 2

KeyValPairs列中没有固定数量的键值对，也没有关闭的可能键组。我一直在寻找涉及循环并重新插入空数据帧的解决方案，但它无法正常工作，我被告知我应该避免使用R中的循环。

Answer 1

tidyr和dplyr方法：

<强> tidyr

library(tidyr)
library(reshape2)
s <- separate(df, KeyValPairs, 1:3, sep=";")
m <- melt(s, id.vars="ID")
out <- separate(m, value, c("Key", "Val"), sep="=")
na.omit(out[order(out$ID),][-2])
#   ID Key Val
# 1  1  zx   1
# 3  1  ds   4
# 5  1  xx   6
# 2  2  qw   5
# 4  2  df   2

<强> dplyrish

library(tidyr)
library(dplyr)
df %>% 
  mutate(KeyValPairs = strsplit(as.character(KeyValPairs), "; ")) %>% 
  unnest(KeyValPairs) %>% 
  separate(KeyValPairs, into = c("key", "val"), "=")
#courtesy of @jeremycg

数据

df <- structure(list(ID = c(1, 2), KeyValPairs = structure(c(2L, 1L ), .Label = c(" qw=5; df=2", " zx=1; ds=4; xx=6"), class = "factor")), .Names = c("ID", "KeyValPairs"), class = "data.frame", row.names = c(NA, -2L))

Answer 2

data.table解决方案，只是为了使用tstrsplit：

library(data.table) # V 1.9.6+
setDT(df)[, .(key = unlist(strsplit(as.character(KeyValPairs), ";"))), by = ID
          ][, c("Val", "Key") := tstrsplit(key, "=")
            ][, key := NULL][]
#   ID Val Key
#1:  1  zx   1
#2:  1  ds   4
#3:  1  xx   6
#4:  2  qw   5
#5:  2  df   2

Answer 3

也许@AnandaMahto的{splitstackshape}也是如此：

df <- read.table(sep = "|", header = TRUE, text = '
ID | KeyValPairs
1 | "zx=1; ds=4; xx=6"
2 | "qw=5; df=2"')
library(splitstackshape)
setNames(
   cSplit(cSplit(df, 2, ";", "long"), 2, "="), 
   c("id", "key", "val")
)
# id key val
# 1:  1  zx   1
# 2:  1  ds   4
# 3:  1  xx   6
# 4:  2  qw   5
# 5:  2  df   2

从R dataframe列中提取键值对

3 个答案: