如何将 key/value 字符串转换为单独的列？

Question

我有一个 data.frame 和 key/value string 列，其中包含有关一组用户的功能及其值的信息。像这样：

data<-data.frame(id=1:3,statid=c("s003e","s093u","s085t"),str=c("a:1,7:2","a:1,c:4","a:3,b:5,c:33"))
data
#   id statid          str
# 1  1  s003e      a:1,7:2
# 2  2  s093u      a:1,c:4
# 3  3  s085t a:3,b:5,c:33

我想做的是为每个功能创建一个 data.frame 包含列。像这样：

data_after<-data.frame(id=1:3,statid=c("s003e","s093u","s085t"),
                   a=c(1,1,3),b=c(0,0,5),c=c(0,4,33),"7"=c(2,0,0))
data_after
#   id statid a b  c X7
# 1  1  s003e 1 0  0  2
# 2  2  s093u 1 0  4  0
# 3  3  s085t 3 5 33  0

我试图使用 stringr 包中的 str_split，然后将创建的列表的元素转换为 data.frames（稍后使用 rbind.fill 来自 plyr) 但做不到。任何帮助将不胜感激！

Answer 1

您可以使用 dplyr 和 tidyr:

library(dplyr); library(tidyr)
data %>% mutate(str = strsplit(str, ",")) %>% unnest(str) %>% 
         separate(str, into = c('var', 'val'), sep = ":") %>% spread(var, val, fill = 0)

#   id statid 7 a b  c
# 1  1  s003e 2 1 0  0
# 2  2  s093u 0 1 0  4
# 3  3  s085t 0 3 5 33

Answer 2

我们可以使用 cSplit 以更简洁的方式执行此操作。通过在 , 处拆分将数据转换为 'long' 格式，然后在 : 和 dcast 处进行拆分，从 'long' 到 'wide'

library(splitstackshape)
library(data.table)
dcast(cSplit(cSplit(data, "str", ",", "long"), "str", ":"), 
                    id+statid~str_1, value.var="str_2", fill = 0)
#   id statid 7 a b  c
#1:  1  s003e 2 1 0  0
#2:  2  s093u 0 1 0  4
#3:  3  s085t 0 3 5 33

如何将 key/value 字符串转换为单独的列？

How to transform a key/value string into separate columns?

split

r

key-value

multiple-columns