Sắp xếp lại dữ liệu từ 3 hàng đến 1

Question

Tôi cần phải sắp xếp lại dữ liệu từ tệp csv chứa phần lớn dữ liệu lặp lại. Tôi có dữ liệu nhập khẩu vào R trong một dataframe nhưng tôi đang gặp khó khăn với những điều sau:

ID Language Author Keyword 
12 eng  Rob  COLOR=Red 
12 eng  Rob  SIZE=Large 
12 eng  Rob  DD=1 
15 eng  John  COLOR=Red 
15 eng  John  SIZE=Medium 
15 eng  John  DD=2 

Những gì tôi cần làm là chuyển đổi này vào một hàng với mỗi từ khóa trong một cột riêng

ID Language Author COLOR SIZE  DD 
12 eng  Rob  Red Large  1 

Bất kỳ ý tưởng nào?

Answer 1

Sử dụng gói reshape2 này rất đơn giản:

Với tt định nghĩa là trong Gary's answer

library("reshape2") 

tt <- cbind(tt, colsplit(tt$Keyword, "=", c("Name", "Value"))) 
tt_new <- dcast(tt, ID + Language + Author ~ Name, value.var="Value") 

mang đến cho

> tt_new 
    ID Language Author COLOR DD SIZE 
1 12  eng Rob Red 1 Large 
2 15  eng John Red 2 Medium 

Answer 2

Sử dụng plyr ans strsplit bạn có thể làm một cái gì đó như thế này:

library(plyr) 
res <- ddply(dat,.(ID,Language,Author),function(x){ 
     unlist(sapply(strsplit(x$Keyword,'='),'[',2)) 
}) 

colnames(res)[4:6] <- c('COLOR','SIZE','DD') 

ID Language Author COLOR SIZE DD 
1 12  eng Rob Red Large 1 
2 15  eng John Red Medium 2 

Edit: Đây là một sự tổng quát mà các địa chỉ @ mối quan tâm của Brian:

res <- ddply(dat,.(ID,Language,Author), function(x){ 
      kv <- strsplit(x$Keyword, '=') 
      setNames(sapply(kv, `[`, 2), 
         sapply(kv, `[`, 1)) }) 

Answer 3

Hãy thử này sử dụng reshape2:

tt <- read.table(header=T,text='ID Language Author Keyword 
12 eng  Rob  COLOR=Red 
12 eng  Rob  SIZE=Large 
12 eng  Rob  DD=1 
15 eng  John  COLOR=Red 
15 eng  John  SIZE=Medium 
15 eng  John  DD=2') 

tt$Keyword <- as.character(tt$Keyword) 

tt <- transform(tt, key_val = lapply(tt$Keyword,function(x) strsplit(x,'=')[[1]][2]), 
key_var = lapply(tt$Keyword,function(x) strsplit(x,'=')[[1]][1])) 

tt_new <- dcast (tt, ID + Language + Author ~ key_var, value.var='key_val')