将列的字段转换为单独的列

Question

我的数据格式如下： -

我想按名称分组，并将每个键作为列，其值为字段。

之后它看起来像

创建这些数据框的代码： -

df <- data.frame(company_id = c(12,12,12, 12, 12), 
             name1 = c("John", "Jack", "Joey", "Jack", "Joey"), 
             key = c("Phone_no", "address", "id" , "Phone_no", "address"), 
             value = c("32453", "street a", "007" , "78632", "street x"))

    expecteddf <- data.frame(company_id = c(12, 12,12 ), 
                     name1 = c("John", "Jack", "Joey"), 
                     Phone_no = c("32453", "78632",  "-"), 
                     address = c("-", "street a", "street x"),
                     id = c("-", "-", "007")) 

Answer 1

这是与tidyr的一行：

 require(tidyr)
 df = spread(df, key = key, value = value)

＆＃34;键＆＃34;和＆＃34;价值＆＃34;是传播的论据。

Answer 2

R中的Reshape2包应该可以帮到你。

library(reshape2) #load the package
newdf <- dcast(df, company_id + name1  ~key) 

newdf[is.na(newdf)] <- '-' #replacing NAs with -

#sorting name1 and columns in the desired o/p format

newdf <- newdf[order(newdf$name1),c('company_id','name1','Phone_no','address','id')]